☆Obaby's H4cking W0rld☆

Hack-Crack==Backdoors - RATs - Trojans // Binders-Packers - Rootkits

破解-黑客-零日漏洞-灰鸽子/上兴/PCShare-木马免杀-网站入侵-信息安全

2009年5月14日星期四

转载:查看内存数据的函数

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{用十六进制查看内存的函数; 参数1是内存起点, 参数2是以字节为单位的长度}
function ToHex(p: PByteArray; bit: Integer): string;
var
i: Integer;
begin
for i := 0 to bit - 1 do
Result := IntToHex(p^[i], 2) + Chr(32) + Result;
Result := TrimRight(Result);
end;

{用二进制查看内存的函数; 参数1是内存起点, 参数2是以字节为单位的长度}
function ToBin(p: PByteArray; bit: Integer): string;
const
Convert: array['0'..'F'] of string = (
'0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '1001',
'', '', '', '', '', '', '', '1010', '1011', '1100', '1101', '1110', '1111');
var
i: Integer;
s: string;
begin
s := ToHex(p, bit);
for i := 1 to Length(s) do
if s[i] <> Chr(32) then
Result := Result + Convert[s[i]]
else
Result := Result + Chr(32);
end;

{测试一}
procedure TForm1.Button1Click(Sender: TObject);
var
num: Integer;
begin
Randomize;
num := Random(MaxInt);
ShowMessage(IntToStr(num) + #10#13#10#13 +
ToHex(@num, 4) + #10#13#10#13 +
ToBin(@num, 4));
end;

{测试二}
procedure TForm1.Button2Click(Sender: TObject);
var
str: string;
begin
str := 'Delphi 2010';
ShowMessage(str + #10#13#10#13 +
ToHex(@str[1], Length(str)*SizeOf(str[1])) + #10#13#10#13 +
ToBin(@str[1], Length(str)*SizeOf(str[1])));
end;

end.

原文链接:http://www.cnblogs.com/del/archive/2009/05/13/1456376.html




1 评论:

蔡翠紫 说...

365視頻面對面聊天-寂寞同城交友vip破解
寂寞聊天群-酷我秀場-美女主播_視頻聊天室
美女性感聊天室網站-色聊天室網站
伊寂寞交友吧-愛聊北京交友貼吧
一夜情網同城交友-視頻跳舞的女人
寂寞同城交友俱樂部-ONS交友俱樂部qq群
打飛機聊天室-色女生的qq
真人美女視頻聊天網站-情人緣同城交友網
同城異性交友網-成人視頻交友網
免費陪聊視頻網-語音視頻聊天網站
同城床友交友網-王朝聊天室破解
同城約炮聊天室-網聊寂寞直播間
情人網聊天室-網聊寂寞視頻
冒泡視頻交友聊天-中國城多人視頻聊天
同城寂寞交友網-69夫妻網同城
E夜情交友網-69佳緣白領夫妻交友網
伊莉論壇-性生活視頻-夫妻視頻交友QQ群
約炮網站哪個好-夫妻性生活自拍視頻
天下聊聊天室網址-夫妻性生活視頻高清
天下聊語音聊天室-夫妻生活36式視頻
天下聊視頻聊天室-真實性生活視頻
視訊聊天視頻網站-同城約會交友e夜情
聊天室視頻下載-六間房視頻下載
視訊視頻下載-六間房視頻直播DJ
寂寞午夜交友聊天室-專業陪聊網
163聊天室網站-成人寂寞一夜情網
一對一視頻聊天交友-夜寂寞聊天直播間
56as視頻聊天交友網-夜寂寞聊天圖片
美女激情交友聊天社區-同城視頻聊天一夜情
午夜美女裸體-美國視頻聊天網站
視頻聊天網站你懂得-女人寂寞m直播間
美女裸體視頻聊天網站-女人寂寞m視頻
色情美女視頻聊天網站-寂寞女交友
美女隨機視頻聊天QQ-qq聊天找情人
視頻吧聊天交友網-聊性的QQ
優酷私密視頻怎麼看-成人隨想聊天室
日本美妞私密視頻-成人私聊
私密視頻-美女視頻同城交友
全球隨機視頻網怎麼用-視頻演藝聊天室
校內隨機視頻網-寂寞女免費視頻交友
脫衣舞同城交友視頻聊天網-寂寞激情直播間
YY美女激情聊天室-寂寞激情視頻
美女絲襪視頻網站-免費交友約炮一夜情
成人聊天網址-同城陪聊視頻聊天室網站
免費視頻交友聊天室-真人摸奶秀

发表评论