رمز الفصل (CLS.ASP)
<٪
classclsthief
عنوان privatrurl'stealed
محتوى Privatestrvalue المسروق ، كل المحتوى
Privatestrresult'Steal النتيجة ، يمكنك تحديد محتوى معين من المحتوى
privateflag'have سرقتها
'-------------------------------------------------------------------------------------------------------------------------------
privatesubclass_initialize ()
strurl = ""
strvalue = ""
strresult = ""
العلم = خطأ
ينتهي
'-------------------------------------------------------------------------------------------------------------------------------
privatesubclass_terminate ()
ينتهي
'-------------------------------------------------------------------------------------------------------------------------------
PublicPropertyleturl (Byvaliurl)
strurl = iurl
endproperty
'--------------------------------
PublicPropertygetValue
القيمة = strvalue
endproperty
PublicPropertygetResult
النتيجة = strresult
endproperty
'-------------------------------------------------------------------------------------------------------------------------------
privatefunctionbytestobstr (الجسم ، CSET)
Dimobjstream
setObjStream = server.createBject ("Adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.Open
objstream.writeBody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
setObjStream = لا شيء
الوظيفية
'-------------------------------------------------------------------------------------------------------------------------------
privatefunctionichange (Str)
dimfinalstr
Dimicharcode
DidinextCode
fori = 1tolenb (str)
icharcode = ASCB (MIDB (STR ، I ، 1))
ifcharcode <& h80then
نهائيات = نهائيات و CHR (icarcode)
آخر
infincode = ASCB (MIDB (STR ، I+1،1))
نهائيات = نهائيات و CHR (clng (icarcode)*و H100+Cint (infincode))
i = i+1
Endif