Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Cryptographie
craminou le 28/04/2008 à 22:59
cette fois il marche bien : 0 lettre de décallage pour quitter
Code
ClrAllLists
ClrHome
0ü ( 
) G
0ü ( ) N
1ü ( ) Z
1ü ( ) Y
Output(1,1,"MESSAGE:
Pause
ClrHome
While Gø105
0ü ( ) G
While G=0
getKeyü ( ) G
End
ú ( 
) 200ü ( ) X
If G=41
1ü ( ) X
If G=42
2ü ( ) X
If G=43
3ü ( ) X
If G=45
Then
N-1ü ( ) N
ú ( ) 1ü ( ) X
Z-1ü ( ) Z
If Z=0
Then
1ü ( ) Z
Y-1ü ( ) Y
If Y=0
1ü ( ) Y
End
Output(Y,Z,"
Z-1ü ( ) Z
If Z=0
Then
1ü ( ) Z
Y-1ü ( ) Y
If Y=0
Then
1ü ( ) Y
0ü ( ) Z
End
End
End
If N<0
0ü ( ) N
If G=51
4ü ( ) X
If G=52
5ü ( ) X
If G=53
6ü ( ) X
If G=54
7ü ( ) X
If G=55
8ü ( ) X
If G=61
9ü ( ) X
If G=62
10ü ( ) X
If G=63
11ü ( ) X
If G=64
12ü ( ) X
If G=65
13ü ( ) X
If G=71
14ü ( ) X
If G=72
15ü ( ) X
If G=73
16ü ( ) X
If G=74
17ü ( ) X
If G=75
18ü ( ) X
If G=81
19ü ( ) X
If G=82
20ü ( ) X
If G=83
21ü ( ) X
If G=84
22ü ( ) X
If G=85
23ü ( ) X
If G=91
24ü ( ) X
If G=92
25ü ( ) X
If G=93
26ü ( ) X
If G=102
100ü ( ) X
If X>0
Then
N+1ü ( ) N
Xü ( ) L(N)
End
1ü ( ) P
Goto 1
Lbl 2
Z+1ü ( ) Z
If Z=17
Then
1ü ( ) Z
Y+1ü ( ) Y
End
End
2ü ( ) P
1ü ( ) B
While BøN+1
L(B)ü ( ) L‚(B)
B+1ü ( ) B
End
Lbl 0
Output(1,1,"NOMBRE DE LETTRE DE DECALAGE?
Pause
ClrHome
Input D
ClrHome
If D=0
Stop
If D<1 or D>25
Then
Output(1,1,"DECALAGE INUTILE
Pause
ClrHome
Goto 0
End
If D=Á
Stop
1ü ( ) B
1ü ( ) Y
1ü ( ) Z
While BøN+1
L(B)ü ( ) X
X+Dü ( ) X
If X>26 and X÷ ( 
) 50
X-26ü ( ) X
Xü ( ) L(B)
Lbl 1
If X=1
Output(Y,Z,"A
If X=2
Output(Y,Z,"B
If X=3
Output(Y,Z,"C
If X=4
Output(Y,Z,"D
If X=5
Output(Y,Z,"E
If X=6
Output(Y,Z,"F
If X=7
Output(Y,Z,"G
If X=8
Output(Y,Z,"H
If X=9
Output(Y,Z,"I
If X=10
Output(Y,Z,"J
If X=11
Output(Y,Z,"K
If X=12
Output(Y,Z,"L
If X=13
Output(Y,Z,"M
If X=14
Output(Y,Z,"N
If X=15
Output(Y,Z,"O
If X=16
Output(Y,Z,"P
If X=17
Output(Y,Z,"Q
If X=18
Output(Y,Z,"R
If X=19
Output(Y,Z,"S
If X=20
Output(Y,Z,"T
If X=21
Output(Y,Z,"U
If X=22
Output(Y,Z,"V
If X=23
Output(Y,Z,"W
If X=24
Output(Y,Z,"X
If X=25
Output(Y,Z,"Y
If X=26
Output(Y,Z,"Z
If X>26
Output(Y,Z,"
If P=1
Goto 2
B+1ü ( ) B
Z+1ü ( ) Z
If Z=17
Then
1ü ( ) Z
Y+1ü ( ) Y
End
End
Pause
1ü ( ) E
While EøN+1
L‚(E)ü ( ) L(E)
E+1ü ( ) E
End
Goto 0
il me semble que j'ai été pas trop mauvais au niveau du radinnage de place , n'est-ce pas ratuss?
j'essayerai de mettre un lien parseque en loccurence sa vaut pas trop la peine de se faire c***r a tout recopier pour sa , a moin d'avoir plein de message a codé avec cette technique
ratuss le 29/04/2008 à 20:22
Bah y a moyen de faire mieux regarde par exemple :
ca peut donner :
Code
4+(G>51)+(G>52)+(G>53)+...+(G=102->X
et a mon avis c'est encore possible de comprimer tout ca avec une boucle for :p
un truc comme ca par ex :
Code
4->X
For (A,1,5
X+(G>50+A)+(G>60+A)+(G>70+A)+(G>80+A)+(G>90)->X
End
100(G=102ü ( ) X
et encore :p :
Code
4->X
For (A,1,5
For (B,10,50
X+(G>40+B+A)->X
End
End
E2(G=102->X
(E c'est le petit E)
(pas testé par contre)
+
craminou le 29/04/2008 à 23:08
waaaa!!!
respect , j'en ai compris aucune.....ratuss le 30/04/2008 à 19:31
bah c'est simple regarde ;-) :
A>B renvoi 1 si A est strictement supérieur à B. (et sinon 0)
tu le remplaces par :
si G=52 par exemple
alors G>51 = 1
alors G>52 = 0
donc cela revient à écrire:
d'où X=5 (ca concorde avec l'autre code)
en plus je viens de me rendre compte il y avait une erreur dans mon code :p :
4->X
For (A,1,5
For (B,10,50
X+(G>40+B+A)->X
End
End
E2(G=102->X
4->X
For (A,1,5
For (B,10,50
X+(G>40+B+A)->X
End
End
If G=102
E2->X craminou le 03/05/2008 à 20:26
waaaaaaaaaaaaa!! extraordinaire!!
je savait pas que tu pouvais lui soumetre une condition comme sa!!!
magnifique !! merci beaucoup!
ratuss le 04/05/2008 à 09:33
n'en fait pas trop non plus :pSangohan38 le 04/05/2008 à 11:17
Cette ligne est encore simplifiable:
Sangohan38
ratuss le 04/05/2008 à 14:03
tu veux dire comme ceci ?
G-47(G>50->XSangohan38 le 04/05/2008 à 14:34
Oui effectivement.
Sangohan38Jao49 le 05/04/2009 à 10:56
Bonjour.
Donc si on résume, ça donne quoi?
SVP Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
