求助：c++ 程序段转换为 delphi 程序段

主题：求助：c++ 程序段转换为 delphi 程序段

china_jngj [专家分：0] 发布于 2007-11-06 12:00:00

void __fastcall TForm1::Button1Click(TObject *Sender)
{

int i;
unsigned char kkk[8];
unsigned char ppp[8];//输入
unsigned char ccc[8];//输出
AnsiString l;

for (i=0;i<6;i++){
l = "0x" + Edit1->Text.SubString(i*2 + 1,2);

kkk[i]=StrToInt(l);
}
for (i=0;i<4;i++) ppp[i]=StrToInt("0x" + Edit2->Text.SubString(i*2 + 1,2));

MyDes(kkk, ppp, ccc);
Edit3->Clear();
for (i=0;i<6;i++) Edit3->Text = Edit3->Text + IntToHex(ccc[i],2);
}[em14]

本帖地址： http://bbs.pfan.cn/post/257196.html

回复列表（共3个回复）

沙发

my3439955 [专家分：330] 发布于 2007-11-20 09:23:00

还是BCB的代码

几乎只改一下语法就够了

板凳

wangsai_008 [专家分：0] 发布于 2007-12-22 13:17:00

MyDes(kkk, ppp, ccc); MYDES函数呢？

3 楼

wangsai_008 [专家分：0] 发布于 2007-12-22 13:37:00

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    kkk,ppp,ccc:array[0..8]of char;
    l:string;
begin
    for i:=0 to 5 do
    begin
        l:=copy(edit1.Text,i*2+1,2);
        kkk[i]:=char(strtoint(l));
    end;
    for i:=0 to 3 do
         mydes(kkk,ppp,ccc);
         edit1.Clear;
     for i:=0 to 5 do
       begin
         Edit1.Text:=Edit1.Text+char(kkk[i]);
       end;

end;

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：求助：c++ 程序段转换为 delphi 程序段

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：求助：c++ 程序段 转换为 delphi 程序段

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：求助：c++ 程序段转换为 delphi 程序段

回复列表（共3个回复）