ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
19.10.2009, 20:50
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от Almest
Ребята помогите пожалуйста,нужна программа для разработка криптографической защиты данных. После запуска на выполнение программа должна по одному из алгоритмов, использующих генератор случайных чисел, зашифровать информацию, содержащуюся в указанном преподавателем файле, после чего записать файл под другим именем. Далее, по указанию пользователя, необходимо расшифровать записанный файл с помощью того же алгоритма.
Очень нужна помощь,спасибо за внимание..
Прочитай внимательней назватие раздела: "ЗАДАЙ ВОПРОС". Где твой вопрос? Где то, что ты уже пытался сделать? Или ты думаешь зарегался на форуме и тебе в тот же день готовую программу напишуту? Делать всем болье нечего. Покажи, что ты пробовал и тебя поправят, если что не так. Тут екстасенсов нету. А если у тебя лабораторная то тебе в другой раздел. Ну а если софт нужно нормальный написать то это за деньги.
|
|
|
19.10.2009, 21:12
|
|
Постоянный
Регистрация: 06.02.2009
Сообщений: 385
Провел на форуме:
2920922
Репутация:
230
|
|
Может потому что я в этой графе вин uin не ввел?
 |
|
|
|
19.10.2009, 21:21
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от BlackSite
Может потому что я в этой графе вин uin не ввел?
Вот кусок из моих сорцов:
Код:
uses icqworks;
procedure TForm1.FormCreate(Sender: TObject);
...
ICQClient1.UIN:=уин;
ICQClient1.Password:='пас';
ICQClient1.Login(0, false);
...
procedure TForm1.BtnSendClick(Sender: TObject);
begin
ICQClient1.SendMessage(StrToInt(Edit1.Text), Memo1.Lines.Text);
end;
procedure TForm1.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
ErrorMsg: String);
begin
MemoError.Lines.Add(ErrorMsg);
end;
Но есть одно "НО". Много раз логиниться с одного уина нельзя, его блочат на 10-20 мин.
Последний раз редактировалось =Zeus=; 19.10.2009 в 21:30..
|
|
|
|
19.10.2009, 21:37
|
|
Постоянный
Регистрация: 06.02.2009
Сообщений: 385
Провел на форуме:
2920922
Репутация:
230
|
|
Все проблему решил всем спасибо
|
|
|
|
20.10.2009, 19:33
|
|
Новичок
Регистрация: 07.08.2009
Сообщений: 1
Провел на форуме:
6298
Репутация:
0
|
|
Народ помогите решить задачку на Pascal.
X ребят расположены по кругу. Начав счёт от первого удаляют каждого i-го, смыкая круг после каждого удаления. Определить номер последнего оставшегося.
Заранее спасибо.
|
|
|
|
21.10.2009, 02:48
|
|
Новичок
Регистрация: 25.05.2009
Сообщений: 15
Провел на форуме:
269065
Репутация:
6
|
|
bmp152, т.к. сам ковырялся с проблемой, обнаружил решение у буржуев.
- открываем IdMultipartFormData.pas
- заменяем 574 строку на Result := Result + LEncoding.GetByteCount(TStrings(FieldObject).Text) ;
- заменяем 582 строку на Result := Result + TStream(FieldObject).Size;
- заменяем 306 строку на FSize := FSize + LItem.FieldSize + 2;
Перекомпилируем. И ура - последняя ревизия индюши работает как часы.
хм, ясн, спасибо конечно, ток я тож 10.5.5 поставил обратно 
а у вас какая версия щас стоит? и чем вообще 10.5.7 отличается от 10.5.5 не в курсе случайно?
|
|
|
|
21.10.2009, 03:18
|
|
Banned
Регистрация: 25.11.2007
Сообщений: 62
Провел на форуме:
1702086
Репутация:
89
|
|
bmp152, если я не ошибаюсь, почти год уже прошел с выпуска 10.5.5. Соответственно - год доработок. Отличия и историю можно в svn-клиенте прочесть.
У меня - 10.5.7
|
|
|
|
21.10.2009, 05:01
|
|
Новичок
Регистрация: 25.05.2009
Сообщений: 15
Провел на форуме:
269065
Репутация:
6
|
|
bmp152, если я не ошибаюсь, почти год уже прошел с выпуска 10.5.5. Соответственно - год доработок. Отличия и историю можно в svn-клиенте прочесть.
У меня - 10.5.7
Ясн, значит на досуге буду снова ставить 7ю.
У меня еще такой вопос ко всем: при постинге в мамбу никак не могу решить проблему с кодировкой кириллицы:
Например постим в "обо мне":
Если постить через браузер слово "Привет!" - сниффер показывает вот это:
Код:
s=afzXkx4HfgPnZSz1UIBPje57p2cqfwZm
s_post=pqJfZufv5g3yKYybLlVNW0Nbugt7qT39
tcurl=
action=post
noerror=0
aboutme=Привет!
При постинге через прогу:
Код:
s=wo2.Z47FJpmoAHLelvQj.1sQfbJ8fUEa
s_post=Ygvvndc1lW368beAcf9pCtapQCwdEXJs
tcurl=
action=post
noerror=0
aboutme=Привет!
При этом инфа в поле "обо мне" не появляется, если писать что-нибудь на английском - то все норм работает
Пробовал так (нашел на каком-то форуме, сработало для "дамочка.ру", только там было наоборот - для браузера сниффер показывал норм. текст, для программы - кракозябры):
Код:
var
ss: TStringStream;
s,s2,s3,s4,s5,s6: UTF8String;
........
http_client.Request.ContentType:='application/x-www-form-urlencoded';
ss := TStringStream.Create('10');
s :=s;
s2 :=s_post;
s3 :='';
s4 :='post';
s5 :='0';
s6 :='Привет!';
ss.WriteString('s='+s+'&s_post='+s2 + '&tcurl=' + s3 + '&action=' + s4 + '&noerror=' + s5 + '&aboutme=' + s6);
responseres.Text:=http_client.Post('http://mamba.ru/my/edit_aboutme.phtml',ss);
- на выходе то же самое. Кто сталкивался, объясните пожалуйста в чем вообще проблема? по идее на мамбе utf-8 и клиент должен постить вроде как в ней же.
Последний раз редактировалось bmp152; 21.10.2009 в 05:08..
|
|
|
|
21.10.2009, 14:45
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Как секунды переделать в чч..чч(чч):мм:сс
Проще говоря из 120 сделать 00:02:00
|
|
|
|
21.10.2009, 16:08
|
|
Banned
Регистрация: 25.11.2007
Сообщений: 62
Провел на форуме:
1702086
Репутация:
89
|
|
bmp152, и вы туда же... Ну да ладно.
Ansitoutf8 ('Привет');
Последний раз редактировалось Пуховой; 21.10.2009 в 16:12..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
