PureBasic

Code : Tout sélectionner

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  lettre par lettre : c'est nul  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;    :cry: 
Global txt$, txt2$, key.w

txt$="ßðµæàüæµðûµðóóðáµàûµ÷úáµøôùãðüùùôûáµ´"

Procedure dec_enc(txt$,key.w)
  txt2$=""
  For i=1 To Len(txt$)
    a=Asc(Mid(txt$,i,1))
    a!key
  txt2$+Chr(a)
Next
Debug txt2$
EndProcedure

dec_enc(txt$,149)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;  existe t'il une methode radicale pour X-oriser des blocs 64 bits par 64 bits ?? ;;;;;;;;;;;;;;    :twisted: 

txt1$="Salut la compagnie, ceci est un texte de 37 lettres"
mdp$="brouillage par XOr generé sur txt1$!!!!!!!!!!!!!!!!"


Debug Len(txt1$)
Debug Len(mdp$)

Debug txt1$!mdp$  ; ;    le bonheur ici si ca marchait!!

Code : Tout sélectionner

Procedure.s XOR64(txt$, key$)
  Protected result$, i, blockTxt.q, blockKey.q

  If Len(txt$) <> Len(key$)
    Debug "Erreur : La clé et le texte doivent avoir la même longueur"
    ProcedureReturn ""
  EndIf
  
  For i = 1 To Len(txt$) Step 8
    blockTxt = PeekQ(@txt$ + i - 1)   ; Récupère un bloc de 8 octets du texte
    blockKey = PeekQ(@key$ + i - 1)   ; Récupère un bloc de 8 octets de la clé
    PokeQ(@result$ + i - 1, blockTxt ! blockKey)  ; Stocke le résultat XORisé
  Next
  
  ProcedureReturn result$
EndProcedure

txt1$ = "Salut la compagnie, ceci est un texte de 37 lettres "
mdp$  = "brouillage par XOr generé sur txt1$!!!!!!!!!!!!!!!!"

Debug XOR64(txt1$, mdp$)  ; Chiffre le texte
Debug XOR64(XOR64(txt1$, mdp$), mdp$)  ; Déchiffre