je n'arrive pas à changer une chaîne de caractère dans mon programme Delphi XOR

Question

Bonjour à tous , 
Je souhaite crypter une chaîne de caractère en xor  'TIEfmfufLfzB' 
J'ai un problème lors de la compilation sous delphi 7 , mon programme s'ouvre et se referme aussitôt !!! 

function CryptDeCrypt(St:string;Key:integer):string;
var i:byte;
StCrypt:string;
begin
StCrypt:='TIEfmfufLfzB';
for i:=1 to Length(St) do
StCrypt:=StCrypt+Char(Byte(St[i]) xor Key ror 12);
result1:=StCrypt;
end;


Voici un string que je cherche à crypter 
NewSHDeleteKey := NewGetProcAddress('timxbqj/emm','TIEfmfufLfzB');

Merci de votre aide je débute en Delphi 

Qui Aime le Miel  Doit Avoir Le Courage d'affronter les Abeilles

korgis · Answer

Salut,

C'est quoi "NewGetProcAddress" ?

cs_cantador · Answer

ça ne compile pas..

maintenant si :


function CryptDeCrypt(St: string; Key: integer): string;
var
  i: byte;
  StCrypt: string;
begin
  StCrypt := 'TIEfmfufLfzB';
  for i := 1 to Length(St) do
    StCrypt := StCrypt + Char(Byte(St[i]) XOR Key OR 12);
  result := StCrypt;
end;



cantador

bigrat · Answer

Mon programme compile par contre il ne fonctionne plus au bout de 2 secondes il se ferme tout seul .Une fois que j'ai remplacé la chaîne en result .





Qui Aime le Miel  Doit Avoir Le Courage d'affronter les Abeilles

bigrat · Answer

//
  function CryptDeCrypt(St: string; Key: integer): string;
var
  i: byte;
  StCrypt: string;
begin
  StCrypt := 'TIEfmfufLfzB';
  for i := 1 to Length(St) do
    StCrypt := StCrypt + Char(Byte(St[i]) XOR Key OR 12);
  result := StCrypt;
end;
//

Quand je modifie 'TIEfmfufLfzB' par result le programme ne marche pas j'ai 3 fonctions qui utilise TIEfmfufLfzB 

 
NewSHDeleteKey := NewGetProcAddress('timxbqj/emm','TIEfmfufLfzB');
NewSHDeleteKey := NewGetProcAddress('timxbqj/emm','TIEfmfufLfzB');
NewSHDeleteKey := NewGetProcAddress('timxbqj/emm','TIEfmfufLfzB');





Qui Aime le Miel  Doit Avoir Le Courage d'affronter les Abeilles

cs_cantador · Answer

je repose la même question que Korgis :

quelle est l'articulation entre 
CryptDeCrypt et
NewGetProcAddress ?

cantador

Je n'arrive pas à changer une chaîne de caractère dans mon programme Delphi XOR

5 réponses

Votre réponse

Discussions similaires