Banyak situs nada dering ponsel yang memiliki program anti-lintahnya sendiri, namun program ini hanya dirancang untuk mencegah tuan-tuan, bukan pencuri. Mari kita perkenalkan secara singkat fungsinya: objek ASP ServerVariables (variabel lingkungan server) digunakan. Melalui variabel lingkungan ini, alamat unduhan sebenarnya dapat diperoleh dan kemudian integritas alamat sebenarnya dapat dihancurkan melalui beberapa fungsi sederhana bawaan VBS. Mencapai fungsi menipu pengunduhan perangkat lunak. Kode sumber kini terlampir agar semua orang dapat mempelajarinya.
Copy kode kodenya sebagai berikut:
<% Fungsi DownloadFILE(StrFIle)
StrFIlename=StrFIle
Respon.Buffer=Benar
Respon. Jelas
Setel S=Server.CreateObJect(ADODB.Stream)
S.Buka
S.Tipe=1
pada Error Lanjutkan Berikutnya
Setel Fso=Server.CreateObJect(ScrIptIng.FIleSystemObJect)
Jika Bukan Fso.FIleExists(StrFIleName) Lalu
From_Url=Cstr(Permintaan.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Permintaan.ServerVarIables(SERVER_NAME))
Jika MId(From_Url,8,len(Serv_Url)) <> Serv_Url Lalu
Response.WrIte File tidak ada atau telah dihapus.
Respon.Akhir
Akhiri Jika
Respons.Permintaan Langsung Langsung.ServerVarIables(HTTP_REFERER)
Respon.Akhir
Akhiri Jika
FileExt=MId(StrFIlename,InStrRev(StrFIleName, .)+1)
Pilih Kasus UCase (FIleExt)
Kasus ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, DATA
From_Url=Cstr(Permintaan.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Permintaan.ServerVarIables(SERVER_NAME))
Jika MId(From_Url,8,len(Serv_Url)) <> Serv_Url Lalu
Response.WrIte File tidak ada atau telah dihapus.
Respon.Akhir
Akhiri Jika
Respon.Permintaan Langsung.ServerVarIables(HTTP_REFERER)
Respon.Akhir
Pilihan Akhir
Setel F=Fso.GetFIle(StrFIlename)
IntFIlelength=F.Ukuran
s.LoadFromFIle(StrFIlenama)
Jika Salah Lalu
From_Url=Cstr(Permintaan.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Permintaan.ServerVarIables(SERVER_NAME))
Jika MId(From_Url,8,len(Serv_Url)) <> Serv_Url Lalu
Response.WrIte Data file tidak lengkap atau rusak.
Respon.Akhir
Akhiri Jika
Respon.Permintaan Langsung.ServerVarIables(HTTP_REFERER)
Respon.Akhir
Akhiri Jika
Setel Unggah=Server.CreateObJect(PersIts.Unggah)
Jika Unggahan Tidak Ada Apa-apanya
Response.AddHeader Content-DIsposItIon, lampiran;
Response.AddHeader Panjang Konten,IntFilelength
Respon.CharSet=UTF-8
Response.ContentType=aplikasi/x-download
Respon.BinaryWrite S.Read
Respon. Siram
S.Tutup
Tetapkan s=Tidak Ada
Kalau tidak
Unggah.SendBinary StrFIlename, Benar, aplikasi/x-download, Salah
Akhiri Jika
Fungsi Akhir
%>
Gunakan: <%Panggil DownloadFIle(DownloadFIle)%>.