<%
'Coding.inc.asp
'جميع الحقوق محفوظة، [email protected]
وظيفة التشفير (سلسلة)
عدد خافت، نقاط البيع، الفصل، رمز
خافت SweetCh
'"SweetCh"
SweetCh = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz_{}[]()"
ترميز = ""
العد = لين (شارع)
نقاط البيع = 1
افعل بينما Pos<=Count
الفصل = منتصف (شارع، بوس، 1)
الكود = تصاعدي (الفصل)
إذا كان الرمز> = 0 والرمز <256، فعندئذٍ "الرمز"
إذا كان Ch<>"%" إذن
إذا كان InStr(SweetCh, Ch)=0 إذن
Ch = "%" & Right("0" & Hex(Code)، 2)
نهاية إذا
آخر
الفصل = "%25"
نهاية إذا
نهاية إذا
تشفير = تشفير & Ch
بوس = بوس + 1
حلقة
الوظيفة النهائية
(Str)
عدد خافت، نقاط البيع، الفصل، رمز
فك التشفير = ""
العد = لين (شارع)
نقاط البيع = 1
افعل بينما Pos<=Count
الفصل = منتصف (شارع، بوس، 1)
إذا Ch = "٪" ثم
إذا Pos+2<=عد ثم
Ch = Chr((InStr("0123456789ABCDEF", UCase(Mid(Str, Pos+1, 1)))-1) * 16 + InStr("0123456789ABCDEF",UCase(Mid(Str, Pos+2, 1)) ) - 1)
آخر
""""""""""""""""""""""""""""
الفصل = ""
نهاية إذا
بوس = بوس + 2
نهاية إذا
فك التشفير = فك التشفير والفصل
بوس = بوس + 1
حلقة
وظيفة النهاية
%>