Encrypt-Decrypt Concept

Here is a Simple Encrypt and Decrypt Concept

* Filename : TesEncrypt.prg
* Last Update : 12:20:06 6/21/2001
* Programmer : FIRDAUS MAULANA
* http://www.daoush.net
* Remarks : Simple Encrypt and Decrypt Concept


*** Input text
a = INPUTBOX("Text to encrypt : ")

b = Encrypt( a ) && Encrypting
c = Decrypt( b ) && Decrypting an Encrypt Variable

MESSAGEBOX( "Source : " + a + AddEnter()+;
        "Encrypt : " + b + AddEnter()+;
        "Dectrypt: " + c,0,"Encrypt Result")

RETURN

****************************************************
function ENCRYPT( vText )
local vJmlHuruf, vCounter , vDummy , vHasil
** Check the argument
if type( "vText" ) != "C" && if not Character
MESSAGEBOX("ARGUMENT ERROR")
return vText
endif

** Prepare the Variables
vHasil = ""
for vCounter=1 to len(vText)
vDummy = substr( vText , vCounter , 1 )
vDummy = asc( vDummy ) + vCounter
vHasil = vHasil + chr( vDummy )
next vCounter
return vHasil
****************************************************

function DECRYPT( vText )
local vJmlHuruf, vCounter , vDummy , vHasil
** Check the argument
if type( "vText" ) != "C" && if not Character
MESSAGEBOX("ARGUMENT ERROR")
return vText
endif

** Prepare the Variables
vHasil = ""

for vCounter=1 to len(vText)
vDummy = substr( vText , vCounter , 1 )
vDummy = asc( vDummy ) - vCounter
vHasil = vHasil + chr( vDummy )
next vCounter
return vHasil
****************************************************

function AddEnter()
return CHR(13)+CHR(10)
****************************************************

12.06.2008. 11:17

This article hasn't been commented yet.