• Home
 · 
• Encryption
 · 
• IP Algoritme

IP Algoritme

This code can calculate the decimal number of an IP-Adres. You can use the number everywhere like http(s),ftp,proxy(s),and other! So if you don't want to give people an IP-Adres, just give them the decimal number!

Rate IP Algoritme

• 1
• 2
• 3
• 4
• 5

(7(7 Vote))

Function IP_Nummer(ip As String) As String
Dim nrs() As String
If Len(Replace(ip, ".", "")) = (Len(ip) - 3) Then
nrs = Split(ip, ".")
If nrs(0) >= 256 Or nrs(1) >= 256 Or nrs(2) >= 256 Or nrs(3) >= 256 Then
MsgBox "The IP-Adres is invalid!", vbCritical + vbOKOnly, "Error!"
Exit Function
End If
a = nrs(0) * 256
a = a * 256
a = a * 256
b = nrs(1) * 256
b = b * 256
c = nrs(2) * 256
d = nrs(3)
nummer = (a) + (b) + (c) + (d)
IP_Nummer = nummer
Else
MsgBox "The IP-Adres is invalid!", vbCritical + vbOKOnly, "Error!"
End If
End Function