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;