Saya baru saja menulis program pencuri, dan tiba-tiba saya menemukan bahwa konten tidak dapat ditangkap saat POST dalam bahasa Mandarin. Mengingat masalah pengkodean bahasa Mandarin, seperti escape() dalam javascript, fungsi ini juga dapat digunakan dalam vbscript untuk menangkap secara normal.
Sebut saja sehari!
Terlampir beberapa fungsi yang biasa digunakan oleh pencuri
Fungsi ByteToStr(vIn)
Redupkan strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strKembali =
Untuk i = 1 Ke LenB(vIn)
KodeKar ini = AscB(MidB(vIn,i,1))
Jika ThisCharCode < &H80 Lalu
strReturn = strReturn & Chr(KodeCharIni)
Kalau tidak
KodeChar Berikutnya = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
saya = saya + 1
Akhiri Jika
Berikutnya
ByteToStr = strKembali
Fungsi Akhir
Fungsi GetURL(url,PostStr)
Setel Pengambilan = Server.CreateObject(Microsoft.XMLHTTP)
Dengan Pengambilan
.Buka POST, url, false , ,
.setRequestHeader Tipe Konten, aplikasi/x-www-form-urlencoded
.Kirim(PostStr)
GetURL = .ResponseBody
Akhiri Dengan
Atur Pengambilan = Tidak Ada
GetURL=ByteToStr(GetURL)
Fungsi Akhir
Fungsi RegExpText(strng,regStr)
Redupkan regEx, Cocokkan, Cocok, RetStr
Setel regEx = RegExp Baru
regEx.Pattern = regStr
regEx.IgnoreCase = Benar
regEx.Global = Benar
Setel Kecocokan = regEx.Execute(strng)
Untuk Setiap Pertandingan dalam Pertandingan
RetStr = RetStr & Cocokkan.Nilai & ,
Berikutnya
RegExpText = RetStr
atur regEx=tidak ada
Fungsi Akhir
penggunaan:
Redupkan PostStr,getContent,getArea
PostStr = tindakan=ponsel&ponsel=&Nomor Seluler
getContent = GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = Ganti(Ganti(Ganti(RegExpText(getContent, lokasi nomor kartu</TD>((.|/n)*?)</TD>), lokasi nomor kartu</TD>,),<lebar TD =* align=kelas tengah=tdc2>,),</TD>,,)
Respon.Tulis(getArea)