L'on va prendre comme exemple : 152.156.231.213
Sois en système décimal :
152 *256(exposant 3) = 2550136832
156 *256(exposant 2) = 10223616
231 *256(exposant 1) = 59136
213 *1 = 213

Si on additionne tous sa donc 2550136832+10223616+59136+213 = 2560419797

Genre Demarrer>Executer...>cmd>Ping VOTRE IP CRYPTER.
Code source:
Private Sub Command1_Click()
On Error Resume Next
a = Text1
c = Text1 * 16777216 'On multiplie le texte 1 par ce nombre car c'est = a 256*256*256
Text5 = c
a = Text2
c = Text2 * 65536 ' meme chose cette fois utilisant 256*256
Text6 = c
a = Text3
c = Text3 * 256 ' *256
Text7 = c
a = Text4
c = Text4 * 1 ' *1
Text8 = c
End Sub

Private Sub Command2_Click()
Text9.Text = Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8) 'Une addition qui crypte l'ip
Caption = "Ton ip crypter est " + Text9 + " by c00ol" 'Changer la caption de la form apres cryptage
End Sub

Private Sub Form_Load()
Label2 = Winsock1.LocalIP 'pour connaitre l'ip de notre pc!
End Sub

gg