peace 

Those of you who know about coding, i have a message:

//Coding lang=<Þ™7£=Djù,àü@‡«–A-Wë­?}žò‚ðº6É>

unit EncryptDecryptUnit;

interface

uses

System.SysUtils, System.Classes, Vcl.Forms, Vcl.Controls, Vcl.Graphics, Vcl.Dialogs;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

function XOR_EncryptDecrypt(const InputStr: string; Key: Byte): string;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

var

OriginalMessage: string;

EncryptedMessage: string;

DecryptedMessage: string;

Key: Byte;

begin

// Original message to encrypt

OriginalMessage := 'GO TO (link is only visible to registered users)

Key := 123; // XOR key for encryption/decryption

// Encrypt the message

EncryptedMessage := XOR_EncryptDecrypt(OriginalMessage, Key);

ShowMessage('Encrypted Message: ' + EncryptedMessage);

// Decrypt the message (same key)

DecryptedMessage := XOR_EncryptDecrypt(EncryptedMessage, Key);

ShowMessage('Decrypted Message: ' + DecryptedMessage);

end;

function TForm1.XOR_EncryptDecrypt(const InputStr: string; Key: Byte): string;

var

I: Integer;

EncodedStr: string;

begin

EncodedStr := '';

for I := 1 to Length(InputStr) do

begin

EncodedStr := EncodedStr + Chr(Ord(InputStr[I]) XOR Key);

end;

Result := EncodedStr;

end;

end.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

mjqqt... Fsi Knsfqqd Lttigdj... Htsajwyji yt XPFB - Dtz ini ny tp...mtbx qnkj?

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -