Prosedur ini merupakan metode khusus. Cakupan penggunaannya relatif terbatas dan terdapat tingkat bahaya tertentu. Mempelajari beberapa metode dari backdoor asp. Di bawah ini adalah kode programnya.
<%
redupkan remoteaddr
jika Request.ServerVariables("HTTP_X_FORWARDED_FOR")=kosong maka
remoteaddr=Permintaan.ServerVariables("REMOTE_ADDR")
kalau tidak
remoteaddr=Permintaan.ServerVariables("HTTP_X_FORWARDED_FOR")
berakhir jika
Response.Write(GetMac(remoteaddr))
'Karena membaca alamat MAC kartu jaringan dari IP tertentu
'Program ini membaca alamat MAC dari IP tertentu dengan memanggil perintah arp dan menanyakan tabel arp lokal.
'Harap perhatikan hal berikut saat menggunakan program ini:
' Program ini memerlukan dua komponen: "WSCRIPT.SHELL" dan "Scripting.FileSystemObject". Harap pastikan bahwa server Anda dapat menggunakan kedua komponen ini secara normal.
' Program ini perlu memanggil program cmd.exe. Harap pastikan bahwa akun tamu IIS memiliki hak akses ke program tersebut.
' Program ini memerlukan file sementara untuk menyimpan hasil. Harap pastikan bahwa akun tamu IIS memiliki izin menulis pada direktori sementara.
'
fungsi DapatkanMac(IP)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan oScript
Redupkan oFileSys, oFile
Redupkan Semua, szTempFile,ipc,phyc,typec
Redupkan TempPath
Setel oScript = Server.CreateObject("WSCRIPT.SHELL")
Setel oFileSys = Server.CreateObject("Scripting.FileSystemObject")
TempPath="d:temp" 'Direktori sementara
szTempFile = TempPath & oFileSys.GetTempName() ' Dapatkan nama file sementara
Panggil oScript.Run ("cmd.exe /c ping -n 2 " & IP, 0, True) ' Pastikan IP ini ada di tabel arp
Hubungi oScript.Run ("cmd.exe /c arp -a " & IP & " > " & szTempFile, 0, True)
Setel oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)
Semua=oFile.BacaSemua()
oFile.Tutup
Jika (IsObject(oFile)) Lalu
Hubungi oFileSys.DeleteFile(szTempFile, True)
Akhiri Jika
arr = Pisahkan(Semua, vbCrLf)
Jika UBound(arr) = 4 Maka
ipc = InStr(1, arr(2), "Alamat Internet")
phyc = InStr(1, arr(2), "Alamat Fisik")
ketikc = InStr(1, arr(2), "Jenis")
Jika typec > phyc Dan phyc > ipc Dan ipc > 0 Lalu
GetMac=Ucase(Trim(CStr(Mid(arr(3), phyc, typec - phyc))))
Akhiri Jika
Akhiri Jika
Fungsi akhir
%>