PureBasic

; /////////////////////////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