Encrypt Decrypt Concept

Here is Encrypt and Decrypt Concept in Clipper

** TEST.prg **
** By : FIRDAUS MAULANA
** http://www.daoush.net
** link together with ENKRIPSI.obj
** RTLINK FILE TEST,ENKRIPSI

a := "testing..."
? a

b := Encrypt( a )
? b

c := Decrypt( b )
? c

*************************************************************************
*************************************************************************


* Filename : ENKRIPSI.prg
* Last Update : 12:20:06 6/21/2001
* Programmer : FIRDAUS MAULANA
* Remarks : Simple Encrypt and Decrypt Function
* Compiled : Clipper ENKRIPSI /n /m /a /w


memvar getlist

*************************************************************************
function ENCRYPT( vText )
local vJmlHuruf, vCounter , vDummy , vHasil
** Check the argument
if valtype( vText ) != "C" // if not Character
save screen to vHasil
clear
@ 24,30 say "ENCRYPT ARGUMENT ERROR"
inkey(0)
restore screen from vHasil
return vText
endif

** Prepare the Variables
vHasil = ""

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

return vHasil
*************************************************************************



*************************************************************************

function DECRYPT( vText )
local vJmlHuruf, vCounter , vDummy , vHasil
** Check the argument
if valtype( vText ) != "C" // if not Character
save screen to vHasil
clear
@ 24,30 say "DECRYPT ARGUMENT ERROR"
inkey(0)
restore screen from vHasil
return vText
endif

** Prepare the Variables
vHasil = ""

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

return vHasil
*************************************************************************

12.06.2008. 12:30

This article hasn't been commented yet.