Sandrila Ltd Delphi Code

// Perform ROT13 function on a string
function sRot13 (S: string): string;

function sRot13 (S: string): string;
const
  upperAZ: array ['A'..'Z'] of Char = 'NOPQRSTUVWXYZABCDEFGHIJKLM';
  loweraz: array ['a'..'z'] of Char = 'nopqrstuvwxyzabcdefghijklm';
var
  i: Integer;
  s1: string;
begin
  s1 := '';
  for i := 1 to Length(S) do
  begin
    if s[i] in ['A'..'Z'] then
      s1 := s1 + upperAZ[s[i]]
    else if s[i] in ['a'..'z'] then
      s1 := s1 + loweraz[s[i]]
    else
      s1 := s1 + s[i];
  end;
  Result := s1;
end;

Home