%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1352 File Name:crack Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Fill(0,\Mat A 0\->Y 1\->X 1\->T "Entrez le nombre de groupes" ?\->Z Z-2\->H \ClrText "Entrez les chiffres par groupe" \Lbl 0 ?\->\Mat A[1,X] \ClrText Y+1\->Y X+1\->X \If Y=Z \Then \Goto1 \IfEnd \Goto0 \Lbl 1 \ClrText X-1\->X X-1\->Q \If \Mat A[1,X]=1 \Then \Mat A[1,X-1]/20\->\Mat A[1,X-1] \IfEnd \If \Mat A[1,X]=2 \Then \Mat A[1,X-1]/15\->\Mat A[1,X-1] \IfEnd \If \Mat A[1,X]\>=3 \Then \Mat A[1,X-1]/10\->\Mat A[1,X-1] \IfEnd 1\->X \Lbl 2 \Mat A[1,X]/\Mat A[1,Q]\->\Mat A[1,X] X+1\->X \If X=Q \Then \Goto3 \IfEnd \Goto2 \Lbl 3 1\->X 1\->C 1\->D \Lbl A 1\->X 1\->T \GotoQ \Lbl R \Mat A[1,X]/T\->\Mat A[1,X] \Mat A[1,X]=76\=>\Locate C,D,"A" \Mat A[1,X]=66\=>\Locate C,D,"B" \Mat A[1,X]=56\=>\Locate C,D,"C" \Mat A[1,X]=46\=>\Locate C,D,"D" \Mat A[1,X]=36\=>\Locate C,D,"E" \Mat A[1,X]=26\=>\Locate C,D,"F" \Mat A[1,X]=75\=>\Locate C,D,"G" \Mat A[1,X]=65\=>\Locate C,D,"H" \Mat A[1,X]=55\=>\Locate C,D,"I" \Mat A[1,X]=45\=>\Locate C,D,"J" \Mat A[1,X]=35\=>\Locate C,D,"K" \Mat A[1,X]=25\=>\Locate C,D,"L" \Mat A[1,X]=74\=>\Locate C,D,"M" \Mat A[1,X]=64\=>\Locate C,D,"N" \Mat A[1,X]=54\=>\Locate C,D,"O" \Mat A[1,X]=73\=>\Locate C,D,"P" \Mat A[1,X]=63\=>\Locate C,D,"Q" \Mat A[1,X]=53\=>\Locate C,D,"R" \Mat A[1,X]=43\=>\Locate C,D,"S" \Mat A[1,X]=33\=>\Locate C,D,"T" \Mat A[1,X]=72\=>\Locate C,D,"U" \Mat A[1,X]=62\=>\Locate C,D,"V" \Mat A[1,X]=52\=>\Locate C,D,"W" \Mat A[1,X]=42\=>\Locate C,D,"X" \Mat A[1,X]=32\=>\Locate C,D,"Y" \Mat A[1,X]=71\=>\Locate C,D,"Z" \Mat A[1,X]=61\=>\Locate C,D," " \Mat A[1,X]=51\=>\Locate C,D,"." X+1\->X C+1\->C \If X=Q \Then \GotoB \IfEnd \If C=19 \Then 1\->C D+1\->D \IfEnd \GotoR \Lbl Q \Locate 2,2,"X" \Locate 5,2,X \Mat A[1,X]/T\->G \If G=76\ Or G=66\ Or G=56\ Or G=46\ Or G=36\ Or G=26\ Or G=75\ Or G=65\ Or G=55\ Or G=45\ Or G=35\ Or G=25\ Or G=74\ Or G=64\ Or G=54\ Or G=73\ Or G=63\ Or G=53\ Or G=43\ Or G=33\ Or G=72\ Or G=62\ Or G=52\ Or G=42\ Or G=32\ Or G=71\ Or G=61\ Or G=51 \Then \Isz X \Locate 5,2,X \Else \Isz T 1\->X \Locate 2,3,T \IfEnd \If X=H \Then \ClrText 1\->X \GotoR \IfEnd \GotoQ \Lbl B \If \Getkey=31 \Then \ClrText \Stop \IfEnd \GotoB %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:910 File Name:crypt Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Fill(0,\Mat A 1\->W 2\->X 2\->Y 1\->D 4\->E "Entrez votre texte a crypter" \Lbl 0 \Getkey\->A A=76\=>\Locate D,E,"A" A=66\=>\Locate D,E,"B" A=56\=>\Locate D,E,"C" A=46\=>\Locate D,E,"D" A=36\=>\Locate D,E,"E" A=26\=>\Locate D,E,"F" A=75\=>\Locate D,E,"G" A=65\=>\Locate D,E,"H" A=55\=>\Locate D,E,"I" A=45\=>\Locate D,E,"J" A=35\=>\Locate D,E,"K" A=25\=>\Locate D,E,"L" A=74\=>\Locate D,E,"M" A=64\=>\Locate D,E,"N" A=54\=>\Locate D,E,"O" A=73\=>\Locate D,E,"P" A=63\=>\Locate D,E,"Q" A=53\=>\Locate D,E,"R" A=43\=>\Locate D,E,"S" A=33\=>\Locate D,E,"T" A=72\=>\Locate D,E,"U" A=62\=>\Locate D,E,"V" A=52\=>\Locate D,E,"W" A=42\=>\Locate D,E,"X" A=32\=>\Locate D,E,"Y" A=71\=>\Locate D,E,"Z" A=61\=>\Locate D,E," " A=31\=>\Goto1 \If A\<>0\ And A\<>31 \Then D+1\->D A\->\Mat A[1,Y] Y+1\->Y \IfEnd \If D=21 \Then \Isz E 1\->D \IfEnd \Goto0 \Lbl 1 \ClrText 2\->Y \Int 100\Ran#+1\->R \Int 100\Ran#+1\->S ?\->T R*S\->S T*S\->R R\->\Mat A[1,1] \Lbl 2 \Mat A[1,Y]*R\->\Mat A[1,Y] \If \Mat A[1,Y]\<>0 \Then Y+1\->Y \Else \Goto3 \IfEnd \Goto2 \Lbl 3 \ClrText 2\->Y \Lbl 4 \If \Mat A[1,Y]\<>0 \Then \Locate W,X,\Mat A[1,Y] \Else \Goto5 \IfEnd \If Y=100 \Then \Goto5 \IfEnd \If X=6 \Then \GotoF \IfEnd Y+1\->Y X+1\->X \Goto4 \Lbl 5 2\->Y \Lbl A \If \Mat A[1,Y]=0 \Then Y-1\->K \Goto6 \IfEnd Y+1\->Y \GotoA \Lbl 6 \Int K\Ran#+1\->K \If K=1 \Then 20S\->S \IfEnd \If K=2 \Then 15S\->S \IfEnd \If K\>=3 \Then 10S\->S \IfEnd \Locate W,X,S \Locate W,X+1,K \Lbl F \If \Getkey=31 \Then 2\->X \Isz Y \ClrText \Goto4 \IfEnd \GotoF %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1101 File Name:decrypt Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Fill(0,\Mat A 0\->Y 1\->X "Entrez le nombre secret" ?\->T \ClrText "Entrez le nombre de groupes" ?\->Z \ClrText "Entrez les chiffres par groupe" \Lbl 0 ?\->\Mat A[1,X] \ClrText Y+1\->Y X+1\->X \If Y=Z \Then \Goto1 \IfEnd \Goto0 \Lbl 1 \ClrText X-1\->X X-1\->Q \If \Mat A[1,X]=1 \Then \Mat A[1,X-1]/20\->\Mat A[1,X-1] \IfEnd \If \Mat A[1,X]=2 \Then \Mat A[1,X-1]/15\->\Mat A[1,X-1] \IfEnd \If \Mat A[1,X]\>=3 \Then \Mat A[1,X-1]/10\->\Mat A[1,X-1] \IfEnd 1\->X \Lbl 2 \Mat A[1,X]/\Mat A[1,Q]\->\Mat A[1,X] X+1\->X \If X=Q \Then \Goto3 \IfEnd \Goto2 \Lbl 3 1\->X 1\->C 1\->D \Lbl A \Mat A[1,X]/T\->\Mat A[1,X] \Mat A[1,X]=76\=>\Locate C,D,"A" \Mat A[1,X]=66\=>\Locate C,D,"B" \Mat A[1,X]=56\=>\Locate C,D,"C" \Mat A[1,X]=46\=>\Locate C,D,"D" \Mat A[1,X]=36\=>\Locate C,D,"E" \Mat A[1,X]=26\=>\Locate C,D,"F" \Mat A[1,X]=75\=>\Locate C,D,"G" \Mat A[1,X]=65\=>\Locate C,D,"H" \Mat A[1,X]=55\=>\Locate C,D,"I" \Mat A[1,X]=45\=>\Locate C,D,"J" \Mat A[1,X]=35\=>\Locate C,D,"K" \Mat A[1,X]=25\=>\Locate C,D,"L" \Mat A[1,X]=74\=>\Locate C,D,"M" \Mat A[1,X]=64\=>\Locate C,D,"N" \Mat A[1,X]=54\=>\Locate C,D,"O" \Mat A[1,X]=73\=>\Locate C,D,"P" \Mat A[1,X]=63\=>\Locate C,D,"Q" \Mat A[1,X]=53\=>\Locate C,D,"R" \Mat A[1,X]=43\=>\Locate C,D,"S" \Mat A[1,X]=33\=>\Locate C,D,"T" \Mat A[1,X]=72\=>\Locate C,D,"U" \Mat A[1,X]=62\=>\Locate C,D,"V" \Mat A[1,X]=52\=>\Locate C,D,"W" \Mat A[1,X]=42\=>\Locate C,D,"X" \Mat A[1,X]=32\=>\Locate C,D,"Y" \Mat A[1,X]=71\=>\Locate C,D,"Z" \Mat A[1,X]=61\=>\Locate C,D," " \Mat A[1,X]=51\=>\Locate C,D,"." X+1\->X C+1\->C \If X=Q \Then \GotoB \IfEnd \If C=19 \Then 1\->C D+1\->D \IfEnd \GotoA \Lbl B \If \Getkey=31 \Then \ClrText \Stop \IfEnd \GotoB %End