Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
19.06.2008, 23:28
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
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;
|
|
|
19.06.2008, 23:37
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от A2GIL
p.s. Шифрование текста и бинарников производится по разному, так что твоя функция не подойдет
Тебе что ли очень коденфициальные данные шифровать нужно?
Другими словами мой алгоритм абсолютно для этого не пригоден???
Ну в общем щас заценю этот алогритм, мне главное чтобы открытый ключ мог быть полностью свободным текстом, а не только определённые символы.
|
|
|
|
20.06.2008, 01:09
|
|
Banned
Регистрация: 16.07.2007
Сообщений: 79
Провел на форуме:
801879
Репутация:
337
|
|
xaker-boss
1
Код:
var a,b,h,r,v: real;
procedure KoorA(var a,b,h: real);
begin
write('3 Koordinati tochki A: '); read(a,b,h);
end;
begin
writeln('Ob"em czilindra');
write('Vvedite radius: ');
readln(r);
KoorA(a,b,h);
v:=sqr(r)*3.14*h;
writeln('Ob"em czilindra = ',v);
readln
end.
|
|
|
|
20.06.2008, 10:06
|
|
Познающий
Регистрация: 20.05.2008
Сообщений: 81
Провел на форуме:
224517
Репутация:
32
|
|
Сообщение от Dr.Bodja
hoty, у меня тоже такое было, когда стояла Windows XP SP1, всё менялось, когда поставил SP2 - перестало, задал вопрос преподу, он сказал что так и должно быть, то есть на СП2 в паскале язык не меняется.
Смена языка вввода в Pascal 7.0 в ОС с Servise Pack 3 тоже не работает ((
|
|
|
|
20.06.2008, 10:46
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме:
1547094
Репутация:
120
|
|
0verbreaK, Dober'man Прокатило, спасибо вам большое
|
|
|
|
20.06.2008, 17:28
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Ещё два вопроса:
1) я в цикле удаляю кучу файлов пути которых прописанны в memo:
for i:=0 to Memo1.Lines.Count-1 do begin
deletefile(Memo1.Lines[i]);
Так может случиться, что один из файлов занят и его нельзя удалить, так как мне подработать код, чтобы он молча игнорил неудаляемые файлы, ничего не выводил никаких ошибок и дальше удалял файлы ???
2) Я передаю из одного memo в другой пути файлов:
в первом лежит текст в виде:
с:\file.exe.lol
с:\file2.exe.exe2.lol
и т.д... много расширений может быть у файла НО последнее точно .lol
Так вот как мне перегнать весь текст из одного мемо в другой чтобы удалилось только последнее расширение??? (.lol)
|
|
|
|
20.06.2008, 17:55
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
1
Код:
for i:=0 to Memo1.Lines.Count-1 do
if not deletefile(Memo1.Lines[i]) then
Memo2.Lines.Add('НЕ МОГУ УДАЛИТЬ '+Memo1.Lines[i]);
2
Код:
for i:=0 to Memo2.Lines.Count-1 do
Memo3.Lines.Add(ChangeFileExt(Memo2.Lines[i]),'');
Последний раз редактировалось t04; 20.06.2008 в 18:01..
|
|
|
|
20.06.2008, 17:56
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Nightmarе
1.
Код:
for i:=0 to Memo1.Lines.Count-1 do
begin
if not deletefile(Memo1.Lines[i]) then continue; // к следующему файлу
end;
2.
Отрезай с помощью SetLength(), узнавая длину последние символы.
|
|
|
|
20.06.2008, 18:00
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
1
Код:
for i:=0 to Memo1.Lines.Count-1 do
if not deletefile(Memo1.Lines[i]) then
Memo2.Lines.Add('НЕ МОГУ УДАЛИТЬ '+Memo1.Lines[i]);
2
Код:
for i:=0 to Memo2.Lines.Count-1 do
Memo3.Lines.Add(ChangeFileExt(Memo2.Lines[i]),'');
|
|
|
|
20.06.2008, 18:04
|
|
Познающий
Регистрация: 11.01.2008
Сообщений: 42
Провел на форуме:
95213
Репутация:
49
|
|
hexb() мне надо вроде....
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
