Forum CDRinfo.pl - Delphi szyfrowanie plikow

Forum CDRinfo.pl (https://forum.cdrinfo.pl/)

- Off topic (https://forum.cdrinfo.pl/f5/)

- - Delphi szyfrowanie plikow (https://forum.cdrinfo.pl/f5/delphi-szyfrowanie-plikow-31746/)

Delphi szyfrowanie plikow

Witam ! Mam mały problem co do znalezienia na stronkach o programowaniu opisu , gotowego kodu źródłowego,czy jakiegos wyjasnienia do programu który by szyfrował tekst na wartość heksadecymalna i spowrotem. Potrafie szyfrować same liczby i je odkodować ale z tekstem jest juz gorzej. Jeżeli by ktoś mógł napisać takie funkcje (kodujaca,dekodujaca) to bym byl wdzieczny.

Pozdrawiam @ndy

Przykładu takiego szyfrowania nie widziałem ale wydaje mi się ze powinieneś pobrać kod ascii każdej litery a potem to zamienić na hex

Spróbuj tego szyfrowania metodą xorowania. Kodowanie i dekodowanie wymaga podania tego samego klucza

Kod:

procedure TForm1.BitBtn1Click(Sender: TObject);



var

 Dlugosc, i: Integer;

 Znak: Char;

 zmienione: String;

  klucz:integer;



begin

klucz:=strtoint(edit3.Text);

zmienione:= memo1.text;

Dlugosc :=Length(memo1.text);

for i :=1 to Dlugosc do

 begin

  znak :=zmienione[i];

  znak :=Chr(Ord(znak) xor klucz);

  zmienione[i] :=Znak;

 end;

memo2.text:=zmienione;

end;

wejdź na http://www.4programmers.net/ znajdziesz tam dużo przydatnych informacji pozdrawiam