Advanced Search

String to Hexadecimal

/ Published in: Delphi
Save to your folder(s)
Works great ;)

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. function String2Hex(const Buffer: Ansistring): string;
  2. var
  3.   n: Integer;
  4. begin
  5.   Result := '';
  6.   for n := 1 to Length(Buffer) do
  7.     Result := LowerCase(Result + IntToHex(Ord(Buffer[n]), 2));
  8. end;

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.