|
안녕하세요
델파이 암호화 소스를 변환하려 하는데
Char(StrToInt('$'+Copy(S,(I*2)+1, 2)))
이부분이 이해가 안돼네요..... 고수님들 도움좀 부탁드립니다.
전체소스인데요
//----------------------------------------------------------
// Hexadecimal로 구성된 문자열을 Byte 데이터로 변환
function HexToValue(const S : String) : String;
var
I : Integer;
begin
SetLength(Result, Length(S) div 2);
for I := 0 to (Length(S) div 2) - 1 do
begin
Result[I+1] := Char(StrToInt('$'+Copy(S,(I*2)+1, 2)));
end;
end;
//----------------------------------------------------------
전 이렇게 변환했거든요 잘 안돼네요 ^^
String __fastcall HexToValue(const String S)
{
int I;
String ru;
ru.SetLength(S.Length() / 2);
int itmp;
String stmp;
for (I = 0; I<(S.Length() / 2)-1; I++)
{
stmp = S[I*2+1] + S[I*2+2];
ru[I+1] = char (StrToInt(stmp));
// ru[I+1] = char(StrToInt('$'+Copy(S,(I*2)+1, 2)));
}
return ru;
}
도움 부탁드립니다.
|