忙忙碌碌,更新不及时诶。
VB编程

纯API实现TCP通信完成点对点聊天--VB

 

平时在VB里使用TCP通信的时候都是用Winsock控件,但是什么时候都拖着一个大ocx不爽,又不是每台机子都有这个控件,所以用API来完成就是最理想的方法。看了一份文档,然后附赠了一份代码,这个代码很好,思路清晰,代码完整,看起来相当舒服明了,发出来。

 

 

...

More...

blackfeather 2009/8/30 4评论

VB编程

刚淘到的N多种加密压缩的模块

 

数据传输的时候最怕信息泄露,或者传输数据量大的时候又要用到数据压缩,所以专门找了找压缩算法。由于VB效率太低,而且一些压缩算法没有VB能编译的。

后来突然发现了这个代码,太强了,强大的无语了。。。

21种加密54种压缩算法模块,我截个图:

 

...

More...

blackfeather 2009/7/26 3评论

随心杂谈

刚看了一篇高考0分作文,写的还算有内涵

 

某省的高考零分作文:

题目是:

    兔子是历届小动物运动会的短跑冠军,可是不会游泳。一次兔子被狼追到河边,差点被抓住。动物管理局为了小动物的全面发展,将小兔子送进游泳培训班,同班的还有小狗、小龟和小松鼠等。小狗、小龟学会游泳,又多了一种本领,心里很高兴:小兔子和小松鼠花了好长时间都没学会,很苦恼。培训班教练野鸭说:“我两条腿都能游,你们四条腿还不能游?成功的90%来自汗水。加油!呷呷!”
     评论家青蛙大发感慨:“兔子擅长的是奔跑!为什么只是针对弱点训练而不发展特长呢?”思想家仙鹤说:“生存需要的本领不止一种呀!兔子学不了游泳就学打洞,松鼠学不了游泳就学爬树嘛。”
...

More...

blackfeather 2009/6/14 2评论

VB编程

加载驱动 -- VB

 

使用VB来加载驱动,不多解释了。用的是最简单,最原始的注册表加载的方法。

代码如下:

Option Explicit

Private Const STATUS_IMAGE_ALREADY_LOADED = 
Private Const HKEY_CLASSES_ROOT = 
...

More...

blackfeather 2008/11/26 1评论

其他代码

替换服务添加一个svchost.exe启动的服务 -- delphi

 

建立svchost.exe启动的服务现在貌似很流行,黑洞,gh0st和我们小组的远控都是这种方式,主要是隐蔽性高。我发出来替换服务的方式添加,现在VB版的正在写,就是遇到了点问题,比较恶心,很快就能解决,写完了第一时间发出来!

DELPHI代码如下:

{安装单元
完成进度:服务安装
日期:2008,9,16
作者:Lenk(L.S.T)}
...

More...

blackfeather 2008/11/19 2评论

VB编程

远程注入/卸载/自我删除(RtlCreateUserThread) -- VB

 

原文地址:http://blog.csdn.net/chenhui530/archive/2008/10/21/3119107.aspx  作者:chenhui530(大仙级人物)

 

 最近才发现的“RtlCreateUserThread”(下步调用ZwCreateThread)这可是个好东西,可以创建远程线程,也可以用来写多线程程序,但是在VB里好像还是不是很稳定只能用API。

...

More...

blackfeather 2008/11/16 0评论