Delphi szyfrowanie plikow

[andy]

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

[Ziele]

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

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;

[.::MARCIN::.]

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