2b2ksHHX

1use LWP::UserAgent;
2use LWP::Protocol::socks;
3use strict;
4use warnings;
5
6my $proxy = 1;
7my $password = '';
8my @emails = (	'@gmail.com',
9				'@gmail.com',
10				'@gmail.com',
11				'@gmail.com'
12				);
13my @names = (	'Name1',
14				'Name2',
15				'Name3',
16				'Name4'
17				);
18my @proxies = (	'127.0.0.1:9050',
19				'127.0.0.1:9050',
20				'127.0.0.1:9050',
21				'127.0.0.1:9050'
22				);
23my $lc = 0;
24my $outFile = 'generated.txt';
25open(my $fh, '>', $outFile);
26foreach my $n (@emails) {
27	my $cn = $names[$lc];
28	my $s5 = $proxies[$lc];
29	my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0 (Windows NT 6.3; rv:36.0) Gecko/20100101 Firefox/36.0');
30	my $uri = 'https://secure.runescape.com/m=account-creation/g=oldscape/create_account_funnel.ws';
31	$ua->proxy([qw(http https)] => 'socks://' . $s5 . ':1080');
32	$ua->cookie_jar({});
33	my $nullData = $ua->post($uri, { 'trialactive' => 'true%2522',  'onlyOneEmail' => '1', 'age' => '20', 'displayname_present' => 'true', 'displayname' => "" . $cn . "", 'email1' => "" . $cn . $n . "", 'password1' => $password, 'password2' => $password, 'agree_email' => 'on', 'agree_pp_and_tac' => '1', 'submit' => 'Join+Now'});
34	print $fh "" . "tor:327:" . $cn  . $n . ":" . "scriptid:params" . "\n";
35	$lc++;
36}
37print $fh "\n\n\n\n END OF GEN\n";
38close $fh;