by MijoSoft (1 Submission)
Category: Encryption
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: 
(6 Votes)
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!
VBcodersFunction 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