Czy ktos zna jakiś program do konwersji HEX'a na ciąg znaków, aby np. rozkodowywac hasła, nie robiąc tego ręcznie
HEX? chodzi Ci o coś w postaci 23F453A2 ??
Jezuuuu, człowieku, sam sobie napisz. taki numer to nie proglem. np:
unit Hexation;
interface
uses sysutils;
function Hexate(Text:String):String;
function UnHexate(Text:String):string;
implementation
function Hexate(Text:String):String;
var
Output, Txt: string;
I: integer;
begin
if Text='' then
begin
Result:=#0;
Exit;
end;
Txt:=Text;
for I:=1 to Length(Txt)do
begin
Output:=Output+IntToHex(ord(Txt[I]),2);
end;
Result:=Output;
end;
function UnHexate(Text:String):string;
var
Output, Txt: string;
I: integer;
function GetTwoChars(Text: string; Index: integer): string;
var
Output: string;
begin
if (Text'')and(length(Text)>=2)then
begin
Output:=Copy(Text,Index,2);
Result:=Output;
Exit;
end
else
begin
Result:=#0;
Exit;
end;
end;
function HexByteToChar(HexByte:String):char;
var
HB: string;
begin
if HexByte=''then
Begin
Result:=#0;
Exit;
end;
HB:='$'+HexByte;
Result:=chr(StrToInt(HB));
end;
begin
if Text='' then
begin
Result:=#0;
Exit;
end;
Txt:=Text;
I:=1;
while I