Postada em 02/09/2008 20:21 hs
Use as funções Cript e Decript com uma Chave de criptografia. Ex.:
Dim sTexto As String
sTexto = Cript("Eu sou programador",12345)
sTexto = Decript(sTexto,12345)
Msgbox sTexto
'----------------------------------------------------------------------------------------------------------
'Num módulo
Option Explicit
Public Function Cript(Value As String, Chave As Long) As Variant
Cript = CriptB(CriptVogal(Value), Chave)
End Function
Public Function Decript(Value As String, Chave As Long) As Variant
Decript = DecriptVogal(DeCriptB(Value, Chave))
End Function
Public Function CriptB(Value As String, Chave As Long) As Variant
On Local Error Resume Next
'Dim Chave As Long
Dim to_text As String
Dim v_sqlerrm As String
Dim SenhaCript As String
Dim var1 As String
Const MIN_ASC = 32
Const MAX_ASC = 126
Const NUM_ASC = MAX_ASC - MIN_ASC + 1
Dim offset As Long
Dim str_len As Integer
Dim i As Integer
Dim Ch As Integer
to_text = Empty
offset = NumericPassword(Chave)
Rnd -1
Randomize offset
str_len = Len(Value)
For i = 1 To str_len
Ch = Asc(Mid$(Value, i, 1))
If Ch >= MIN_ASC And Ch <= MAX_ASC Then
Ch = Ch - MIN_ASC
offset = Int((NUM_ASC + 1) * Rnd)
Ch = ((Ch + offset) Mod NUM_ASC)
Ch = Ch + MIN_ASC
to_text = to_text & Chr$(Ch)
End If
Next i
CriptB = to_text
End Function
Public Function DeCriptB(Value As String, Chave As Long) As Variant
On Local Error Resume Next
'Dim Chave As Long
Dim to_text As String
Dim v_sqlerrm As String
Dim SenhaCript As String
Dim var1 As String
Const MIN_ASC = 32
Const MAX_ASC = 126
Const NUM_ASC = MAX_ASC - MIN_ASC + 1
Dim offset As Long
Dim str_len As Integer
Dim i As Integer
Dim Ch As Integer
to_text = Empty
offset = NumericPassword(Chave)
Rnd -1
Randomize offset
str_len = Len(Value)
For i = 1 To str_len
Ch = Asc(Mid$(Value, i, 1))
If Ch >= MIN_ASC And Ch <= MAX_ASC Then
Ch = Ch - MIN_ASC
offset = Int((NUM_ASC + 1) * Rnd)
Ch = ((Ch - offset) Mod NUM_ASC)
If Ch < 0 Then Ch = Ch + NUM_ASC
Ch = Ch + MIN_ASC
to_text = to_text & Chr$(Ch)
End If
Next i
DeCriptB = to_text
End Function
Private Function NumericPassword(ByVal Password As String) As Long
On Local Error Resume Next
Dim Value As Long
Dim Ch As Long
Dim shift1 As Long
Dim shift2 As Long
Dim i As Integer
Dim str_len As Integer
str_len = Len(Password)
For i = 1 To str_len
Ch = Asc(Mid$(Password, i, 1))
Value = Value Xor (Ch * 2 ^ shift1)
Value = Value Xor (Ch * 2 ^ shift2)
shift1 = (shift1 + 7) Mod 19
shift2 = (shift2 + 13) Mod 23
Next i
NumericPassword = Value
End Function
Public Function DecriptVogal(Text As String) As String
On Local Error Resume Next
Dim strNewText As String
strNewText = Text
strNewText = Replace(strNewText, Chr(123) & Chr(97) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(125), Chr(225)) 'á
strNewText = Replace(strNewText, Chr(123) & Chr(97) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(125), Chr(224)) 'à
strNewText = Replace(strNewText, Chr(123) & Chr(97) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(125), Chr(226)) 'â
strNewText = Replace(strNewText, Chr(123) & Chr(97) & Chr(45) & Chr(116) & Chr(105) & Chr(108) & Chr(125), Chr(227)) 'ã
strNewText = Replace(strNewText, Chr(123) & Chr(97) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(125), Chr(228)) 'ä
strNewText = Replace(strNewText, Chr(123) & Chr(101) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(125), Chr(233)) 'é
strNewText = Replace(strNewText, Chr(123) & Chr(101) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(125), Chr(232)) 'è
strNewText = Replace(strNewText, Chr(123) & Chr(101) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(125), Chr(234)) 'ê
strNewText = Replace(strNewText, Chr(123) & Chr(101) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(125), Chr(235)) 'ë
strNewText = Replace(strNewText, Chr(123) & Chr(105) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(125), Chr(237)) 'í
strNewText = Replace(strNewText, Chr(123) & Chr(105) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(125), Chr(236)) 'ì
strNewText = Replace(strNewText, Chr(123) & Chr(105) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(125), Chr(238)) 'î
strNewText = Replace(strNewText, Chr(123) & Chr(105) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(125), Chr(239)) 'ï
strNewText = Replace(strNewText, Chr(123) & Chr(111) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(125), Chr(243)) 'ó
strNewText = Replace(strNewText, Chr(123) & Chr(111) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(125), Chr(242)) 'ò
strNewText = Replace(strNewText, Chr(123) & Chr(111) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(125), Chr(244)) 'ô
strNewText = Replace(strNewText, Chr(123) & Chr(111) & Chr(45) & Chr(116) & Chr(105) & Chr(108) & Chr(125), Chr(245)) 'õ
strNewText = Replace(strNewText, Chr(123) & Chr(111) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(125), Chr(246)) 'ö
strNewText = Replace(strNewText, Chr(123) & Chr(117) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(125), Chr(250)) 'ú
strNewText = Replace(strNewText, Chr(123) & Chr(117) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(125), Chr(249)) 'ù
strNewText = Replace(strNewText, Chr(123) & Chr(117) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(125), Chr(251)) 'û
strNewText = Replace(strNewText, Chr(123) & Chr(117) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(125), Chr(252)) 'ü
strNewText = Replace(strNewText, Chr(123) & Chr(99) & Chr(101) & Chr(100) & Chr(105) & Chr(108) & Chr(104) & Chr(97) & Chr(125), Chr(231)) 'ç
strNewText = Replace(strNewText, Chr(123) & Chr(97) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(50) & Chr(125), Chr(193)) 'Á
strNewText = Replace(strNewText, Chr(123) & Chr(97) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(50) & Chr(125), Chr(192)) 'À
strNewText = Replace(strNewText, Chr(123) & Chr(97) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(50) & Chr(125), Chr(194)) 'Â
strNewText = Replace(strNewText, Chr(123) & Chr(97) & Chr(45) & Chr(116) & Chr(105) & Chr(108) & Chr(50) & Chr(125), Chr(195)) 'Ã
strNewText = Replace(strNewText, Chr(123) & Chr(97) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(50) & Chr(125), Chr(196)) 'Ä
strNewText = Replace(strNewText, Chr(123) & Chr(101) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(50) & Chr(125), Chr(201)) 'É
strNewText = Replace(strNewText, Chr(123) & Chr(101) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(50) & Chr(125), Chr(200)) 'È
strNewText = Replace(strNewText, Chr(123) & Chr(101) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(50) & Chr(125), Chr(202)) 'Ê
strNewText = Replace(strNewText, Chr(123) & Chr(101) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(50) & Chr(125), Chr(203)) 'Ë
strNewText = Replace(strNewText, Chr(123) & Chr(105) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(50) & Chr(125), Chr(205)) 'Í
strNewText = Replace(strNewText, Chr(123) & Chr(105) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(50) & Chr(125), Chr(204)) 'Ì
strNewText = Replace(strNewText, Chr(123) & Chr(105) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(50) & Chr(125), Chr(206)) 'Î
strNewText = Replace(strNewText, Chr(123) & Chr(105) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(50) & Chr(125), Chr(207)) 'Ï
strNewText = Replace(strNewText, Chr(123) & Chr(111) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(50) & Chr(125), Chr(211)) 'Ó
strNewText = Replace(strNewText, Chr(123) & Chr(111) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(50) & Chr(125), Chr(210)) 'Ò
strNewText = Replace(strNewText, Chr(123) & Chr(111) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(50) & Chr(125), Chr(212)) 'Ô
strNewText = Replace(strNewText, Chr(123) & Chr(111) & Chr(45) & Chr(116) & Chr(105) & Chr(108) & Chr(50) & Chr(125), Chr(213)) 'Õ
strNewText = Replace(strNewText, Chr(123) & Chr(111) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(50) & Chr(125), Chr(214)) 'Ö
strNewText = Replace(strNewText, Chr(123) & Chr(117) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(50) & Chr(125), Chr(218)) 'Ú
strNewText = Replace(strNewText, Chr(123) & Chr(117) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(50) & Chr(125), Chr(217)) 'Ù
strNewText = Replace(strNewText, Chr(123) & Chr(117) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(50) & Chr(125), Chr(219)) 'Û
strNewText = Replace(strNewText, Chr(123) & Chr(117) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(50) & Chr(125), Chr(220)) 'Ü
strNewText = Replace(strNewText, Chr(123) & Chr(99) & Chr(101) & Chr(100) & Chr(105) & Chr(108) & Chr(104) & Chr(97) & Chr(50) & Chr(125), Chr(199)) 'Ç
DecriptVogal = strNewText
End Function
Public Function CriptVogal(Text As String) As String
On Local Error Resume Next
Dim strNewText As String
strNewText = Text
strNewText = Replace(strNewText, Chr(225), Chr(123) & Chr(97) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(125)) '
strNewText = Replace(strNewText, Chr(224), Chr(123) & Chr(97) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(125))
strNewText = Replace(strNewText, Chr(226), Chr(123) & Chr(97) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(125))
strNewText = Replace(strNewText, Chr(227), Chr(123) & Chr(97) & Chr(45) & Chr(116) & Chr(105) & Chr(108) & Chr(125))
strNewText = Replace(strNewText, Chr(228), Chr(123) & Chr(97) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(125))
strNewText = Replace(strNewText, Chr(233), Chr(123) & Chr(101) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(125))
strNewText = Replace(strNewText, Chr(232), Chr(123) & Chr(101) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(125))
strNewText = Replace(strNewText, Chr(234), Chr(123) & Chr(101) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(125))
strNewText = Replace(strNewText, Chr(235), Chr(123) & Chr(101) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(125))
strNewText = Replace(strNewText, Chr(237), Chr(123) & Chr(105) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(125))
strNewText = Replace(strNewText, Chr(236), Chr(123) & Chr(105) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(125))
strNewText = Replace(strNewText, Chr(238), Chr(123) & Chr(105) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(125))
strNewText = Replace(strNewText, Chr(239), Chr(123) & Chr(105) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(125))
strNewText = Replace(strNewText, Chr(243), Chr(123) & Chr(111) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(125))
strNewText = Replace(strNewText, Chr(242), Chr(123) & Chr(111) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(125))
strNewText = Replace(strNewText, Chr(244), Chr(123) & Chr(111) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(125))
strNewText = Replace(strNewText, Chr(245), Chr(123) & Chr(111) & Chr(45) & Chr(116) & Chr(105) & Chr(108) & Chr(125))
strNewText = Replace(strNewText, Chr(246), Chr(123) & Chr(111) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(125))
strNewText = Replace(strNewText, Chr(250), Chr(123) & Chr(117) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(125))
strNewText = Replace(strNewText, Chr(249), Chr(123) & Chr(117) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(125))
strNewText = Replace(strNewText, Chr(251), Chr(123) & Chr(117) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(125))
strNewText = Replace(strNewText, Chr(252), Chr(123) & Chr(117) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(125))
strNewText = Replace(strNewText, Chr(231), Chr(123) & Chr(99) & Chr(101) & Chr(100) & Chr(105) & Chr(108) & Chr(104) & Chr(97) & Chr(125))
strNewText = Replace(strNewText, Chr(193), Chr(123) & Chr(97) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(192), Chr(123) & Chr(97) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(194), Chr(123) & Chr(97) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(195), Chr(123) & Chr(97) & Chr(45) & Chr(116) & Chr(105) & Chr(108) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(196), Chr(123) & Chr(97) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(201), Chr(123) & Chr(101) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(200), Chr(123) & Chr(101) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(202), Chr(123) & Chr(101) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(203), Chr(123) & Chr(101) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(205), Chr(123) & Chr(105) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(204), Chr(123) & Chr(105) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(206), Chr(123) & Chr(105) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(207), Chr(123) & Chr(105) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(211), Chr(123) & Chr(111) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(210), Chr(123) & Chr(111) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(212), Chr(123) & Chr(111) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(213), Chr(123) & Chr(111) & Chr(45) & Chr(116) & Chr(105) & Chr(108) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(214), Chr(123) & Chr(111) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(218), Chr(123) & Chr(117) & Chr(45) & Chr(97) & Chr(103) & Chr(117) & Chr(100) & Chr(111) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(217), Chr(123) & Chr(117) & Chr(45) & Chr(99) & Chr(114) & Chr(97) & Chr(115) & Chr(101) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(219), Chr(123) & Chr(117) & Chr(45) & Chr(99) & Chr(105) & Chr(114) & Chr(99) & Chr(117) & Chr(110) & Chr(102) & Chr(108) & Chr(101) & Chr(120) & Chr(111) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(220), Chr(123) & Chr(117) & Chr(45) & Chr(116) & Chr(114) & Chr(101) & Chr(109) & Chr(97) & Chr(50) & Chr(125))
strNewText = Replace(strNewText, Chr(199), Chr(123) & Chr(99) & Chr(101) & Chr(100) & Chr(105) & Chr(108) & Chr(104) & Chr(97) & Chr(50) & Chr(125))
CriptVogal = strNewText
End Function
|
