Авторские статьи Спам социальных сетей на примере вконтакте.ру

Discussion in 'Статьи' started by diehard, 28 Feb 2008.

  1. Piflit

    Piflit Banned

    Joined:
    11 Aug 2006
    Messages:
    1,249
    Likes Received:
    585
    Reputations:
    31
    вы руками спамите что ли?)
     
  2. xXvladXx

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

    Joined:
    28 Oct 2007
    Messages:
    77
    Likes Received:
    54
    Reputations:
    5
    написал на перле спамер
    Code:
    #######################
    #####vkontakte must die######
    ######(C) xXvladXx#########
    #######################
    #!/usr/bin/perl
    use strict;
    use IO::Socket;
    use Digest::MD5;
    my $md5 = Digest::MD5->new;
    $|=1;
    open ACC,"good.txt";
    my @acc=<ACC>;
    close ACC;
    my @mess=();
    @mess[0]='месага номер один';
    @mess[1]='месага номер два';
    my @title=();
    @title[0]='Заголовок 1';
    @title[1]='Заголовок 2';
    my @account=();
    my @cookie=();
    my @friend=();
    my $numb=0;
    print "\r Cookie";
    foreach (@acc){
    	my @acs=split(/:/,$_);
    	my $m=@acs[1];
    	$m=~ s/\@/%40/;
    	@cookie[@acs[0]]="Cookie: remixchk=5; remixmid=".@acs[0]."; remixemail=".$m."; remixpass=".md5c(@acs[2])."\r\n";
    	@account=(@account,@acs[0]);
    }
    
    foreach(@account){
    	print "                                                   ";
    	print "\r Parse friend $_";
    	my $acf=$_;
    	my $res=get('/friend.php',@cookie[$acf],'GET','');
    	my @temp = $res=~/\[.*\, \{f/gi;
    	foreach (@temp){
    		my $fr=$_;
    		$fr=~ s/\[//g;
    		$fr=~ s/\, \{f//;
    		$fr=~s/\n//;
    		@friend[$acf].=$fr."--";
    		
    	}
    }
    for(my $i=0;;$i++){
    	my $en=0;
    	foreach(@account){
    		my $n=$_;
    		$n=~s/\n//;
    		my $frs=@friend[$n];
    		my @frens=();
    		@frens=split(/--/,$frs);
    		if(@frens[$i] ne ''){
    			$en=1;
    			&send_msg(@frens[$i],@mess[$numb],@title[$numb],@cookie[$n]);
    			print "                                                   ";
    			print "\r Send msg acc $n friend $i ";
    			select(undef, undef, undef, 0.2);
    		}
    		
    		
    	}
    	if($en==0){
    	last;
    	}
    	if($numb==0){
    		$numb=1;
    	}else{
    		$numb=0;
    	}	
    	
    }
    
    
    
    sub md5c{
    my ($dat)=@_;
    $dat=~s/\n//;
    $md5->add($dat);
    return $md5->hexdigest;
    }
    
    sub get{
    my $host = "vkontakte.ru";
    my $port = "80";
    my ($path,$cookie,$type,$post)=@_;
    my $socket;
    while ( ! ($socket = IO::Socket::INET->new("$host:$port") ) ) {
      print ("Not connected: $!\nSleep 1 sec\n");
      sleep 1;
    }
    unless ($socket) {die "can't connect to HTTP server on $host:$port: $!"}
    $socket->autoflush(1);
    
    my $header="$type $path HTTP/1.0\r\n".
    				"Accept: */*\r\n".
    				"Accept-Language: ru\r\n".
    				"Content-Type: application/x-www-form-urlencoded\r\n".
    				"Proxy-Connection: Keep-Alive\r\n".
    				"Host: vkontakte.ru\r\n";
    if($post){
    $header.="Content-Length: ".length($post)."\r\n";
    }
    $header.="$cookie\r\n".
    		"$post".
    		"\r\n";
    print $socket  "$header";
    my @rz = <$socket>;
    close $socket;
    return join("\n",@rz);
    }
    sub send_msg{
    	my ($to,$msg,$title,$cookie)=@_;
    	my $res=get('/mail.php?act=write&to='.$to,$cookie,'GET','');
    	if($res=~/name\=\"secure\" value\=\"(.*)\" \/>/){
    		&get('/mail.php',$cookie,'POST',"secure=".$1."&photo=&to_id=".$to."&to_reply=0&act=sent&title=".$title."&message=".$msg);
    	}
    }
    рядом со скриптом надо положить файл accs.txt
    в формате
    id:login:pass
    пример
    5434862:[email protected]:123456
    сильно не пинайте)
     
    #22 xXvladXx, 4 May 2008
    Last edited: 6 May 2008
    3 people like this.
  3. AlexV

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

    Joined:
    29 Feb 2008
    Messages:
    173
    Likes Received:
    550
    Reputations:
    81
    И как!? Дейстиветельно работает!?
     
  4. diehard

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

    Joined:
    30 Sep 2007
    Messages:
    442
    Likes Received:
    266
    Reputations:
    15
    Hint-1:
    Если юзер запретил не-друзьям слать ему в ПМ, его тем не менее можно заставить прочитать сообщение путем добавления его в друзья с приложенным сообщением.
    :)

    Hint-2:
    Ввели новое подобие защиты: выкупаются повторяющиеся цепочки сообщений, т.е. трюк с двумя попеременным сообщениями уже не проходит. Обходится рандомизацией сообщения
    :)
     
  5. Saymon86

    Saymon86 New Member

    Joined:
    13 Apr 2012
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    было интересно почитать, но пользы от того не много, всё устарело.
     
  6. Radiator

    Radiator Active Member

    Joined:
    17 Mar 2009
    Messages:
    394
    Likes Received:
    143
    Reputations:
    24
    Археолог блин, тема 2008 года, 4 года прошло))))))
     
  7. Synd1

    Synd1 New Member

    Joined:
    10 Sep 2012
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    Автор молодец, хорошая статья
     
  8. Duskly

    Duskly Banned

    Joined:
    5 Jan 2012
    Messages:
    68
    Likes Received:
    2
    Reputations:
    -5
    а актуально?
     
  9. RodyMaster

    RodyMaster New Member

    Joined:
    3 Feb 2012
    Messages:
    6
    Likes Received:
    1
    Reputations:
    0

    Спам актуален. Но методы/способы которые в статье почти не актуальны.
     
  10. you_run

    you_run New Member

    Joined:
    7 Jul 2012
    Messages:
    6
    Likes Received:
    1
    Reputations:
    0
    давайте лучше обсудим актуальные методы нынешнего спама, да так, чтоб не банили акки.
     
  11. alfi

    alfi New Member

    Joined:
    4 Mar 2012
    Messages:
    22
    Likes Received:
    1
    Reputations:
    0
    Мне кажется актуального способа спама vk.com уже нет. Активность аккаунта + капча + ограничения вот и все...
     
  12. indeus[R]

    indeus[R] Banned

    Joined:
    22 Nov 2012
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    всё верно. спам вк умер уже год назад окончательно
    и на самом деле это хорошо ;)