Funzione pubblica DecodeText (mytext come stringa)
intLength fioco come numero intero
Oscurare la i
Oscurare lo strCurrentLetter come stringa
Oscurare lo strNewText come stringa
intLength = Len (mytext)
Per i = 1 a intLength
strCurrentLetter = metà di (mytext, i, 1)
Selezionare lo strCurrentLetter di caso
Mettere “{„
strNewText = strNewText & “D„
Caso “t„
strNewText = strNewText & “a„
Caso “r„
strNewText = strNewText & “v„
Caso “4„
strNewText = strNewText & “io„
Caso altrimenti
'Non fare niente
'Aggiungere più dichiarazioni “di caso„ qui sopra per convertire più lettere che sono messe
Concludere prescelto
Dopo
DecodeText = strNewText
Funzione di conclusione
|