Script Vbs anti resolver Skype
Bonjour,
A l'heure où le Ddos existe, je m’intéresse de plus en plus à ce sujet.
J'ai pus constater que l'on pouvait récupérer une adresse IP publique d'un utilisateur rien qu'en utilisant un pseudo Skype et un résolveur .
Un moyen de contourner cela et de paramétrer skype et delancer un script vbs.
Je ne suis pas spécialiste en vbs mais j'aimerai comprendre ce que fait ce script, et peut être essayer de faire les manips manuellement.
Pouvez vous me décrire le script ? (je vais aussi essayer de trouver des tuto m'expliquant le langage)
Merci pour votre aide
Voici le script en question:
Code:
1
2
3
4
5
6
7
8
9
10
| 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 "Votre Skype est desormais équipé d'un antiresolver !" |
