Home > Back-end >  Great god to convert a C to Delphi genuflect is begged
Great god to convert a C to Delphi genuflect is begged

Time:03-15

 void spacedecryption (char * Buff, int Size, char * AddTable) 
{
For (int I=0, j=0; i{
j++;
Buff [I]=Buff [I] ^ AddTable [j];
Sleep (0);
If (I % 5==0)
j=0;
}
}
Unsigned char MyFileTabLe []={' 0 xba ', '0 x13', '0 xef', '520', '0 XDD'};

CodePudding user response:

Procedure spacedecryption (Buff: PByte; Size: integer; AddTable: PByte);
Var
I, j: integer;
The begin
J:=0;
For I:=0 to do the Size - 1
The begin
Inc (j);
Buff: [I]=Buff [I] xor AddTable [j];
Sleep (0);
If I mod 5=0 then j:=0;
end;
end;

Var
MyFileTabLe: array [0.. 4] of AnsiChar='A3F0D';

CodePudding user response:

Thank elder February 2 dragon looked up and happy

CodePudding user response:

reference 1/f, play big shoot early nuclear response:
procedure spacedecryption (Buff: PByte; Size: integer; AddTable: PByte);
Var
I, j: integer;
The begin
J:=0;
For I:=0 to do the Size - 1
The begin
Inc (j);
Buff: [I]=Buff [I] xor AddTable [j];
Sleep (0);
If I mod 5=0 then j:=0;
end;
end;

Var
MyFileTabLe: array [0.. 4] of AnsiChar='A3F0D';
thanks elder February 2 dragon looked up and happy
  • Related