1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Tr*ack*back Sp*eed - anyone used it?

Discussion in 'Black Hat SEO Tools' started by Gamma1, May 19, 2008.

  1. Gamma1

    Gamma1 Newbie

    Joined:
    Apr 21, 2008
    Messages:
    18
    Likes Received:
    2
    Did anyone have the pleasure to try Tr*ack*back Sp*eed

    PHP:
    http://www.dummysoftware.com/trackbackspeed.html
    and how does it compare to other automatic Trackback poster?

    Thanks
     
  2. MoneyMafia

    MoneyMafia Regular Member

    Joined:
    Dec 2, 2007
    Messages:
    290
    Likes Received:
    310
    Do u have a cracked version?
     
  3. nicksor

    nicksor BANNED BANNED

    Joined:
    May 19, 2008
    Messages:
    76
    Likes Received:
    7
    I wrote a perl app that will do that. All you need is a list of 'ping servers', http proxies and the following perl modules:

    LWP
    HTTP::Request
    Parallel::ForkManager

    edit: If you want to ride bareback/not use a proxy list, just set use_proxy => 0 ,
    Enjoy.

    Code:
    #!/usr/bin/perl
    
    use strict;
    use LWP::UserAgent;
    use HTTP::Request::Common;
    use Parallel::ForkManager;
    
    	my $self = {}; 
    	bless $self;
    	
    	my %config;
    	%config = (
    	use_proxy => 1,
    	proxy_list => "proxies.txt",
    	ping_servers => "pinglist.txt",
    	blog_list => "urls.txt",
    	max_threads=>5,
    	); 
    	
    	my $pm = new Parallel::ForkManager();
    	$pm = new Parallel::ForkManager($config{max_threads});
    
    	my ($ping_list,$ping_source,$ip_list) = @ARGV;
    	my (@ping_urls) = load_file($config{ping_servers});
    	my (@ping_blogs) = load_file($config{blog_list});
    	
    	if ($config{use_proxy}) { my (@proxies) = load_file($config{proxy_list}); }
    	
    	foreach my $blogs_to_ping (@ping_blogs) {
    	
    			my $pid = $pm->start and next;
    			
    			foreach  my $ping_servers (@ping_urls) {
    								my $localip = $local_ips[int(rand($#local_ips))];
    								my $ur) = $blogs_to_ping;
    								my $ping_resp = weblogUpdatesPing($ping_servers,"http://$url",$localip);
    								sleep(5);
    								if ($ping_resp=~/error/) {
    									print "posting error: $ping_serversn";
    									open(OUT,">>bad_ping_servers.txt");
    									print OUT "$ping_serversn";
    									close(OUT);
    								} 
    								
    								if ($ping_resp=~/good/) {
    									print "good ping: $ping_serversn";
    								}
    								
    								}	
    	
    	$pm->finish;
    }
    $pm->wait_all_children;
    
    
    
    
    
    sub load_file {
    my ($fname) = @_;
    my (@fhin);
    			open(FH,"$fname") || die "can't open $fname: $0";
    				
    				while (<FH>) {
    						s/n//g;
    						push(@fhin,$_);
    				}
    				
    			close(FH);
    			return(@fhin);
    }
    
    sub weblogUpdatesPing
    {
        
        my ($ping_url,$blog,$localaddr) = @_;
        my $errorcode;
        my $userAgent = LWP::UserAgent->new(agent=>'WordPress/2.0.2', timeout=>'20');
      	
      	if ($config{use_proxy}) {
      	$userAgent->proxy('http',int(rand($#proxies));
      	}
      	
        
        my $rand_alpha = generate_random_string(30);
        my $pingStr =
            "<?xml version="1.0"?>" .
            "<methodCall>" .
            "    <methodName>weblogUpdates.ping</methodName>" .
            "    <params>" .
            "        <param><value>$rand_alpha</value></param>" .
            "        <param><value>$blog</value></param>" .
            "    </params>" .
                "</methodCall>";
    			my $response = $userAgent->request(POST $ping_url, Content_Type => 'text/xml', Content => $pingStr);
    			
    			 
    			if ($response->is_success) {
    				$errorcode="good";
    				return($errorcode);
    			}
    			else {
    				 $errorcode = "error";
    				 print $response->error_as_HTML;
    				 return($errorcode);
    			}
    			
    			
    			
    }
    
    sub generate_random_string
    {
    	my $length_of_randomstring=shift;
    	my @chars=('a'..'z','A'..'Z','0'..'9','_');
    	my $random_string;
    	foreach (1..$length_of_randomstring) 
    	{
    		$random_string.=$chars[rand @chars];
    	}
    	return $random_string;
    }
    
     
    Last edited: May 19, 2008
  4. jdmeg6

    jdmeg6 Junior Member

    Joined:
    Mar 31, 2008
    Messages:
    113
    Likes Received:
    15
    Location:
    Mass
    im also looking for that software, someone please post it
     
  5. Gamma1

    Gamma1 Newbie

    Joined:
    Apr 21, 2008
    Messages:
    18
    Likes Received:
    2
    Thanks nicksor, however I am more interested in a trackback poster then a pinger. If anyone has any experience with it - please share your knowledge about this tool. Thank you