!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.15 GB of 39.52 GB (10.5%)
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:     uBaseModule.pas (2.25 KB)      -rw-rw-rw-
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
unit uBaseModule; interface uses GnuGettext, Classes, ExtCtrls, StdCtrls, Buttons, SysUtils, uTools, uServices; type tBaseModule = class public bbService: TBitBtn; pStatus: tPanel; lPID: tLabel; lPort: tLabel; bStartStop: TBitBtn; bAdmin: TBitBtn; AutoStart: boolean; oldIsRunningByte: byte; isRunning: boolean; isService: boolean; PIDList: tList; ModuleName: string; procedure Start; virtual; abstract; procedure Stop; virtual; abstract; procedure Admin; virtual; abstract; procedure UpdateStatus; virtual; abstract; procedure ServiceInstall; virtual; abstract; procedure ServiceUnInstall; virtual; abstract; procedure SetServiceButton(isActive: boolean); procedure CheckIsService(ServiceName: string); procedure AddLog(module, log: string; LogType: tLogType); constructor Create(pbbService: TBitBtn; pStatusPanel: tPanel; pPIDLabel, pPortLabel: tLabel; pStartStopButton, pAdminButton: TBitBtn); destructor Destroy; override; end; implementation uses uMain; { tBaseModule } procedure tBaseModule.AddLog(module, log: string; LogType: tLogType); begin fMain.AddLog(module, log, LogType); end; procedure tBaseModule.CheckIsService(ServiceName: string); var ServiceStatus: TServiceStatus; begin ServiceStatus := GetServiceStatus(ServiceName); isService := ServiceStatus in [ssRunning, ssStopped]; SetServiceButton(isService); end; constructor tBaseModule.Create(pbbService: TBitBtn; pStatusPanel: tPanel; pPIDLabel, pPortLabel: tLabel; pStartStopButton, pAdminButton: TBitBtn); begin PIDList := tList.Create; isRunning := false; isService := false; bbService := pbbService; pStatus := pStatusPanel; lPID := pPIDLabel; lPort := pPortLabel; bStartStop := pStartStopButton; bAdmin := pAdminButton; oldIsRunningByte := 2; AutoStart := false; end; destructor tBaseModule.Destroy; begin PIDList.Free; inherited; end; procedure tBaseModule.SetServiceButton(isActive: boolean); begin bbService.Glyph := nil; if isActive then fMain.ImageList.GetBitmap(11, bbService.Glyph); if not isActive then fMain.ImageList.GetBitmap(10, bbService.Glyph); end; 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.0156 ]--