Foro de elhacker.net

Class encriptador 

[...]

'
'TXTCHARS ES UN ARRAY CON LOS CARACTERES DEL TEXTO
'TXTUBOUND ES EL NUEMRO DE ELEMENTOS DE LA MATRIZ TXTCHARS
'

'
'CUERPO DE LA ENCRIPTACION LLAMA A TODOS LOS 'METODOS QUE LA COMPONEN, HASTA 'AHORA SOLO 'OBTASCII Y LOS APLICA PARA CARACTER
'

Public Sub cifrar(ByVal txtchars() As Char, ByVal txtUbound As Integer)

For I = 0 To txtUbound

obtASCII(txtchars, UBound(txtchars))

Next

End Sub

'
'METODO QUE OBTIENE EL ASCII DE CADA CARACTER Y LO 'ENCADENA A MSASCII PARA SU POSTERIOR IMPRESION EN 'PANTALLA
'

Public Sub obtASCII(ByVal txtchars() As Char, ByVal txtUbound As Integer)

piASCII(I) = Convert.ToByte(txtchars(I))

[...]

End Sub

[...]

End class

piASCII(I) = Convert.ToByte(txtchars(I))

Option Explicit
[...]