procedure TForm1.Button1Click(Sender: TObject); const
code: array[0..8] of byte =($55, $8B, $EC, $81, $C4, $30, $F0, $FF, $FF);
var
newcode : array[0..8] of byte;
i:integer;
begin
for i:=0 to sizeof(code)-1 do
newcode[i]:=code[i] xor $55; //这个就是你要的新数组
end;上面是那的别人的代码,我想获取xor后的 newcode[i]数组,上面的代码经过xor后如何把xor处理后的数组保存到Memo控件里面,或者是保存到一个新的txt文本文件里?获取的效果也是 ($55, $8B, $EC, $81, $C4, $30, $F0, $FF, $FF )这种形式的,不过就是经过xor处理过的数组。
code: array[0..8] of byte =($55, $8B, $EC, $81, $C4, $30, $F0, $FF, $FF);
var
newcode : array[0..8] of byte;
i:integer;
begin
for i:=0 to sizeof(code)-1 do
newcode[i]:=code[i] xor $55; //这个就是你要的新数组
end;上面是那的别人的代码,我想获取xor后的 newcode[i]数组,上面的代码经过xor后如何把xor处理后的数组保存到Memo控件里面,或者是保存到一个新的txt文本文件里?获取的效果也是 ($55, $8B, $EC, $81, $C4, $30, $F0, $FF, $FF )这种形式的,不过就是经过xor处理过的数组。
解决方案 »
- delphi开发的webservice如何在iis7中发布
- 求助! delphi 7 中 strtofloat问题
- 位图旋转后失真
- **********关于数据显示的问题********
- 答了就结帖,简单的问题,ADOTABLE的locate 方法是什么作用?具体各个参数表示什么?
- 请问:Win NT下怎样将程序注册成服务器进程,程序如何实现?
- 各位;侠哥,侠姐帮帮忙
- 我的程序在运行时,提示一个过程参数未定义,应该怎样给参数付值,急!
- WIN XP是不是和DELPHI不兼容啊。总是出现什么‘NTDLL.DLL’的错误。这是咋回事呀?
- delphi自带例子的一个问题。
- 如何知道当前窗体是那个窗体创建的?
- fastreport 如何连续打印单据
const
code: array[0..8] of byte =($55, $8B, $EC, $81, $C4, $30, $F0, $FF, $FF);
var
TmpValue: Byte;
TmpStr: String;
iStart, iCount:integer;
newcode : array[0..8] of byte;
begin
TmpStr := '';
Memo1.Clear;
iCount := sizeof(code) - 1;
for iStart := 0 to iCount do
begin
TmpValue := code[iStart] xor $55;
TmpStr := TmpStr + '$' + IntToHex(TmpValue, 2) + ',';
newcode[iStart]:= TmpValue; //这个就是你要的新数组
end;
TmpStr[length(TmpStr)] := ')';
TmpStr := '(' + TmpStr;
Memo1.Text := TmpStr;
end;
初略写了一下不知道是不是你要的结果!