[VB]获取SYSKEY
很久以前的一个代码了。。。。。那时还沉迷于研究WindowsXP登录密码的计算方法。。。。
先新建一个VB工程，画一个CommandButton，改名为cmdGetSYSKEY，画一个TextBox，改名为txtSYSKEY，然后粘贴下面的代码，运行即可，在WindowsXP SP2 Build 2600 + VB6.0 SP6下测试通过，获得的SYSKEY与Cain&Abel v4.9.6一致。。。。
'**************************************************
'软件名：获取系统 SYSKEY
'翻译制作：TZWSOHO
'欢迎到我的 BLOG：HTTP://BLOG.CSDN.NET/TZWSOHO
'
'本软件参照《SAM的散列存储加密解密算法以及SYSKEY的计算》制作而成
'
'（现节选文中的一段话...）
'
'……那么SYSKEY是如何计算出来的呢？这可能是我发现MS最牛皮的
'一个地方了，先开始想一定会存放在注册表某处，呵呵，
'最后跟踪MS引导时候的WINLOGON进程才知道，
'SYSKEY是这样计算出来的，很多人会大掉眼镜吧：
'SYSKEY的计算是：SYSTEM\\CurrentControlSet\\Control\\Lsa下的
'JD，Skew1，GBG，Data四个键值的CLASS值通过换位得来的……
'
'（然后文章作者给出了部分的 C 源代码，
'我将获取 SYSKEY 部分的代码转成了 VB 代码给大家使用）
'
'注意：本软件纯属算法交流，请不要用于非法用途！
'
'**************************************************
Option Explicit
Private Const KEY_NOTIFY As Long = &H10
Private Const KEY_QUERY_VALUE As Long = &H1
Private Const SYNCHRONIZE As Long = &H100000
Private Const READ_CONTROL As Long = &H20000
Private Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Private Const STANDARD_RIGHTS_READ As Long = (READ_CONTROL)
Private Const KEY_READ As Long = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "Reg
相关文档：
前阵子写了一个目录名/文件名的获取小程序，这两天居然又被名称批量修改麻烦了一下，所以再写一个吧。
注意：你要是只想写一次的话，用批处理更方便。只有多次使用的情况下，自己写程序才有意义。
VB中进行名称修改很容易,用到的就是Name这个函数，用法如下：
Name OldName As NewName，它不仅可以改写名称，而且可以更� ......
IDE：Visual Web Developer 2008 Express Edition
数据库：Access 2007
到http://www.asp.net/ajax/downloads/下载AJAX Control Toolkit，将AjaxControlToolkit.dll拷贝到项目的bin目录下，在工具栏中引入。
WebService的代码：（aaa.asmx）
Public Function GetCompletionList(ByVal prefixText As String, ByVal coun ......
从网上搜集到的VB代码，用EXE方式实现了远程注入，不过在反病毒软件的保护下，有可能导致注入失败。转贴这个代码，仅供大家学习和参考。
一、窗口代码：
Option Explicit
Private Sub cmdLock_Click()
If LockKeyboard(True) Then
cmdLock.Enabled = False
cmdUnLock.Enabled = Tr ......
VB中创建的DLL只是COM组件，无法作为输出函数的DLL。今天从朋友哪里搞到一种可以创建输出函数的DLL的方法，欣喜之余，不敢独享，现在把他介绍给大家。
VB编译文件实际上采取了两次编译的方法，首先是调用c2.exe产生OBJ文件，然后调用Link.exe连接。如果在link的时候添加EXPORT选项，实际上是可以输出函数的。但是，在V ......
