Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
ВнизПомогите пожалуйста! Найти похожие ветки
← →
Фэ (2002-02-01 12:34) [2]Например таблица подстановки.
Таблицу составляешь случайным перемешиванием, реверсом..
Вход через table[ord(ch)] для байт-кодировок
Или через XOR-перемешивание
mask = "EЖV7V5G"#39"Ццv7"#20#39"VДЦFFVц";
function Decrypto(const str: string): string;
var n: integer;
begin
result := "";
for n:=1 to length(str) do
result:=result+
chr(ord(str[n]) xor ord(mask[((n-1) mod length(mask)) +1]));
end;
function Encrypto(const str: string): string;
begin
result:=Decrypto(str);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.009 c