ej ponovo se vratih ovome... uspem da kriptujem string, ali nije kompatibilan sa php-om posle...
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
Cipher: TDCP_rc4;
KeyStr: string;
begin
KeyStr:= '';
Cipher:= TDCP_rc4.Create(Self);
Cipher.InitStr(KeyStr,TDCP_sha1);
for i:= 0 to Memo1.Lines.Count-1 do
Memo1.Lines[i]:= Cipher.EncryptString(Memo1.Lines[i]);
Cipher.Burn;
Cipher.Free;
end;
u delphiju enkodujem string i dobijem neshto :)
ali kad ga base64_decode(string); u php-u, onda ne dobijem enkodovani string :(
u memo-u mi stoji: Memo1
klikom na taster dobijem: 8UZwytA=
php vraca: ñFpÊÐ
verovatno treba KeyStr podesiti.... ili ja nesto totalno pogresno radim? :)
Laravel Srbija.
[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]