رمز البرنامج
وظيفة enaddr(sip)'تشفير IP
esip=cstr(sip)
str1=Left(sip,CInt(InStr(sip,".")-1))
sip=Mid(sip,cint(instr(sip,"."))+1)
str2=Left(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(sip/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=sip-s3*256-s31
deaddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)
وظيفة النهاية
20090522 يقوم بتحديث وظيفتين:
الوظيفة: تحويل رقم صحيح طويل إلى عنوان IP
رمز البرنامج
<%
الدالة CStrIP(ByVal anNewIP)
خافتة النتائج
خافت درجة الحرارة
خافت في الفهرس
بالنسبة لـ lnIndex = 3 إلى 0 الخطوة -1
lnTemp = Int(anNewIP / (256 ^ lnIndex))
lsResults = lsResults & lnTemp & "."
anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))
التالي
lsResults = Left(lsResults, Len(lsResults) - 1)
CStrIP = lsResults
وظيفة النهاية
%>
الوظيفة: تحويل عنوان IP إلى عدد صحيح طويل
رمز البرنامج
<%
الدالة CLngIP(ByVal asNewIP)
النتائج قاتمة
خافت في الفهرس
خافت lnipary
lnIpAry = سبليت (asNewIP، "."، 4)
بالنسبة لـ lnIndex = 0 إلى 3
إذا لم يكن lnIndex = 3 إذن
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
نهاية إذا
lnResults = lnResults + lnIpAry(lnIndex)
التالي
CLngIP = lnResults
وظيفة النهاية
%>