Как зашифровать пароль?

[DeToxic]

Нам задали по криптографии зашифровать пароль,но я ничего не могу понять,может у кого есть уже готовые исходники?

[Sazary]

DeToxic
Ну если ничего не можете понять, то используйте обычный xor.
Он же и для дешифровки.

Пример:

uses crt;
var
s : string;
c : integer;
i : integer;
begin
clrscr;
c := 3;
readln(s);
for i:=1 to length(s) do
 s[i] := chr(ord(s[i]) xor c);
writeln('Stroka posle shifrovaniya:');
writeln(s);
for i:=1 to length(s) do
 s[i] := chr(ord(s[i]) xor c);
writeln('Stroka posle deshifrovki:');
writeln(s);

readln;
end.

[DeToxic]

Сообщение от Sazary

DeToxic
Ну если ничего не можете понять, то используйте обычный xor.
Он же и для дешифровки.

Пример:

uses crt;
var
s : string;
c : integer;
i : integer;
begin
clrscr;
c := 3;
readln(s);
for i:=1 to length(s) do
 s[i] := chr(ord(s[i]) xor c);
writeln('Stroka posle shifrovaniya:');
writeln(s);
for i:=1 to length(s) do
 s[i] := chr(ord(s[i]) xor c);
writeln('Stroka posle deshifrovki:');
writeln(s);

readln;
end.

Можешь на Delphi кинуть?

[Sazary]

Можешь на Delphi кинуть?

А сами что-ли не можете переписать?

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
c,i : integer;
begin
s := Edit1.Text;
c := 1;
for i:=1 to length(s) do
 Edit2.Text := Edit2.Text + chr(ord(s[i]) xor c);
end;

Исходников в интернете куча.