!C99Shell v. 1.0 pre-release build #13!

Software: Apache. PHP/5.5.15 

uname -a: Windows NT SVR-DMZ 6.1 build 7600 (Windows Server 2008 R2 Enterprise Edition) i586 

SYSTEM 

Safe-mode: OFF (not secure)

C:\dmz\src\xampp-control-panel\   drwxrwxrwx
Free 4.13 GB of 39.52 GB (10.45%)
Detected drives: [ a ] [ c ] [ d ] [ e ] [ f ]
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     uProcesses_new.pas (1.71 KB)      -rw-rw-rw-
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
unit uProcesses_new; interface uses GnuGettext, Classes, SysUtils, Windows, PsAPI, JCLSysInfo; type tProcesses = class public ProcessList2: TStrings; function GetProcessPath(PID: Cardinal): string; function GetProcessName(PID: Cardinal): string; procedure UpdateList; constructor Create; destructor Destroy; override; end; var Processes: tProcesses; implementation { tProcessList } constructor tProcesses.Create; begin ProcessList2 := TStringList.Create; end; destructor tProcesses.Destroy; begin ProcessList2.Clear; FreeAndNil(ProcessList2); inherited; end; function tProcesses.GetProcessName(PID: Cardinal): string; var name: string; index: integer; begin index := ProcessList2.IndexOfObject(Pointer(PID)); if (index >= 0) then begin name := ProcessList2[index]; result := name; end else result := ''; end; function tProcesses.GetProcessPath(PID: Cardinal): string; var hProcess: THandle; begin hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID); if hProcess <> 0 then begin try SetLength(result, MAX_PATH); FillChar(result[1], Length(result) * SizeOf(Char), 0); if GetModuleFileNameEx(hProcess, 0, PChar(result), Length(result)) > 0 then result := Trim(result) else result := 'Unable to get info'; finally CloseHandle(hProcess) end; end else result := 'Unable to open process'; end; procedure tProcesses.UpdateList; begin ProcessList2.Clear; RunningProcessesList(ProcessList2, False); end; initialization Processes := tProcesses.Create; finalization Processes.Free; end.

:: Command execute ::

Enter:
 
Select:
 

:: Search ::
  - regexp 
:: Upload ::
 
[ ok ]

:: Make Dir ::
 
[ ok ]
:: Make File ::
 
[ ok ]

:: Go Dir ::
 
:: Go File ::
 

--[ c99shell v. 1.0 pre-release build #13 powered by Captain Crunch Security Team | http://ccteam.ru | Generation time: 0.0312 ]--