uSystemUtils.pas

unit uSystemUtils;

interface

procedure ShowInformation(const Msg: string);
function ShowQuestion(const Msg: string): boolean;
function Criptografar(wStri: String): String;

implementation

uses
  System.SysUtils, Vcl.Forms, Winapi.Windows, Vcl.Controls;

procedure ShowInformation(const Msg: string);
begin
  Application.MessageBox(PWideChar(Msg), PWideChar(Application.Title),
    MB_ICONINFORMATION + MB_OK);
end;

function ShowQuestion(const Msg: string): boolean;
begin
  Result := Application.MessageBox(PWideChar(Msg), PWideChar(Application.Title),
    MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = mrYes;
end;

function Criptografar(wStri: String): String;
var
  Simbolos: array [0 .. 4] of String;
  x: Integer;
begin
  Simbolos[1] := 'ABCDEFGHIJLMNOPQRSTUVXZYWK ~!@#$%^&*()';

  Simbolos[2] := 'ÂÀ©Øû׃çêùÿ5Üø£úñѪº¿®¬¼ëèïÙýÄÅÉæÆôöò»Á';

  Simbolos[3] := 'abcdefghijlmnopqrstuvxzywk1234567890';

  Simbolos[4] := 'áâäàåíóÇü龶§÷ÎÏ-+ÌÓ߸°¨·¹³²Õµþîì¡«½';

  for x := 1 to Length(Trim(wStri)) do
  begin
    if pos(copy(wStri, x, 1), Simbolos[1]) > 0 then
      Result := Result + copy(Simbolos[2], pos(copy(wStri, x, 1),
        Simbolos[1]), 1)

    else if pos(copy(wStri, x, 1), Simbolos[2]) > 0 then
      Result := Result + copy(Simbolos[1], pos(copy(wStri, x, 1),
        Simbolos[2]), 1)

    else if pos(copy(wStri, x, 1), Simbolos[3]) > 0 then
      Result := Result + copy(Simbolos[4], pos(copy(wStri, x, 1),
        Simbolos[3]), 1)

    else if pos(copy(wStri, x, 1), Simbolos[4]) > 0 then
      Result := Result + copy(Simbolos[3], pos(copy(wStri, x, 1),
        Simbolos[4]), 1);
  end;
end;

end.