Donc ce code est plus simple. Je laisse l'autre dans truc et astuces.
ajout : fonction decryptage. Vous pouvez vous en servir pour faire une attaque par brute force
Code : Tout sélectionner
; /////////////////////////Cryptage Xor///////////////////////
; ////////////////////////Le psychopathe//////////////////////
; ///////////////////////////07/07/2010///////////////////////
; ////////////////////Ajout Modifications SPH ////////////////
; Version commentée : n'hesitez pas à poser des questions
Global txt$="Les symboles cela fait chier en ASCII : é ^^ @"
Global cle$="abcd Ab"
Procedure sendcrypt(txt$,cle$)
pointeur=1
a$="Data.b "
For i=1 To Len(txt$)
b2.b=Asc(Mid(txt$,i,1))
b3.b=Asc(Mid(cle$,pointeur,1))
b.b=b2!b3
a$+Str(b)
If Len(a$)> 150 ; Test si la chaine de donnée fait plus de 150 caractères
Debug a$
a$="Data.b "
Else
If i < Len(txt$)
a$+","
EndIf
EndIf
pointeur+1
If pointeur>Len(cle$)
pointeur=1
EndIf
Next
Debug a$
EndProcedure
Procedure senddecrypt(cle$)
pointeur=1
; recupération des datas :
Restore dta
Debug "Taille du fichier de données = " + Str(?endofmydata - ?dta)
taille = (?endofmydata - ?dta)
For i=1 To taille
Read.b b2.b
b3.b=Asc(Mid(cle$,pointeur,1))
b.b=b2!b3
Final$ = Final$ + Chr(b)
pointeur+1
If pointeur>Len(cle$)
pointeur=1
EndIf
Next
Debug c$
Debug Final$
EndProcedure
sendcrypt(txt$,cle$)
senddecrypt(cle$)
DataSection:
dta:
Data.b 45,7,16,68,83,56,15,3,13,15,1,83,97,1,4,14,2,68,70,32,11,21,66,0,12,73,36,16,65,7,13,68,97,18,33,40,43,67,94,0,-88,66,63,60,67,36
endofmydata:
EndDataSection