致新手：用VB6解决一些有趣的问题（十）

最新推荐文章于 2020-11-29 23:15:46 发布

最新推荐文章于 2020-11-29 23:15:46 发布 · 128 阅读

文章标签：

#操作系统

最后一篇致新手:破解

有加密就有破解,破解实际就是未知密码的前提下去解密

破解还有另外一个内容就是对文件和程序的破解,那需要更底层的知识

比如汇编语言等

我们用一个简单的例子来展示破解的过程

一个TextBox PassWordChar 为* 也就是*号密码的文本框

一个Timer InterVal = 100 也就是1秒执行10次

使用下面的代码,运行后点一下你的文本框,看看里面显示的什么

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '开关按钮 Private Type POINTAPI X As Long Y As Long End Type Private Const EM_SETPASSWORDCHAR = &HCC Private Sub Timer1_Timer() Dim pText As POINTAPI Dim hHwnd As Long GetCursorPos pText hHwnd = WindowFromPoint(pText.X, pText.Y) If hHwnd = 0 Then Exit Sub PostMessage hHwnd, EM_SETPASSWORDCHAR, 0, 0 End Sub

点击前: