نسخة الكود كما يلي:
<٪
استجابة. expires = 0
استجابة. expiresabsolute = الآن ()-1
Response.addheader "pragma" ، "عدم وجود آثار"
استجابة.
استجابة.
استجابة. buffer = صحيح
استجابة
server.scriptTimeout = 999999999
'**********************************************************************
'*تحديد فئة MusicGet
'**********************************************************************
classgethttp
PrivateOxml ، FSO ، ADOS
privatesubclass_initialize
setoxml = server.createObject ("microsoft.xmlhttp")
setfso = server.createObject ("scripting.filesystemObject")
setados = server.createBject ("Adodb.stream")
ينتهي
privatesubclass_terminate
setoxml = لا شيء
setfso = لا شيء
setados = لا شيء
ينتهي
PublicPropertygetversion
الإصدار = "نظام الاستحواذ الديناميكي v3.0"
endproperty
'**********************************************************************
وظيفة (خاصة)
"الوظيفة: استخدم التدفقات لتشفير الصينية
المعلمة: VIN (الحرف المراد تشفيرها)
'**********************************************************************
privatefunctionbytestobstr (الجسم)
Dimbdat
BDAT = الجسم
Ados.Type = 1
Ados.Mode = 3
Ados.Open
Ados.WriteBdat
ados.position = 0
Ados.Type = 2
ados.charset = "GB2312"
bytestobstr = ados.readtext