Hellow all !
Aujourd'hui je vais vous montrer comment créer votre skype resolver sans avoir besoin d'une API. C'est simple et gratuit ;)
Pour cela nous allons utiliser ce site de resolver: Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Donc le but sera d'envoyer une requête POST comme le fais le formulaire sur le site et de récupérer l'ip afficher sur le site.
Je vous donne un module commenté que j'ai fais afin de vous faciliter le travail :)
Comment l'installer ? Créez un nouveau fichier module, supprimez le contenu par défaut et copiez/collez le code ci dessous:
Voici les deux fonctions du modules:
Voila, le Skype resolver durera aussi longtemps que le site existera normalement :)
C'est la fin de ce tutoriel, si vous ne comprenez pas quelque chose ou si vous avez des remarques/critiques/améliorations a dire n'hésitez pas a commenter :)
Aujourd'hui je vais vous montrer comment créer votre skype resolver sans avoir besoin d'une API. C'est simple et gratuit ;)
Pour cela nous allons utiliser ce site de resolver: Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Donc le but sera d'envoyer une requête POST comme le fais le formulaire sur le site et de récupérer l'ip afficher sur le site.
Je vous donne un module commenté que j'ai fais afin de vous faciliter le travail :)
Comment l'installer ? Créez un nouveau fichier module, supprimez le contenu par défaut et copiez/collez le code ci dessous:
Code:
' ##########################################################
' # Credit: Astropilot - CheatGam3 #
' # Please leave credits if you re-share it ^^ #
' ##########################################################
Imports System.Net
Imports System.Threading
Imports System.Text
Imports System.IO
Imports System.Text.RegularExpressions
Module SkypeResolver
Private Function sendPOST(ByVal url As String, ByVal dataToPost As String) As String
Dim str2 As String = Nothing
Dim thread As New Thread(Sub()
Try
Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
request.Method = "POST"
request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:23.0) Gecko/20100101 Firefox/23.0"
request.ContentType = "application/x-www-form-urlencoded"
request.KeepAlive = True
request.Referer = url
request.AllowAutoRedirect = True
Dim buffer As Byte() = Encoding.ASCII.GetBytes(dataToPost)
request.ContentLength = buffer.Length
Dim requestStream As Stream = request.GetRequestStream
requestStream.Write(buffer, 0, buffer.Length)
requestStream.Flush()
requestStream.Close()
Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
str2 = New StreamReader(response.GetResponseStream).ReadToEnd
Catch exception As Exception
End Try
End Sub)
thread.Start()
thread.Join()
Return str2
End Function
Public Function SkypeToIp(ByVal SkypeUsername As String) As String
Try
Dim dataToPost As String = String.Concat(New String() {"&skypeUsername=", SkypeUsername, "&submit=", ""}) 'On défini ici les paramètres a envoyer sur la page.
Dim src As String = Nothing 'Ici nous stockerons le code html qu'on récuperera sur la page
src = sendPOST("http://resolvethem.com/index.php", dataToPost) 'On envois la requete avec les paramètres et on met le code retour dans la variable src
Dim pattern As String = "class\=\'alert alert\-success\'\>(\d+\.\d+\.\d+\.\d+)\<center\>" 'Ici c'est le pattern qui va nous permettre d'extraire l'ip du code html :)
Dim match = Regex.Match(src, pattern) 'La on lance le Regex sur le code html avec le pattern défini juste avant
If match.Success Then 'Si on a un résultat (donc l'ip trouvé)
Return match.Groups(1).Captures(0).Value 'On retourne le resultat
Else 'Si l'opération de recherche échoue
Return "Failed" 'On retourne une erreur
End If
Catch ex As Exception
Return ex.Message
'Le Try/Catch permet d'éviter d'avoir des erreurs qui s'affiche en cas de problème :)
End Try
End Function
Public Function IpToSkype(ByVal Ip As String) As String
Try
Dim dataToPost As String = String.Concat(New String() {"&ip=", Ip, "&submit=", ""}) 'On défini ici les paramètres a envoyer sur la page.
Dim src As String = Nothing 'Ici nous stockerons le code html qu'on récuperera sur la page
src = sendPOST("http://resolvethem.com/ip2skype.php", dataToPost) 'On envois la requete avec les paramètres et on met le code retour dans la variable src
Dim pattern As String = Ip.Replace(".", "\.") & "\: \<\/br\>([^']+) \<\/div\>" 'Ici c'est le pattern qui va nous permettre d'extraire le skype du code html :)
Dim match = Regex.Match(src, pattern) 'La on lance le Regex sur le code html avec le pattern défini juste avant
If match.Success Then 'Si on a un résultat (donc l'ip trouvé)
Return match.Groups(1).Captures(0).Value.Replace(" </div></center>", "") 'On retourne le résultat
Else 'Si l'opération de recherche échoue
Return "Failed" 'On retourne une erreur
End If
Catch ex As Exception
Return ex.Message
'Le Try/Catch permet d'éviter d'avoir des erreurs qui s'affiche en cas de problème :)
End Try
End Function
End Module
Voici les deux fonctions du modules:
Code:
Dim ipresolved As String = SkypeToIp("LeSkype") 'Permet de récupérer l'ip d'un skype
Dim skyperesolved As String = IpToSkype("127.0.0.1") 'Permet de récupérer le skype associé a l'ip
Voila, le Skype resolver durera aussi longtemps que le site existera normalement :)
C'est la fin de ce tutoriel, si vous ne comprenez pas quelque chose ou si vous avez des remarques/critiques/améliorations a dire n'hésitez pas a commenter :)
Last edited: