19.06.2008, 16:32
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
С нами:
9839462
Репутация:
200
|
|
Сообщение от Nightmarе
Ага спс, а дальше всего то АСМ выучить и только...
Я просил рабочий код, а это я никогда в рабочее состояние не приведу.
У меня уже есть свой готовый алгоритм шифрования с открытым ключём, обычный текст шифрует замечательно, а вот как с бинарным кодом быть...
Еще вот простенький модуль (без асм вставок) для щифрования исполняемых файлов:
Скачать (Crypting)
Пользоваться так, к примеру:
Код:
var
procedure TForm1.Button1Click(Sender: TObject);
var
key:TWordTriple;
begin
key[0]:=1; key[1]:=2; key[2]:=3;
FileEncrypt('C:\123.exe','C:\new123.exe',key);
{FileDecrypt('C:\new123.exe','C:\new123.exe',key,true);}
end;
|
|
|