|
encripta
!!CB!! 70
Set nTamanho = SalStrLength ( sTexto )
Set
sTempTamanho = SalNumberToStrX(nTamanho+10,0)
While nTamanho >
0
Set sCaracter = SalStrMidX ( sTexto, nTamanho-1,1
)
Set nCharacter = SalStrLop
(sCaracter )
Set sCaracter = SalNumberToChar (
nCharacter+numeroChave(sChave) )
Set sTextoEncriptado =
sTextoEncriptado || SalStrRepeatX ( SalNumberToChar ( nTamanho+100
), nTamanho ) || sCaracter
Set nTamanho = nTamanho
-1
! Set nCharacter = SalStrLop ( strString )
Return
SalStrLeftX(sTextoEncriptado, SalStrLength ( sTextoEncriptado )/2)
|| '<' || sTempTamanho || '<' || sTextoEncriptado
desencripta
!!CB!! 70
Set nTamanho = SalStrLength ( sTexto )
Call
SalStrTokenize( sTexto, '<', '<', astrToken1 )
Set
nTamanho = SalStrToNumber( astrToken1[1])-10
While nTamanho
> 0
Set sCaracter = SalStrMidX ( astrToken1[2],
nTamanho,1)
Set nTamanho1 =
SalStrLength ( astrToken1[2] )
Set astrToken1[2] =
SalStrRightX ( astrToken1[2],
nTamanho1-(nTamanho+1))
!
astrToken1[2]
Set nCharacter = SalStrLop (sCaracter
)
Set sCaracter = SalNumberToChar (
nCharacter-numeroChave(sChave) )
Set
sTextoDesencriptado = sTextoDesencriptado ||
sCaracter
Set nTamanho = nTamanho -1
! Set
nCharacter = SalStrLop ( strString )
Set nTamanho =
SalStrToNumber( astrToken1[1])-10
While nTamanho >
0
Set sCaracter = SalStrMidX (sTextoDesencriptado,
nTamanho-1,1)
Set
sTextoDesencriptado1 = sTextoDesencriptado1 ||
sCaracter
Set nTamanho = nTamanho -1
Return
sTextoDesencriptado1
numero chave
!!CB!! 70
Set nTamanho = SalStrLength ( sChave )
While
nTamanho > 0
Set sCaracter = SalStrMidX ( sChave,
nTamanho-1,1 )
Set nCharacter =
nCharacter + SalStrLop (sCaracter )
Set nTamanho =
nTamanho -1
Return
nCharacter+100
|
