クラスコード（cls.asp）
<％
ClassClSthief
privatestrurl'Stealedアドレス
privatestrvalueの盗まれたコンテンツ、すべてのコンテンツ
privatestrresult'steal結果を、特定のコンテンツを指定できます
privateflag'あなたはそれを盗みました
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -
privatesubclass_initialize（）
strurl = ""
strvalue = ""
strenult = ""
flag = false
Endingub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -
privatesubclass_terminate（）
Endingub
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -
publicPropertyleturl（byvaliurl）
strurl = iurl
Endproperty
'-----------------------------------------------
publicPropertygetValue
value = strvalue
Endproperty
publicPropertygetResult
result = stresult
Endproperty
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -
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 =何もない
エンド機能
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -
privateFunctionChange（str）
dimfinalstr
DimicharCode
diminextcode
fori = 1tolenb（str）
iCharcode = ascb（midb（str、i、1））
ifCharCode <＆h80then
FinalStr = FinalStr＆chr（icarcode）
それ以外
inextcode = ascb（midb（str、i+1,1））
FinalStr = FinalStr＆chr（clng（icarcode）*＆h100+cint（inextcode）））
i = i+1
endif