Encrypt Messages

dfragoso

A way to encrypt messages, this code change the order of the message and change some letters for other symbols.


OnRun()
/////////////Encrypt Messages///////////


//Message
TextMessage := 'This message is encrypted';
Length := STRLEN(TextMessage);


//Message Encryption
i := Length;
REPEAT
Letter := COPYSTR (TextMessage,i ,1 );
ReverseMessage := ReverseMessage + Letter;
i := i - 1;
UNTIL i = 0;

EncryptedMessage := CONVERTSTR(ReverseMessage, 'AEIOUaeiou', 'º*!"#$.ç()');

MESSAGE(EncryptedMessage);


//Message Decryption
i := Length;
REPEAT
Letter := COPYSTR (EncryptedMessage,i ,1 );
ReverseMessage2 := ReverseMessage2 + Letter;
i := i - 1;
UNTIL i = 0;

EncryptedMessage := CONVERTSTR(ReverseMessage2, 'º*!"#$.ç()', 'AEIOUaeiou');

MESSAGE(EncryptedMessage);

kriki

But do you have a question about it or do yo mean it as a tip&trick?

dfragoso

kriki wrote:

But do you have a question about it or do yo mean it as a tip&trick?

I mean it as a tip&trick, sorry for put it in wrong section.

kriki

[Topic moved from Navision forum to Navision Tips & Tricks forum]

vytjak

Well, when I needed some quick and trivial way to encrypt a text string I just XOR'ed it. Also, you don't need to use COPYSTR().

In my version, the main loop looks something like this:

//Message Encryption 
l := Length; 
for i := 1 to Length do
  TextMessage[i] := 255 - TextMessage[i]; 

And run the same loop one more time to decrypt the text.

Just to make it clear: in NO way this is an example of at least basic security measure.

ara3n

Hello, here is a post on how to encrypt/decrypt using SQL.

http://mibuso.com/blogs/ara3n/2009/05/2 ... -with-ado/

Shonatina

vytjak wrote:

//Message Encryption 
l := Length; 
for i := 1 to Length do
  TextMessage[i] := 255 - TextMessage[i]; 

hi there...
i just came cross this post, so pardon me for the very late query on this topic. but please can you explain a bit more about this technique...

thanks in advance

AntidotE

Shonatina wrote:

vytjak wrote:

//Message Encryption 
l := Length; 
for i := 1 to Length do
  TextMessage[i] := 255 - TextMessage[i]; 

hi there...
i just came cross this post, so pardon me for the very late query on this topic. but please can you explain a bit more about this technique...

thanks in advance

Pretty simple.
Every character has it's number in ASCII table. Max value is 255. Min value is 0.
We go through all characters of the string and make another character by subtracting it's number from 255.
e.g. we have string 'ABC', in ASCIIcodes it will be numbers 65 66 67, after our cycle we'll have symbols wih numbers 190 189 188 => string '╛╜╝'.