Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];

Вниз

Помогите пожалуйста!   Найти похожие ветки 

← →
Dimka Maslov   (2002-02-01 12:39) [3]

procedure EncodeStr(var Str: string; Key: string);
var
i, lp: Integer;
B: PByte;
begin
lp:=Length(Key);
B:=@Str[1];
Dec(B);
if lp<>0 then for i:=1 to Length(Str) do begin
Inc(B);
B^:=B^ xor Byte(Key[(i mod lp)+1]);
end;
end;

Расшифровывать той-же процедурой

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.003 c