青峰小记

通过重载消息函数监控USB插拔事件，同时通过WMI获取新插入设备的硬件信息。

同学们都觉得太贵了，那我就降低点。 '调用示例 Debug.Print(stringToHex(des_crypt("MinqfDesTest", "mimi9924", 1))) '加密 Debug.Print(des_crypt("MinqfDesTest", hexToString("3F2DFAAC155A9D5A"), 0)) '解密 这两天要做个VB程序访问PHP的Web服务，传输内容用DES加密算法加密。做的时候发现VB.net带的DES加密算法和我PHP里的不一样，PHP已经是成型产品，不能修改，于是就把PHP里的加密算法翻译了一遍。一天一夜，真不容易。主要问题出在PHP里在做位运算的时候截断数据，搞的我VB.net里费了好大劲。 PHP的算法来自这个网站： http://www.tero.co.uk/des/code.php 修改的时候偷了个懒，2个参数省略了。有同学要用的话自己去加，也没什么难度了。 他提供了PHP、Perl、Javascript三个版本。我在修改的时候主要是用他的PHP版本测试的，PHP版的没问题，其他两版本稍作修改（应该没有PHP中截断数据的问题）应该也没问题的。 Delphi的同学可以找找这个加密算法也有Delphi版的。 费了很大精力搞这东西，佛祖的真经也要用紫金钵盂换的，发到CSDN上，供同学们使用。 觉得贵的同学请飘过，第一天晚上搞到4点，第二天一天，晚上又到2点，才调试完毕。所以，觉得贵的自己翻译去。 时间仓促，有可能还会有问题，如果有同学找到问题，请提出来，不胜感激。

VB.net使用ReadProcessMemory读取各种类型的数据，如String、Single、Double、int等。。。 写内存的代码相对简单，给大家用来练手。 为了类型转换费了老大劲。。。 后来才发现原来很简单。杯具。。

VB.net内联汇编类，用来在VB.net中执行汇编指令。

VB驱动级内存读写示例，游戏外挂开发，过NP、HS必须。VB驱动调用。

网上找了好多都是英文版的，发个中文版的上来，好东西给最需要的人。