Articoli,howto,guide di programmazione & Informatica generale.

Lo scopo di questa guida è convertire un hash di WinMx in un ip.

Ecco il codice,questa funzione riceve come parametro il nome della chat.

Function convert_hash(nomechat As String) As String
Dim lunghezzachat As Integer 'Variabile intera per la lunghezza in caratteri della chat
Dim hash, hash_1, hash_2, hash_3, hash_4 'Variabili di Appoggio
lunghezzachat = Len(nomechat) 'Lengo di quanti caratteri è composto il nome della chat
hash = Mid(nomechat, lunghezzachat - 11, lunghezzachat) 'Ricavo L'Hash Dal Nome della chat
hash_1 = Mid(hash, 1, 2) 'Ip[3]          'Prendo a due a due l'hash
hash_2 = Mid(hash, 3, 2) 'IP[2]          'Dal Primo per due caratteri
hash_3 = Mid(hash, 5, 2) 'IP[1]          'Dal terzo per due caratteri
hash_4 = Mid(hash, 7, 2) 'IP[0]          'Dal quinto,settimo per due caratteri
ip = CLng("&h" & hash_4) & "." & CLng("&h" & hash_3) & "." & CLng("&h" & hash_2) & "." & CLng("&h" & hash_1)
'Con la funzione Clng converto in decimale ogni coppia di caratteri esadecimale e concateno tutto con dei puntini(formo l'ip)
MsgBox (ip) 'Stampo l'ip
End Function
Private Sub Command1_Click()
Dim ip As String
nomechat = Text1.Text
convert_hash (nomechat)
End Sub

L'algoritmo base è pronto, lascio a voi la gestione degli errori.