Função pública DecodeText (mytext como a corda)
intLength não ofuscante como o inteiro
Escurecer i
Escurecer o strCurrentLetter como a corda
Escurecer o strNewText como a corda
intLength = Len (mytext)
Para i = 1 ao intLength
strCurrentLetter = meados de (mytext, i, 1)
Selecionar o strCurrentLetter do caso
Encaixotar “{”
strNewText = strNewText & “D”
Caso “t”
strNewText = strNewText & “a”
Caso “r”
strNewText = strNewText & “v”
Caso “4”
strNewText = strNewText & “mim”
Caso mais
'Não fazer nada
'Adicionar mais indicações do “caso” acima para converter mais letras que são codificadas
Terminar seleto
Em seguida
DecodeText = strNewText
Função do fim
|