usr bin perl -W use strict use IO Socket my email pass tttyyy333 rambl

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
#!/usr/bin/perl -W
use strict;
use IO::Socket;
my ($email, $pass) = ('tttyyy333@rambler.ru', 'dontspeak');
my $content = "email=$email&pass=$pass";
my $socket = IO::Socket::INET->new(PeerAddr => 'vkontakte.ru',
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM) || die "Can't create socket: $@\n";
print $socket "POST /login.php HTTP/1.1\r\n"
."Host: vkontakte.ru\r\n"
."UserAgent: Opera 5.0\r\n"
."Referer: http://vkontakte.ru/\r\n"
."Cookie: remixlang=0; remixchk=5\r\n"
."Connection: close\r\n"
."Content-Type: application/x-www-form-urlencoded\r\n"
."Content-Length: ". length ($content) ."\r\n\r\n"
.$content;
my $ext;
$ext .= $_ while <$socket>;
close $socket;
my @data = $ext =~ /remixmid=(\d+)
.*
remixpass=([a-f0-9]{32})
.*
remixsid=([a-f0-9]{56})/xs;
if (scalar @data == 3) { &log("[+] LOGIN $email\n") } else { &log("[-] CAN'T LOGIN $email\n"); exit }
$socket = IO::Socket::INET->new(PeerAddr => 'vkontakte.ru',
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM) || die "Can't create socket: $@\n";
print $socket "GET /profileEdit.php?page=photo HTTP/1.1\r\n"
."Host: vkontakte.ru\r\n"
."User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.18) Gecko/20081029 Firefox/2.0.0.18\r\n"
."Connection: close\r\n"
."Cookie: remixlang=0; remixchk=5; remixmid=$data[0]; remixemail=$email; remixpass=$data[1]; remixsid=$data[2]\r\n"
."Cache-Control: max-age=0\r\n\r\n";
$ext = '';
$ext .= $_ while <$socket>;
my @updata = $ext =~ m|method="post" action="http://([^/]+)/([^"]+)" name="editPhoto|;
$socket = IO::Socket::INET->new(PeerAddr => 'vkontakte.ru',
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM) || die "Can't create socket: $@\n";
open IMAGE, '<', 'captcha.jpeg';
my $image;
$image .= $_ while <IMAGE>;
close IMAGE;
$content = qq|------------7d8261342506ef\r\nContent-Disposition: form-data; name="subm"\r\n\r\n1\r\n------------7d8261342506ef\r\nContent-Disposition: form-data; name="photo"; filename="captcha.jpeg"\r\nContent-Type: image/pjpeg\r\n\r\n$image\r\n------------7d8261342506ef--|;
print $socket "POST /$updata[1] HTTP/1.1\r\n"
."Host: $updata[0].vkontakte.ru\r\n"
."User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.18) Gecko/20081029 Firefox/2.0.0.18\r\n"
."Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1\r\n"
."Accept-Language: ru-RU,ru;q=0.9,en;q=0.8\r\n"
."Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1\r\n"
."Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0\r\n"
."Referer: http://vkontakte.ru/profileEdit.php?page=photo\r\n"
."Cookie: remixlang=0; remixchk=5; remixmid=$data[0]; remixemail=tttyyy333%40rambler.ru; remixpass=$data[1]; remixsid=$data[2]\r\n"
."Connection: close\r\n"
."Content-Length: ". length ($content) ."\r\n"
."Content-Type: multipart/form-data; boundary=----------7d8261342506ef\r\n\r\n"
.$content;
$ext = '';
$ext .= $_ while <$socket>;
my ($location) = $ext =~ m|Location: http://vkontakte.ru(.*)|;
if (!defined $location) { print "can't get upload\n"; exit }
$socket = IO::Socket::INET->new(PeerAddr => 'vkontakte.ru',
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM) || die "Can't create socket: $@\n";
print $socket "GET $location HTTP/1.1\r\n"
."Host: vkontakte.ru\r\n"
."User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.18) Gecko/20081029 Firefox/2.0.0.18\r\n"
."Connection: close\r\n"
."Referer: http://vkontakte.ru/profileEdit.php?page=photo\r\n"
."Cookie: remixsid=$data[2]; remixpass=$data[1]; remixemail=tttyyy333%40rambler.ru; remixmid=$data[0]; remixchk=5; remixlang=0\r\n"
."Cache-Control: max-age=0\r\n\r\n";
$ext = '';
$ext .= $_ while <$socket>;
sub log {
open LOG, '>>', 'log.txt';
print LOG $_[0];
print $_[0];
}