ขโมย !! หากคุณสนใจคุณสามารถดูได้

รหัสคลาส (cls.asp)

-

classclsthief

ที่อยู่ Privatestrurl'stealed

เนื้อหาที่ถูกขโมยของ Privatestrvalue เนื้อหาทั้งหมด

privatestresult'steal ผลลัพธ์คุณสามารถระบุเนื้อหาบางส่วน

privateflag'have คุณขโมยมัน

-

Privatesubclass_initialize ()

strurl = ""

strvalue = ""

stresult = ""

ธง = เท็จ

enddub

-

Privatesubclass_terminate ()

enddub

-

publicpropertyleturl (byvaliurl)

strurl = iurl

ปลายทาง

-

publicpropertygetValue

ค่า = strvalue

ปลายทาง

publicpropertygetResult

ผลลัพธ์ = stresult

ปลายทาง

-

PrivateFunctionByTestobstr (Body, CSET)

dimobjstream

setObjstream = server.createObject ("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 = ไม่มีอะไร

endfunction

-

PrivateFunctionichange (STR)

dimfinalstr

dimicharcode

diminextCode

fori = 1tolenb (str)

icharcode = ascb (midb (str, i, 1))

ifcharcode <& h80 จากนั้น

FinalSTR = FinalSTR & CHR (ICARCODE)

อื่น

inextCode = ASCB (MIDB (STR, I+1,1)))

FinalSTR = FinalSTR & CHR (CLNG (ICARCODE)*& H100+CINT (inextCode))

i = i+1

endif