Pascal Scripting: GetSHA1OfString

Prototype:

function GetSHA1OfString(const S: AnsiString): String;

Description:

Gets the SHA-1 hash of the specified string, as a string.

Example:
var
  SHA1: String;
begin
  SHA1 := GetSHA1OfString('Test');
  // SHA1 = '640ab2bae07bedc4c163f679a746f7ab7fb5d1fa'
end;