program FuckWithIdiots;
const
Submission_Count = 5000;
Wait_time = 300; // ms
var
Emails: TStringArray;
Name_Words: TStringArray;
function filterpage(page: string): TStringArray;
var
p, c: Integer;
begin
c := 0;
SetLength(Result, 5000);
p := Pos('lblcompname', page);
Delete(page, 1, p+12);
//WriteLn('p=' + toStr(p));
//WriteLn(page);
while (p <> 0) do
begin
p := Pos('</span>', page);
if (p = 0) then break;
Result[c] := copy(page, 1, p-1);
//WriteLn(Format('%d %s', [c, Result[c]]));
Inc(c);
p := pos('lblcompname', page) + 12;
Delete(page, 1, p);
if (c = 5000) then break;
end;
setLength(Result, c);
end;
procedure getNames();
var
page: String;
t: Integer;
begin
WriteLn('Getting random words... This will take some time.');
t := getSystemTime;
page := GetPage('http://www.wordlistgenerator.net/results.aspx?lenmod=' +
'less+than+or+equal+to&len=6®ular=1®ularish=1&irregular=1&select=randomly');
WriteLn(Format('Got Page in.. %ds', [(getSystemTime-t) div 1000]));
Name_Words := FilterPage(page);
WriteLn(Format('Filtered %d pieces.', [Length(Name_Words)]));
end;
function MakePass(): String;
var
len, i: Integer;
begin
Result := '';
len := RandomRange(8, 16);
setLength(result, len);
for i := 1 to len do
case (Random(3)) of
0: Result[i] := chr(RandomRange(97, 122));
1: Result[i] := chr(RandomRange(65, 90));
2: Result[i] := chr(RandomRange(48, 57));
end;
end;
function Random_nums(count: Integer): String;
var
i: Integer;
begin
Result := '';
SetLength(Result, count);
for i := 1 to count do
Result[i] := chr(RandomRange(48, 57));
end;
function Make_Email(): String;
var
l, nL: Integer;
begin
Result := '';
l := Length(Name_Words);
nL := RandomRange(5, 15);
Result := Name_Words[Random(l)];
while (Length(Result) < nL) do
begin
Result := Result + ' '+ Name_Words[Random(l)];
end;
if (Random(2) = 0) then
Result := Result + Random_nums(RandomRange(1, 5));
if (Random(4) = 0) then
Result := Capitalize(Result);
if (Random(3) <> 0) then // not all are emails..
begin
case Random(3) of
0: Result := Replace(Result, ' ', '_', [rfReplaceAll]);
1: Result := Replace(Result, ' ', '.', [rfReplaceAll]);
2: Result := Replace(Capitalize(Result), ' ', '', [rfReplaceAll]);
end;
Result := Result + '@' + Emails[Random(Length(Emails))];
end;
end;
function Make_Pin(): String;
begin
Result := '';
if Random(4) <> 0 then
Result := Random_nums(4);
end;
procedure SubmitInfo(User, Pass, Pin: String);
var
c: Integer;
begin
c := InitializeHTTPClient(false);
AddPostVariable(c, 'User', User);
AddPostVariable(c, 'Pass', Pass);
AddPostVariable(c, 'PIN', Pin);
PostHTTPPageEx(c, 'http://xmlv3bot.comlu.com/php/xavi.php');
FreeHTTPClient(c);
end;
procedure globals();
begin
Emails := ['gmail.com', 'hotmail.com', 'yahoo.com',
'live.ca', 'live.com', 'gmail.net', 'pornhub.com',
'facebook.com', 'yahoo.net', 'zootube.com',
'silly.net', 'gmail.net', 'msn.com', 'msn.ca',
'freenode.net', 'msn.org'];
getNames();
end;
var
i: Integer;
User, Pass, Pin: String;
begin
cleardebug;
globals;
for i := 1 to Submission_Count do
begin
User := Make_Email();
Pass := MakePass();
Pin := Make_Pin();
SubmitInfo(User, Pass, Pin);
WriteLn(Format('%5d U: "%s" P: "%s" #: %s', [i, User, Pass, Pin]));
Wait(Wait_time);
end;
WriteLn(Format('Submitted %d entries.', [Submission_Count]));
end.
Go.
Note: Not endorsed by anyone - including Nava2, use if want to mess with these scammers..
Can anyone read that?
