Форум АНТИЧАТ - [Delphi]/[Pascal] Задай вопрос, получи ответ

#11

19.06.2008, 23:28

A2GIL

Познающий

Регистрация: 31.08.2007

Сообщений: 94

Провел на форуме:
422909

Репутация: 200

Отправить сообщение для A2GIL с помощью ICQ

2 Nightmare

Ну ты же просил по легче=) Вот тебе по сложнее. Шифрование алгоритмом
RC5 (Шифрование потоков). Модуль и пример прилагаются):

www.aladin88.jino-net.ru/RC5.rar

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 m:TStream;
begin
//Key - строковый ключ-пароль
 m:=TFileStream.Create('C:\1.exe',fmOpenWrite);
 if EncryptStream(m,m.Size,'megapassword') then
 showmessage('Successfully encoded');
 m.free;
end;

p.s. Шифрование текста и бинарников производится по разному, так что твоя функция не подойдет
Тебе что ли очень коденфициальные данные шифровать нужно?

2 rankor777

Тебе какие арифю операции нужны? Можно использовать стандартный модуль Math

2 Dr. Bodja

Конечно, иконку можно поместить так.
Сначала подключаешь модуль ShellApi

Код:

//Помещение иконки в Tray Bar
procedure TForm1.Button1Click(Sender: TObject);
var no:TNotifyIconData;
Hicon1:HIcon;
begin
HIcon1:=ExtractIcon(Handle,'C:\icon.ico',0);
with no do begin
cbSize:=Sizeof(TNotifyIconData);
Wnd:=Handle;
uID:=0;
UFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;
SzTip:='Traybar Tip';
HIcon:=HIcon1;
uCallBackMessage:=WM_USER+0;
end;
Shell_NotifyIcon(NIM_ADD,@no);
end; 

//Для того, чтобы удалить иконку 
procedure TForm1.Button2Click(Sender: TObject);
var no:TNotifyIconData;
begin
//Удаление иконки
with no do begin
cbSize:=Sizeof(TNotifyIconData);
Wnd:=Handle;
uID:=0;
end;
Shell_NotifyIcon(NIM_Delete,@no);
end;