Private Function cifrar(ByVal Cadena As String, _
                        ByVal Pass As String, Mode As Boolean) As String
Dim LC As Long
Dim LP As Long
Dim I As Long
Dim E As Long
Dim A As String
Dim B As String
Dim NewAscii As Byte
Dim S As Integer
LC = Len(Cadena)
LP = Len(Pass)

For I = 1 To LC
    E = E + 1
    A = Mid(Cadena, I, 1)
    
    If E > LP Then E = 1
    
    B = Mid(Pass, E, 1)
    
    If Mode Then
        S = Asc(A) + Asc(B)
        NewAscii = IIf(S > 255, S - Asc(B), S)
    Else
        S = Asc(A) - Asc(B)
        NewAscii = IIf(S < 0, S + Asc(B), S)
    End If
    cifrar = cifrar & Chr(NewAscii)
Next

End Function

'By xmbeat
'to foro.elhacker.net/programacion VB

Private Function Color(Col As Long) As Integer()
Const B As Long = 65536 'constante que es el resultado de 256 al Cuadrado
Const G As Long = 256
Dim elRGB(2) As Integer
Col = Abs(Col)
'aqui pueden usar el OleTranslateColor para usar los colores del sistema _
pero no lo use para no contradecir el titulo del post
elRGB(2) = Col \ B 'hacemos la operacion inversa de la funcion RGB()
elRGB(1) = (Col Mod B) \ G
elRGB(0) = (Col Mod B) Mod G
Color = elRGB
End Function

Sub Gradient(Formulario As Object, Inicio As OLE_COLOR, Final As OLE_COLOR, Optional Min As Long = 0, Optional _
Max As Long = 256)
With Formulario
.AutoRedraw = True
'min es donde empezará a pintar y Max es donde terminará de hacerlo
Dim I As Integer
Dim Ini() As Integer
Dim Fin() As Integer
Dim Dif As Long
Dim Ant As Long
Dim R As Byte, G As Byte, B As Byte

On Error Resume Next
Ant = .ScaleHeight
.ScaleHeight = 256
Ini = Color(Inicio)
Fin = Color(Final)
Dif = Max - Min

For I = Min To Max
R = Ini(0) + ((Fin(0) - Ini(0)) / Dif) * (I - Min)
G = Ini(1) + ((Fin(1) - Ini(1)) / Dif) * (I - Min)
B = Ini(2) + ((Fin(2) - Ini(2)) / Dif) * (I - Min)
Formulario.Line (0, I)-(.ScaleWidth, I + 1), RGB(R, G, B), BF

Next I

.ScaleHeight = Ant
End With
End Sub



Private Sub Form_Resize()
Const Text0 As String = "By Xmbeat"
Gradient Me, RGB(80, 80, 80), vbBlack, , 100
Gradient Me, vbBlack, RGB(10, 19, 50), 100
Me.FontSize = 24
Me.FontBold = True
Me.CurrentY = (Me.ScaleHeight - Me.TextHeight(Text0)) / 2
Me.CurrentX = (Me.ScaleWidth - Me.TextWidth(Text0)) / 2
Me.ForeColor = vbWhite
Print Text0
End Sub

Private Sub Command1_Click()
Dim Vector() As String

Dim[I As Integer
Dim Mfinal As String
ReDim Vector(Len(Text1.Text))

For I = 1 To Len(Text1.Text)
    Vector(I) = Mid$(Text1.Text, I, 1)
    Mfinal = Mfinal & Asc(Vector(I)) & " "
Next
MsgBox "Finalizado"
Text2.Text = Mfinal
End Sub