รหัสโปรแกรม
ฟังก์ชั่น enaddr (sip) 'การเข้ารหัส IP
esip=cstr(จิบ)
str1=ซ้าย(จิบ,CInt(InStr(จิบ,".")-1))
sip=Mid(sip,cint(instr(sip,"."))+1)
str2=ซ้าย(sip,cint(instr(sip,"."))-1)
sip=mid(sip,cint(instr(sip,"."))+1)
str3=left(sip,cint(instr(sip,"."))-1)
str4=mid(sip,cint(instr(sip,"."))+1)
enaddr=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
ฟังก์ชั่นสิ้นสุด
รหัสโปรแกรม
ฟังก์ชั่น deaddr (sip) 'การถอดรหัส IP
จิบ=จิบ+1
s1=int(จิบ/256/256/256)
s21=s1*256*256*256
s2=int((sip-s21)/256/256)
s31=s2*256*256+s21
s3=int((sip-s31)/256)
s4=จิบ-s3*256-s31
deaddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)
ฟังก์ชั่นสิ้นสุด
20090522 อัปเดตสองฟังก์ชัน:
ฟังก์ชั่น: แปลงจำนวนเต็มยาวเป็นที่อยู่ IP
รหัสโปรแกรม
-
ฟังก์ชัน CStrIP(ByVal anNewIP)
ล่ม lsReults
หรี่อุณหภูมิ
หรี่ lnIndex
สำหรับ lnIndex = 3 ถึง 0 ขั้นตอน -1
lnTemp = Int(anNewIP / (256 ^ lnIndex))
lsResults = lsResults & lnTemp & "."
anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))
ต่อไป
lsResults = ซ้าย(lsResults, Len(lsResults) - 1)
CStrIP = lsผลลัพธ์
ฟังก์ชันสิ้นสุด
-
ฟังก์ชัน: แปลงที่อยู่ IP เป็นจำนวนเต็มแบบยาว
รหัสโปรแกรม
-
ฟังก์ชัน CLngIP(ByVal asNewIP)
Dim lnผลลัพธ์
หรี่ lnIndex
ดิมอิพอารี
lnIpAry = แยก(asNewIP, ".", 4)
สำหรับ lnIndex = 0 ถึง 3
ถ้าไม่ lnIndex = 3 แล้ว
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
สิ้นสุดถ้า
lnResults = lnResults + lnIpAry(lnIndex)
ต่อไป
CLngIP = lnผลลัพธ์
ฟังก์ชันสิ้นสุด
-