<!--CodeS-->
function sha1_vm_test()
{
  return hex_sha1("abc") == "a9993e364706816aba3e25717850c26c9cd0d89d";
}

function str_sha1(s){return binb2str(core_sha1(str2binb(s),s.length * chrsz));}
<!--CodeE-->

위의 두 함수를 델파이로 포팅하려고 합니다.
<!--CodeS-->
function TSha1.sha1_vm_test():string;
begin
  Result := hex_sha1('abc') == 'a9993e364706816aba3e25717850c26c9cd0d89d';
end;

function TSha1.hex_sha1(s:string):string;
begin
  Result := binb2hex(core_sha1(str2binb(s),length(s) * chrsz));
end;
<!--CodeE-->

sha1_vm_test함수에서는 ==부분이 에러가 나구여...
hex_sha1에서는 length(s) * chrsz 부분에서 Variable required 에러가 납니다.

왜그런지 좀 알려 주세요 ㅠㅠ