Hash To Ip Port, versione 1.3. Codici sorgenti Visual Basic 6

Grazie alle dritte di Fix ho semplificato la funzione di conversione ad hashtoipport.

Il codice è il seguente

 


Function convert_hash(nomechat As String) As String
Dim hashtotal, stringaserver, porta, haship, hashport
hashtotal = Right(nomechat, 12)
ip = CLng(”&H” & Mid$(hashtotal, 7, 2)) & “.” & CLng(”&H” & Mid$(hashtotal, 5, 2)) & “.” & CLng(”&H” & Mid$(hashtotal, 3, 2)) & “.” & CLng(”&H” & Mid$(hashtotal, 1, 2))
porta = CDec(”&H” & (Right(hashtotal, 4)))
Text2.Text = ip & “:” & porta
End Function

scaricate il programma da http://www.enemy.altervista.org