我自己写的程序—密码查看器(页 1) - 软件交流 - 【3.A.S.T】网络安全爱好者 -- 网络安全，势在必行

噯伱╅詠吥變 发表于 2008-6-17 11:00

我自己写的程序—密码查看器

大家试试！看看那里要改进的！！

柔肠寸断 发表于 2008-6-17 11:47

[attach]17[/attach]

柔肠寸断 发表于 2008-6-17 11:47

ico图标资源问题

o(∩_∩)o... 发表于 2008-6-17 12:31

好像是有点问题

o(∩_∩)o... 发表于 2008-6-17 12:32

楼主会写程序啊，羡慕

柔肠寸断 发表于 2008-6-17 12:39

楼主检查下

Sun 发表于 2008-6-17 12:43

同样出现了2楼的情况

感谢楼主，不知能否开源

噯伱╅詠吥變 发表于 2008-6-17 14:06

呵呵！不好意思！刚刚忘了打包ICO图标了！！

柔肠寸断 发表于 2008-6-17 14:10

回复 8# 噯伱╅詠吥變的帖子

可以使用了
测试效果不错
开源.....

噯伱╅詠吥變 发表于 2008-6-17 14:18

好！我发源码给大家看看！！
窗口代码[code]Option Explicit

Dim IsDragging As Boolean

Private Sub SetOnTop(ByVal IsOnTop As Integer)
Dim rtn As Long
If IsOnTop = 1 Then
      '将窗口置于最上面
      rtn = SetWindowPos(frmMain.hwnd, -1, 0, 0, 0, 0, 3)
Else
      rtn = SetWindowPos(frmMain.hwnd, -2, 0, 0, 0, 0, 3)
End If
End Sub

Private Sub Check1_Click()
SetOnTop (Check1.Value)
End Sub

Private Sub Form_Load()
Check1.Value = 1
SetOnTop (Check1.Value)
IsDragging = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If IsDragging = True Then
Dim rtn As Long, curwnd As Long
Dim tempstr As String
Dim strlong As Long
Dim point As POINTAPI
point.x = x
point.y = y
'将客户坐标转化为屏幕坐标并显示在PointText文本框中
If ClientToScreen(frmMain.hwnd, point) = 0 Then Exit Sub
PointText.Text = Str(point.x) + "," + Str(point.y)
'获得鼠标所在的窗口句柄并显示在hWndText文本框中
curwnd = WindowFromPoint(point.x, point.y)
hWndText.Text = Str(curwnd)
'获得该窗口的类型并显示在WndClassText文本框中
tempstr = Space(255)
strlong = Len(tempstr)
rtn = GetClassName(curwnd, tempstr, strlong)
If rtn = 0 Then Exit Sub
tempstr = Trim(tempstr)
WndClassText.Text = tempstr
'向该窗口发送一个WM_GETTEXT消息，以获得该窗口的文本，并显示在PasswordText文本框中
tempstr = Space(255)
strlong = Len(tempstr)
rtn = SendMessage(curwnd, WM_GETTEXT, strlong, tempstr)
tempstr = Trim(tempstr)
PasswordText.Text = tempstr
End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If IsDragging = True Then
Screen.MousePointer = vbDefault
IsDragging = False
'释放鼠标消息抓取
ReleaseCapture
End If
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If IsDragging = False Then
IsDragging = True
Screen.MouseIcon = LoadPicture(App.Path + "\pass.ico")
Screen.MousePointer = vbCustom
'将以后的鼠标输入消息都发送到本程序窗口
SetCapture (frmMain.hwnd)
End If

End Sub[/code]模板代码[code]Option Explicit

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Declare Function GetLastError Lib "kernel32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Public Const WM_GETTEXT = &HD
Type POINTAPI
x As Long
y As Long
End Type[/code]

Sun 发表于 2008-6-17 14:23

感谢楼主。。。。。

小淡发表于 2008-6-17 17:46

呵呵。东西是好用。但是不知道有什么作用。！

柔肠寸断 发表于 2008-6-17 17:50

回复 12# 小淡的帖子

可以查看电脑中大部分以*显示的密码

小淡发表于 2008-6-17 17:51

肯把源代码写出来的。是好人呀。我要找你学习。，

daxu 发表于 2008-6-21 16:49

开源，共同进步！

3112552 发表于 2008-7-1 16:28

**** 作者被禁止或删除内容自动屏蔽 ****

maomi 发表于 2008-7-1 23:31

厉害啊呵呵
学习学习努力ing:lol :lol

完美蚂蚁 发表于 2008-7-2 12:13

:)不错,程序虽小但是楼主开源的精神值得鼓励和支持:) :) :)

柔肠寸断 发表于 2008-8-3 17:58

顶下

wukan886 发表于 2008-8-5 15:51

很不错，支持一下！

mitnick 发表于 2008-8-5 23:10

哎呀呀。。

现在类似于这种*号查看器。。几乎没什么用了。。

我记得在几年前还能破QQ密码,等。。现在这种工具没多大用处了。。

不过还是支持楼主。。

wacky 发表于 2008-8-6 17:08

不过看不到！

劳资是怪物 发表于 2008-8-7 21:28

太棒了，非常厉害，很好很强大。:call: 很羡慕

劳资是怪物 发表于 2008-8-7 21:35

虽然不能查看有些密码，但是做的出这种东西的人，很强了

背叛的火焰 发表于 2008-8-8 10:10

支持可我看不懂代码我得努力了

菜鸟小菲 发表于 2008-8-13 22:12

支持一下
谢谢分享

流淚╮鮭鮭 发表于 2008-8-15 11:33

不错！》。。嘎嘎！！:lol

chengyichen 发表于 2008-8-24 10:06

感谢楼主开源

a122377787 发表于 2009-8-13 13:39

怎么没用的啊？？？？？？？？？？？？？？？？？？、郁闷。。。。用不了

mo309782571 发表于 2009-8-23 14:09

支持一下.....

meishenm 发表于 2009-11-22 19:36

呵呵，办法不错