【WINDOWS钩子（HOOK）功能的LISP应用（一）】密码输入处理

Lispboy

密码输入框要显示 *****，在普通LISP是不能实现的，XDRX API提供了强大的 HOOK 注入函数，利用API的HOOK技术，拦截键盘消息，监视WINDOWS系统 WM_CHAR 消息，截断消息处理，把输入的字符变成 *，真实的输入保存到一个变量里面供我们程序后续处理。


下面动图演示的是输入的密码显示到下面的文字框中。

1. (defun c:tt ()
   
2.   (setq        odcl-data
   
3.          '("YWt6A0QTAABH5cGQBuK7KCcxLS9u4OwsMN5uW2TVd3d4Inzo23bIQtYP9cxdZGFKX+oz2y7cdrtp"
   
4.            "Ak7vunlhMvL3gH5hIm3pulnpurblQb5hHlwWAk1QquetrAWRqZvIUqzlBQXBRZmysudNjbOnbiPy"
   
5.            "xJS3OXPK6WTX92a1k6JqEOCADqhvD26v2XzcPIBpPxtdcdCZ331KNgB07OkPkvXpK4aHBWPBe4ZH"
   
6.            "uunpD301fYKQqViUBiDuURNWVGSJz8L3Gz2Cy+C5BQc6QYGJF/PzgkO+EQBgTbYMUQGJFxP/hoZA"
   
7.            "wHuZ7SXCG9svXHFXeZsvgrkYjPEv5lCvVjEvYdcKN2xh3DDs7TJBSz3w24lR0i6jWSliRLoNi2mO"
   
8.            "Wp4sHYDSloVyjFd1oKgxs2qfC4qsRtGZTCEtpKN/1N4wZN1tAiHed8CFVrqx1WJ1i7TO3wMAf4Zb"
   
9.            "npn+Af0xb75Q+WuBTxxa9KpzVDZ6Jhwq70iekQYN8vfaahbgzbJSNGN3y6WOwfChokzZOr1kohMp"
   
10.            "ZTFwDO484lK0c3W1eY0xPoB2jh2+cX+djDz3PruOdp6vujxijWzGTrZRfMB3iGhsFfOfOx3CoOYR"
    
11.            "TgFAzy9PIneNwWWAFgf0hLZdy4pX10ji95u5muP4wjnOtcxLBzxVlFeqpU220zy+HWhjkAioIrCJ"
    
12.            "B8O7XwBBvLEfLNFzpXWc5ddwQ9zZZAKjErZxdpBMjnG/o3gAVYbVu3EsRXIH57ZFckJcxmsU0HMO"
    
13.            "RZ5ovg0eEWm6uyJtatH3HHNNqzoUcCKYYJHa2kMIoMBLpgMDzAhW16rOapOMfjVtNW81azUNxwf6"
    
14.            "W/Zb9FvyW/Bq/gf36u894BTHVzFD8GpqH7SlxUyg8FzuLE6x71ySVrsqaVMa0/WDigGVnGShEPfw"
    
15.            "RRBglDzjnLPxDg1DuvNYXIN87ajQYeomDieEGKC162kVljlnNz1BstepuQbmA2YmhTBsygbES2Ux"
    
16.            "JafNF1D1TrW4NrMkShK3IL0XYN+wPpp4fx1koX0CUKUd7R/D+dMx7mI4hJd08SaNkEcaj6/t8/Fs"
    
17.            "ZUe2MLbPsPjnFV+tlX7l5oVpTsno5ebFNQ7Q4wZdTq0MRc1hkuRmziKOY84lc5VOT5xGJ2eP855D"
    
18.            "vmYgvisegUMebf0UuKNw8i0dtgGwGkBnlodjnpE0Z05+gCRnz0YDtBuctHlqmbRcc5PGrIBiz/Sn"
    
19.            "JFBm16dQBQ3eGCEYFMhFB9Io49KLt32VUL03Ojmi0HANFnbAmvjuPT2M2xA2piwotHWm/M47Kz9C"
    
20.            "7knOG1/xmq68Apck5mNp050XkUYnx5Bem6hsA9cknEQP27HoVZuJcVpWEJ8="
    
21.           )
    
22.   )
    
23.   (defun c:xd_password#OnInitialize (/)
    
24.     (dcl-Control-SetFocus xd_password_1)
    
25.   )
    
26.   (defun c:xd_password_1#OnSetFocus (/)
    
27.     (dcl-Control-SetFocus xd_password_1)
    
28.   )
    
29.   (defun c:xd_password_1#OnKeyUp (Character RepeatCount Flags /)
    
30.     (dcl-Control-SetText xd_password_2 (xdrx_string_left result resultlen))
    
31.   )
    
32.   (defun _hook (hwnd msg wparam lparam ti pos)
    
33.     (cond ((= msg WM_CHAR)
    
34.            (setq code wparam)
    
35.            (if (and (/= code 8)
    
36.                     (/= code 13)
    
37.                     (/= code 27)
    
38.                     (or (/= code 32) t)
    
39.                )
    
40.              (progn (setq result    (strcat result (chr code))
    
41.                           resultlen (1+ resultlen)
    
42.                     )
    
43.                     (xdrx_hook_put_param 42 589825)
    
44.              )
    
45.            )
    
46.            (if (and (= code 8) (> resultlen 0))
    
47.              (setq resultlen (1- resultlen) result (xdrx_string_left result resultlen))
    
48.            )
    
49.           )
    
50.     )
    
51.   )
    
52.   (xdrx_begin)
    
53.   (setq result "")
    
54.   (setq resultlen 0)
    
55.   (xd::hook:register "_hook" t "密码hook")
    
56.   (dcl-project-import odcl-data "123456")
    
57.   (dcl-form-show xd_password)
    
58.   (xd::hook:remove "_hook")
    
59.   (xdrx_end)
    
60.   (princ)
    
61. )
    
62. 
    

(defun c:tt ()<br />   (setq        odcl-data<br />          '("YWt6A0QTAABH5cGQBuK7KCcxLS9u4OwsMN5uW2TVd3d4Inzo23bIQtYP9cxdZGFKX+oz2y7cdrtp"<br />            "Ak7vunlhMvL3gH5hIm3pulnpurblQb5hHlwWAk1QquetrAWRqZvIUqzlBQXBRZmysudNjbOnbiPy"<br />            "xJS3OXPK6WTX92a1k6JqEOCADqhvD26v2XzcPIBpPxtdcdCZ331KNgB07OkPkvXpK4aHBWPBe4ZH"<br />            "uunpD301fYKQqViUBiDuURNWVGSJz8L3Gz2Cy+C5BQc6QYGJF/PzgkO+EQBgTbYMUQGJFxP/hoZA"<br />            "wHuZ7SXCG9svXHFXeZsvgrkYjPEv5lCvVjEvYdcKN2xh3DDs7TJBSz3w24lR0i6jWSliRLoNi2mO"<br />            "Wp4sHYDSloVyjFd1oKgxs2qfC4qsRtGZTCEtpKN/1N4wZN1tAiHed8CFVrqx1WJ1i7TO3wMAf4Zb"<br />            "npn+Af0xb75Q+WuBTxxa9KpzVDZ6Jhwq70iekQYN8vfaahbgzbJSNGN3y6WOwfChokzZOr1kohMp"<br />            "ZTFwDO484lK0c3W1eY0xPoB2jh2+cX+djDz3PruOdp6vujxijWzGTrZRfMB3iGhsFfOfOx3CoOYR"<br />            "TgFAzy9PIneNwWWAFgf0hLZdy4pX10ji95u5muP4wjnOtcxLBzxVlFeqpU220zy+HWhjkAioIrCJ"<br />            "B8O7XwBBvLEfLNFzpXWc5ddwQ9zZZAKjErZxdpBMjnG/o3gAVYbVu3EsRXIH57ZFckJcxmsU0HMO"<br />            "RZ5ovg0eEWm6uyJtatH3HHNNqzoUcCKYYJHa2kMIoMBLpgMDzAhW16rOapOMfjVtNW81azUNxwf6"<br />            "W/Zb9FvyW/Bq/gf36u894BTHVzFD8GpqH7SlxUyg8FzuLE6x71ySVrsqaVMa0/WDigGVnGShEPfw"<br />            "RRBglDzjnLPxDg1DuvNYXIN87ajQYeomDieEGKC162kVljlnNz1BstepuQbmA2YmhTBsygbES2Ux"<br />            "JafNF1D1TrW4NrMkShK3IL0XYN+wPpp4fx1koX0CUKUd7R/D+dMx7mI4hJd08SaNkEcaj6/t8/Fs"<br />            "ZUe2MLbPsPjnFV+tlX7l5oVpTsno5ebFNQ7Q4wZdTq0MRc1hkuRmziKOY84lc5VOT5xGJ2eP855D"<br />            "vmYgvisegUMebf0UuKNw8i0dtgGwGkBnlodjnpE0Z05+gCRnz0YDtBuctHlqmbRcc5PGrIBiz/Sn"<br />            "JFBm16dQBQ3eGCEYFMhFB9Io49KLt32VUL03Ojmi0HANFnbAmvjuPT2M2xA2piwotHWm/M47Kz9C"<br />            "7knOG1/xmq68Apck5mNp050XkUYnx5Bem6hsA9cknEQP27HoVZuJcVpWEJ8="<br />           )<br />   )<br />   (defun c:xd_password#OnInitialize (/)<br />     (dcl-Control-SetFocus xd_password_1)<br />   )<br />   (defun c:xd_password_1#OnSetFocus (/)<br />     (dcl-Control-SetFocus xd_password_1)<br />   )<br />   (defun c:xd_password_1#OnKeyUp (Character RepeatCount Flags /)<br />     (dcl-Control-SetText xd_password_2 (xdrx_string_left result resultlen))<br />   )<br />   (defun _hook (hwnd msg wparam lparam ti pos)<br />     (cond ((= msg WM_CHAR)<br />            (setq code wparam)<br />            (if (and (/= code 8)<br />                     (/= code 13)<br />                     (/= code 27)<br />                     (or (/= code 32) t)<br />                )<br />              (progn (setq result    (strcat result (chr code))<br />                           resultlen (1+ resultlen)<br />                     )<br />                     (xdrx_hook_put_param 42 589825)<br />              )<br />            )<br />            (if (and (= code 8) (> resultlen 0))<br />              (setq resultlen (1- resultlen) result (xdrx_string_left result resultlen))<br />            )<br />           )<br />     )<br />   )<br />   (xdrx_begin)<br />   (setq result "")<br />   (setq resultlen 0)<br />   (xd::hook:register "_hook" t "密码hook")<br />   (dcl-project-import odcl-data "123456")<br />   (dcl-form-show xd_password)<br />   (xd::hook:remove "_hook")<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />

jiaoquangb

这个程序应用在哪方面呀？