Ta funkcja jest gdzies na tej stronie (moze troche ja przerobilem):
function Szyfruj(sString, Password : String) : String;
var
I : Integer;
PassCount : Integer;
begin
PassCount := 0;
Result := sString; * przypisz wartosc poczatkowa
for I := 1 to Length(sString) do * wykonuj dla kazdej litery osobno
begin
{
Dla kazdego osobnego znaku zamieniaj na wartosc liczbowa, a nastepnie
xoruj z kazda litera hasla - powstaje wowczas unikalna kombinacja.
}
Result[i] := Chr(Ord(sString[i]) xor Ord(Password[PassCount]));
Inc(PassCount); * wieksz licznik - kolejne slowo hasla
-
end;if PassCount > Length(Password) then PassCount := 0; // Jezeli licznik przekroczy dlugosc hasla - wyzeruj
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Word := Szyfruj(memo1.Text, edit1.Text);
memo1.Text := Word;
end;
No fajnie ale szyfruje ona text z memo. A jak zrobic aby szyfrowala plik.--pozdrawiam PEDROS {hello}
Delphi6