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!
AI
AI Samenvatting: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Broncode
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
Originele reacties (3)
Hersteld van de Wayback Machine