Accueil Ti-Gen Foire Aux Questions Chat sur le chan #tigcc sur IRC
Liste des membres Rechercher Aide
Bienvenue Invité !   Se connecter             Mes sujets   
Administrer
0 membre(s) et 1 visiteur(s) actif(s) durant les 5 dernières minutes Utilisateurs actifs : Aucun membre + 1 visiteur
Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.
  :: Index » Concours - Contests » Concours FireProg » Premier Concours FireProg (67 réponse(s))
./POST DE DEPART (post n°0)   Marquer comme non lu.
Dari Ecrit le: Samedi 4 septembre 2004 à 11:40 Déconnecté(e)    Voir le profil de Dari Envoyer un email à Dari Visiter le site WEB de Dari Envoyer un message privé à Dari  

Mot de Passe :
Le programme doit prendre une chaîne de caractères en arguments (le mot de passe). Il doit retourner, d'une manière ou d'une autre (à préciser) si le mot de passe est bon ou pas. Le mot de passe correct devra être FireProg (avec les majuscules). Si le mot de passe n'est pas crypté dans les source, pénalité de 0,1 point.

Postez vos programmes ici sous forme de code. Les autres verront vos programmes, du coup. Ne postez pas autre chose que les programmes. Le dernier programme posté par chacun sera pris en compte. Si deux programmes sont identiques, le premier qui l'aura posté en aura le bénéfice.
Si vous préférez, vous pouvez m'envoyer vos programmes par Message Privé, mais je n'accepterai qu'un message (le premier) par personne.

Go !
-Edité le Dimanche 5 septembre 2004 à 17:56 par Dari-
"iPod, therefore, I am."

http://media.laquadrature.net/Quadrature_black-out_HADOPI_468x60px.gif

    
./Post n°1   Marquer comme non lu.
LionelA Ecrit le: Samedi 4 septembre 2004 à 12:43 Déconnecté(e)    Voir le profil de LionelA Envoyer un email à LionelA Visiter le site WEB de LionelA Envoyer un message privé à LionelA  


Voila mon essai. (Ca fait longtemps que je programme plus en basic donc y'aura surement mieux)

fireprog(s)
Func
Local i,s2
""->s2
For i,1,dim(s)
s2&char(ord(mid(s,i,1))+1)->s2
EndFor
If s2="GjsfQsph" Then
Return true
Else
Return false
EndIf
EndFunc


Note le password est crypté (même si un enfant de 2 ans comprendrait ce cryptage) donc pas de penalité :p
Auteur de Mode7 Engine pour ti68k
Auteur de F-ZERO for TI68k
Membre de Orage Studio
Mon site perso : http://www.tigen.org/lionela/
Le gite de mes parents à coté de Narbonne :
http://chaletdenis.free.fr/
    
./Post n°2   Marquer comme non lu.
kaz00 Ecrit le: Samedi 4 septembre 2004 à 12:54 Déconnecté(e)    Voir le profil de kaz00 Envoyer un email à kaz00 Envoyer un message privé à kaz00  


password(arg)
Prgm
Local a,arg,fin,retour
""->fin
For a,1,dim(arg)
Try
fin&char(ord(mid(arg,a,1))+1)->fin
Else
Text "Mot de passe invalide"
Return
EndTry
EndFor
If fin="GjsfQsph" Then
1->retour
Else
0->retour
EndIf
EndPrgm


c'est la methode que tout le monde va utiliser pour faire au plus court et au plus simple, j'avais pensé avec une clé de cryptage, mais c'est pas autorisé, mais sinon, j'ai un autre programme pour le password mais il fait deja 5000 avec rien dedans, mais le cryptage était inviolable (enfin a 99% ).
-Edité le Samedi 4 septembre 2004 à 12:55 par genocyd-
    
./Post n°3   Marquer comme non lu.
limmt Ecrit le: Samedi 4 septembre 2004 à 15:01 Déconnecté(e)    Voir le profil de limmt Envoyer un email à limmt Visiter le site WEB de limmt Envoyer un message privé à limmt  


pass(p)
Func
Local x,q
For x,1,dim(p)
q&char(ord(mid(p,x,1))-1)->q
EndFor
If q="EhqdOqnf"
Return 1
Return 0
EndFunc


voila je crois pas qu'on peux faire plus petit en taille :)
-Edité le Samedi 4 septembre 2004 à 15:03 par limmt-
http://www.falco-fr.com/ - http://www.jump67.com/ - http://www.msf-league.com/
    
./Post n°4   Marquer comme non lu.
bobti89 Ecrit le: Samedi 4 septembre 2004 à 20:01 Déconnecté(e)    Voir le profil de bobti89 Envoyer un email à bobti89 Visiter le site WEB de bobti89 Envoyer un message privé à bobti89  

pass(x)
string(ord(seq(mid(x,i,1),i,1,dim(x))))="{70,105,114,101,80,114,111,103}"

Voilà le mien.

edit:suppressions des smileys.
edit2:correction d'une faute de frappe.
-Edité le Samedi 4 septembre 2004 à 21:12 par bobti89-
-Edité le Dimanche 5 septembre 2004 à 11:41 par bobti89-
bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici
    
./Post n°5   Marquer comme non lu.
geogeo Ecrit le: Dimanche 5 septembre 2004 à 00:17 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


Juste pour rigoler :D
Le code en GFA-Basic:
Cls
Input "Mot de passe: ",pass$
I%=1
While I%<=len(pass$)
  Poke(Varptr(pass$)+I%-1,Asc(Mid$(pass$,I%,1)) xor &H3A)
  Inc I%
Wend
If not(pass$="|SH_jHU]") Then
  Run
Endif

-Edité le Dimanche 5 septembre 2004 à 00:29 par geogeo-
Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic
    
./Post n°6   Marquer comme non lu.
kaz00 Ecrit le: Dimanche 5 septembre 2004 à 00:47 Déconnecté(e)    Voir le profil de kaz00 Envoyer un email à kaz00 Envoyer un message privé à kaz00  

A tes souhaits Geogeo...


password(arg)
Func
Local a,arg,fin
""->fin
For a,1,dim(arg)
fin&char(ord(mid(arg,a,1))+1)->fin
EndFor
If fin="GjsfQsph" Then
return 1
Else
return 0
EndIf
EndFunc


Le probleme c'est que en simplifiant mon code, je retombe sur le meme que lionelA.
Dis donc LionelA, tu n'aurais pas developpé un annuaire en BASIC?
-Edité le Dimanche 5 septembre 2004 à 00:48 par genocyd-
-Edité le Dimanche 5 septembre 2004 à 00:51 par genocyd-
-Edité le Dimanche 5 septembre 2004 à 00:58 par genocyd-
    
./Post n°7   Marquer comme non lu.
LionelA Ecrit le: Dimanche 5 septembre 2004 à 00:54 Déconnecté(e)    Voir le profil de LionelA Envoyer un email à LionelA Visiter le site WEB de LionelA Envoyer un message privé à LionelA  


Ah non, le seul truc que j'ai fait en basic c'est le pokemon qui rame...
et 2, 3 progs pour les cours (qui ne sont pas releasés)
Auteur de Mode7 Engine pour ti68k
Auteur de F-ZERO for TI68k
Membre de Orage Studio
Mon site perso : http://www.tigen.org/lionela/
Le gite de mes parents à coté de Narbonne :
http://chaletdenis.free.fr/
    
./Post n°8   Marquer comme non lu.
kaz00 Ecrit le: Dimanche 5 septembre 2004 à 00:56 Déconnecté(e)    Voir le profil de kaz00 Envoyer un email à kaz00 Envoyer un message privé à kaz00  

ok, parce que je me souviens avoir vu le meme mode de cryptage dans l'annuaire si je me souvien bien, un petit decalage, je crois que le decalage etait de 3 ou plus.
    
./Post n°9   Marquer comme non lu.
Dari Ecrit le: Dimanche 5 septembre 2004 à 10:35 Déconnecté(e)    Voir le profil de Dari Envoyer un email à Dari Visiter le site WEB de Dari Envoyer un message privé à Dari  

Ben dis-donc, vous êtes actifs ! Quinze jours, ça va être long.
Peut-être qu'une semaine vous suffirait ?
"iPod, therefore, I am."

http://media.laquadrature.net/Quadrature_black-out_HADOPI_468x60px.gif

    
./Post n°10   Marquer comme non lu.
kaz00 Ecrit le: Dimanche 5 septembre 2004 à 11:37 Déconnecté(e)    Voir le profil de kaz00 Envoyer un email à kaz00 Envoyer un message privé à kaz00  

oui...
    
./Post n°11   Marquer comme non lu.
bobti89 Ecrit le: Dimanche 5 septembre 2004 à 11:41 Déconnecté(e)    Voir le profil de bobti89 Envoyer un email à bobti89 Visiter le site WEB de bobti89 Envoyer un message privé à bobti89  

oui
bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici
    
./Post n°12   Marquer comme non lu.
Invité Ecrit le: Dimanche 5 septembre 2004 à 11:46 Déconnecté(e)    
 
Non ! J'ai pas commencé !
    
./Post n°13   Marquer comme non lu.
Invité Ecrit le: Dimanche 5 septembre 2004 à 11:48 Déconnecté(e)    
 
Par contre j'ai pas tout suivi :
> Le programme doit prendre une chaîne de caractères en arguments (le mot de passe).
Ca ok.
> Il doit retourner, d'une manière ou d'une autre (à préciser) si le mot de passe est bon ou pas.
Comment ça ? On fait juste If argument = pass ? :|
> Le mot de passe correct devra être FireProg (avec les majuscules).
Ca ok.
> Si le mot de passe n'est pas crypté dans les source, pénalité de 0,1 point.
Comment ça crypté ? Il faut tester si l'argument est le pass ?
    
./Post n°14   Marquer comme non lu.
kaz00 Ecrit le: Dimanche 5 septembre 2004 à 12:19 Déconnecté(e)    Voir le profil de kaz00 Envoyer un email à kaz00 Envoyer un message privé à kaz00  

tu doit crypter l'argument et comparer avec le vrai mot de passe (FireProg) crypté avec le meme algorythme.
    
./Post n°15   Marquer comme non lu.
Invité Ecrit le: Dimanche 5 septembre 2004 à 12:22 Déconnecté(e)    
 
Mais il suffit de mettre par exemple pass("FireProg") et c'est bon ! :| Je vois pas trop...
    
./Post n°16   Marquer comme non lu.
kaz00 Ecrit le: Dimanche 5 septembre 2004 à 12:35 Déconnecté(e)    Voir le profil de kaz00 Envoyer un email à kaz00 Envoyer un message privé à kaz00  

inspire toi des codes deja fait. tu comprendra mieux.
    
./Post n°17   Marquer comme non lu.
bobti89 Ecrit le: Dimanche 5 septembre 2004 à 12:38 Déconnecté(e)    Voir le profil de bobti89 Envoyer un email à bobti89 Visiter le site WEB de bobti89 Envoyer un message privé à bobti89  

Dari>Il faut augmenter la penalité du non cryptage car en faisant
x="FireProg"->pass(x)

on obtient une meilleur note que tout le monde... (même avec la pénalité)
bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici
    
./Post n°18   Marquer comme non lu.
LionelA Ecrit le: Dimanche 5 septembre 2004 à 12:47 Déconnecté(e)    Voir le profil de LionelA Envoyer un email à LionelA Visiter le site WEB de LionelA Envoyer un message privé à LionelA  


autant obliger le cryptage comme ca c"est réglé.
Auteur de Mode7 Engine pour ti68k
Auteur de F-ZERO for TI68k
Membre de Orage Studio
Mon site perso : http://www.tigen.org/lionela/
Le gite de mes parents à coté de Narbonne :
http://chaletdenis.free.fr/
    
./Post n°19   Marquer comme non lu.
ZogStriP Ecrit le: Dimanche 5 septembre 2004 à 13:03 Déconnecté(e)    Voir le profil de ZogStriP Envoyer un email à ZogStriP Visiter le site WEB de ZogStriP Envoyer un message privé à ZogStriP  

Et préciser ce que veut dire cryptage !
1) Opération mathématique ?
2) Texte écris d'une autre manière ?
3) Autres...

PS : Moi je préfererais carrément changer de sujet, parce que c'est "un peu trop simple" et que les meilleurs codes sont déjà postés ! Faudrais plutôt un truc basé sur l'algorithmique par exemple, là au moins il y aura plus de choix !
    
  :: Index » Concours - Contests » Concours FireProg » Premier Concours FireProg (67 réponse(s))
Pages : 1/4     « [1] 2 3 4 » »|

Forum de Ti-Gen v3.0 Copyright ©2004 by Geoffrey ANNEHEIM
Webmaster: Kevin KOFLER, Content Admins: list, Server Admins: Tyler CASSIDY and Kevin KOFLER, DNS Admin: squalyl
Page générée en 80.33ms avec 21 requetes