الوظيفة: تحويل عنوان IP إلى عدد صحيح طويل
<٪
functionClngip (byvalasnewip)
dimlnresults
Dimlnindex
dimlnipary
lnipary = انقسام (asnewip ، "." ، 4)
forlnindex = 0to3
ifnotlnindex = 3then
lnipary (lnindex) = lnipary (lnindex)*(256^(3-lnindex))
Endif
lnresults = lnresults+lnipary (lnindex)
التالي
clngip = lnresults
الوظيفية
٪>