让我们的文本框更“聪明安全”一点

原创 2004年08月22日 11:25:00

让我们的文本框更“聪明安全”一点<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

问题背景:

几乎所有的监视程序都是通过向你输入密码的文本框发送一条WM_GETTEXT消息来获取密码的,任何文本框只要接收到此消息它就会老老实实的把自己保存的内容告诉发送消息者(它可不知道它保存的是我们重要的密码呀), *”号是不能保护我们的密码的,是不是可以做一个更“聪明安全”一点的文本框呢?!可以,我们只需拦截此消息不让文本框接受到,任何监视程序也不能得到其中的密码。就是用SetwindowlongCallwindowproc这两个API函数来定义一个自己的消息处理函数,然后判断消息类型,如果是WM_GetText消息就排除在外,不处理它(当然了你也可以更换接受消息的对象来欺骗它),这样文本框接收不到这条消息当然就不会泄露秘密了。

相关知识:

Setwindowlong函数声明如下:

 

   Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

 

作用:在窗口结构中为指定的窗口设置信息

 

参数: hwnd 要设置消息函数的窗口句柄(可以是控件)

 

   nIndex 我们用到的是:GWL_WNDPROC 设置窗口或控件的消息处理函数的地址 

 

   dwNewLong 消息函数的地址(就是在函数名前加Addressof, addressof winproc

 

返回值:如果成功返回原来消息处理函数的地址,否则返回0

 

 Callwindowproc函数声明如下:

 

   Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

 

参数: lpPrevWndFunc:指向前一个窗口或控件过程的指针。

 

  hWnd:指向接收消息的窗口或控件过程的句柄。

 

  Msg:指定消息类型。

 

  wParam:指定其余的、消息特定的信息。该参数的内容与Msg参数值有关。

 

IParam:指定其余的、消息特定的信息。该参数的内容与Msg参数值有关。

返回值:指定了消息处理结果,它与发送的消息有关。

 

了解了这两个函数我们就可以做一个“聪明安全”一点的文本框了:

实例程序制作:

1. 首先打开VB 建立一个工程,添加一个窗体,一个模块

 

2.  将上面的两个函数的声明加入模块中,再加上两个变量的声明就是

 

   Public Const WM_GETTEXT = &HD'获取文本框内容的消息

 

   Public Const GWL_WNDPROC (-4)'建立一个消息处理函数需要的参数

 

   public OldProc as long'保存旧的消息处理函数的地址

 

3. 在窗体上建立一个文本框,一个命令按钮,两个检查框修改其属性如下:

 

控件名称:     属性:     属性值:

 

文本框           Passwordchar           *

 

            名称                text1

 

命令按钮         名称                command1

 

                 caption              真正的密码

 

检查框1          名称               check1

 

                  caption             使用密码保护

 

检查框2           名称               check2

 

                  caption             使用密码欺骗

 

4. 编写代码:

 

Form1中加入以下代码:

 

Private Sub Check1_Click()

 

If Check1.Value = 1 Then

 

Oldproc = SetWindowLong(Text1.hwnd, GWL_WNDPROC, AddressOf wnd)'设置Text1的消息处理函数,Oldproc为原来函数的地址

 

    Else

 

SetWindowLong Text1.hwnd, GWL_WNDPROC, Oldproc'恢复原来的消息函数地址

 

check2.value=0   '如果不使用密码保护则不能使用密码欺骗

 

End If

 

End Sub

 

Private Sub Check2_Click()

 

If Check2.Value = 1 Then

 

if check1.value=0 then'如果使用密码欺骗必须使用密码保护

 

Oldproc = SetWindowLong(Text1.hwnd, GWL_WNDPROC, AddressOf wnd)

 

Check1.Value = 1

 

end if

 

End If

 

End Sub

 

 

Private Sub Command1_Click()

 

  MsgBox Text1.Text'真正文本框中的内容

 

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

 

  SetWindowLong Text1.hwnd, GWL_WNDPROC, Oldproc'恢复原来的消息处理函数地址

 

End Sub

 

 在模块中加入消息处理函数:

 

Public Function wnd(ByVal hwnd As Long, ByVal Msg As Long, ByVal wp As Long, ByVal lp As Long) As Long

 

 ' hwnd 接收消息的控件,这里是Text1msg消息类型,wplp为附加参数参数

 

If Msg = WM_GetText Then'判断是否是我们要的消息

 

If Form1.Check2.Value = 1 Then'是否进行欺骗

 

hwnd = Form1.Check2.hwnd

 

  '更改接收消息的对象这里我们改成Check2,那么得到的就是check2Caption值,给那些盗密码者一点教训,让他们回去试密码!

 

Else

 

Exit Function'不做任何处理,直接返回

 

End If

 

End If

 

wnd = CallWindowProc(Oldproc, hwnd, Msg, wp, lp)'如果不是我们要的消息则传递下去

 

End Function

结束语:

到此程序就结束了,找来一个查"*"的程序查查看,当你不选“使用密码保护”的时候文本框的内容会被得到。选中后再试试,怎么样,是不是什么也得不到,然后在选中“使用密码欺骗"试一下得到的是什么?!

技术让我们更聪明?

Managershare:技术改变了我们的生活,这个毫无疑问,但是方便我们的同时也给了我们养成了很多的陋习,让我们欲罢不能。这篇文章的结论很值得我们思考:放下技术,培养我们的思维。 谷歌公司...
  • asqi1
  • asqi1
  • 2014-08-14 10:02:31
  • 568

谷歌是否让我们变得愚蠢?

http://blog.sina.com.cn/s/blog_537d1eea0100cppy.html 卡尔在2008年7-8月号的《大西洋月刊》撰文,以《谷歌是否让我们变得愚蠢》为题,痛苦地剖析...
  • qwertyuj
  • qwertyuj
  • 2014-01-21 16:32:22
  • 5111

低层次的聪明 比愚蠢更可怕「好文推荐」

不得不说,人与人之间的智商是有差别的。笨并不可怕,可怕的是自以为聪明的人。笨是智商欠佳,自以为聪明就是蠢。他们总能够以各种方式钻规则的空子,占便宜,捞好处,然后喜滋滋地以为自己很聪明。却少有人明白,一...
  • Mes8Y62b6ogV207
  • Mes8Y62b6ogV207
  • 2018-03-04 00:00:00
  • 574

善良比聪明更重要 (we are our choices)

http://www.app111.com/doc/10168123.html 普林斯顿大学校友、亚马逊CEO杰夫·贝索斯在2010年学士毕业典礼上发表演讲。他追忆了自己的幼年岁月,讲述...
  • stableboy
  • stableboy
  • 2016-03-19 15:56:01
  • 369

让我们的服务安全一点

面对XSS,我们... 面对CRSF,我们... 面对SQL注入,我们... ... 面对DDOS,我们....
  • wireless_com
  • wireless_com
  • 2014-12-07 13:01:54
  • 1173

如何让自己变聪明

一、唤醒身体  1、闭上眼睛吃饭。  2、用手指分辨硬币。  3、戴上耳机上下楼梯。  4、捏住鼻子喝咖啡。  5、放开嗓子大声朗读。  6、闻咖啡看鱼的图片。       二、寻求脑刺激  7、到餐...
  • Ralfkaka
  • Ralfkaka
  • 2013-08-26 11:29:24
  • 515

乔布斯经典语录

科技并没有带来多大变化。这些科技能够使我们的生活变得更轻松,能够让我们与本来无法接触的人保持联系。如果你的孩子有先天缺陷,但你能够与其他父母和援助团体保持联系,获得医疗信息和最新的实验药物。这些都能显...
  • vshpper
  • vshpper
  • 2014-04-16 23:01:10
  • 248

让文本框“聪明”一点的深入探讨!

这篇文章以文章让文本框“聪明”一点为基础,如没有看过请先读:http://www.csdn.net/develop/Read_Article.asp?Id=23996也许有些朋友会说你的方法不行,我们...
  • mmcgzs
  • mmcgzs
  • 2004-02-06 10:02:00
  • 939

让你的文本框 “聪明” 一点

近来在设计一个热键设置程序中我学会了使用Setwindowlong和Callwindowproc这两个Api函数,有了它我们就可以处理你的窗口或控件所接收到的任何消息.由于前一段时间我看过一篇介绍QQ...
  • mmcgzs
  • mmcgzs
  • 2004-02-04 10:00:00
  • 950

让你的文本框“聪明”一点

转:http://vb.lihuasoft.net/showart.php?id=740近来在设计一个热键设置程序中我学会了使用Setwindowlong和Callwindowproc这两个Api函数...
  • zhengzhichen
  • zhengzhichen
  • 2008-11-18 10:29:00
  • 281
收藏助手
不良信息举报
您举报文章:让我们的文本框更“聪明安全”一点
举报原因:
原因补充:

(最多只允许输入30个字)