لص !! إذا كنت مهتمًا ، يمكنك إلقاء نظرة

رمز الفصل (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