Cytat:
naprafde napisa***322;(a)
Kurcze- nikt mi nie pomoże??
|
To jest w delphi algorytm XOR prosty
idntycznie koduje i dekoduje
begin
AssignFile(text_out, SaveDialog1.Filename);
Rewrite(text_out);
r:=1; // od r:=1 rozpoczyna sie odczyt hasla w petli
for i := 1 to size do
begin
Read(text_in, znak);
temp:=char(ord(znak) xor ord(haslo[r]));
Write(text_out, temp);
r:=r+1;
if r>haslo_long then r:=1;
end;
Poszukaj w necie jest dużo gotowców.