Stewie Posted July 28, 2013 Share Posted July 28, 2013 The reason people are so easily able to pull your IP right now is because of an exploit in the way Skype is programmed. By making use of this exploit, your IP is exposed as long as Skype is sending/receiving data with your username as long as you are connected to the internet and Skype is on your computer. This is why, despite numerous Skype username and IP changes, you could still be instantly DDOS'd again. The only way to combat this, other than removing Skype or never connecting to the internet without an intermediate connection, is to patch Skype to fix the exploit, effectively blocking Skype resolvers from capturing your IP address. This works for Windows XP and up. You need to have TOR installed. (https://www.torproject.org/) The default configuration (torrc) works with this script as it is. You could also download the Vidalia bundle and change the configurations. There are several YouTube video Tutorials on setting it up with various applications. Make sure to change your IP AFTER patching Skype. You will need to do this because resolvers return the last known good IP if they are unable to find the current one. Quit Skype. Open notepad and copy and paste this VBS script : Set objShell = WScript.CreateObject("WScript.Shell") ss= objShell.RegRead ("HKEY_CURRENT_USER\Software\Skype\Phone\SkypePath") ss= """" + ss + """" 'Add Block rule objShell.run "netsh advfirewall firewall add rule name=""SkypeBlockTCP"" dir=out action=block program=" + ss + " enable=yes protocol=any profile=any" 'Add Allow rule objShell.run "netsh advfirewall firewall add rule name=""SkypeAllowToProxy"" dir=out action=allow program=" + ss + " enable=yes remoteip=127.0.0.1" 'Turn On firewall objShell.run "Netsh advfirewall set allprofiles state on" msgbox "Skype Is Patched Successfully." If you get an error (the box will pop up and disappear, you may not be able to read it). Use this script instead: If WScript.Arguments.length =0 Then Set objShell = CreateObject("Shell.Application") 'Pass a bogus argument with leading blank space, say [ uac] objShell.ShellExecute "wscript.exe", Chr(34) & _ WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1 Else Set objShell = WScript.CreateObject("WScript.Shell") ss= objShell.RegRead ("HKEY_CURRENT_USER\Software\Skype\Phone\SkypePath") ss= """" + ss + """" 'Add Block rule objShell.run "netsh advfirewall firewall add rule name=""SkypeBlockTCP"" dir=out action=block program=" + ss + " enable=yes protocol=any profile=any" 'Add Allow rule objShell.run "netsh advfirewall firewall add rule name=""SkypeAllowToProxy"" dir=out action=allow program=" + ss + " enable=yes remoteip=127.0.0.1" 'Turn On firewall objShell.run "Netsh advfirewall set allprofiles state on" msgbox "Skype Is Tored" End If Save this as dafaq.vbs, make note of the location you saved it in. Hold the Windows key and type r. Use the Browse button to find the VBS file you saved. Select it, and click run. If it was successful you should see a message box indicating it was Patched successfully. DISCONNECT FROM THE INTERNET. I would recommend disconnecting your modem from its power source. Open Skype and navigate to Connection options. Use the following settings (make sure it matches perfectly, otherwise it will not work): Reconnect your internet connection. Change your IP. Connect to Skype. Congrats, you can't be resolved! Credits for found: zaeya Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now