Temas

Hola, buenas noches, con todo respeto me dirijo a ustedes para pedirle su cordial ayuda, para hacer un textbox transparente, porque, se que se puede a través de una propiedad, ¿es posible?. en tal caso, ¿me podrian ayudar?

Desde ya , muchas gracias .

Hola, buenas noches, bueno, me llamo Axel, y queria unirme a su comunidad, y como molesto que soy :$, hace poco estoy metido en la programacion, y hay veces que quiero hacer cosas que todavia me cuestan razonar jaja.
El problema es que estoy usando un Decoder y Encoder y tengo un problema, en el cliente lo cifro y en el server lo descifro, les muestro mas o menos como es :

La linea del cliente la tengo asi :

Código [Seleccionar] Expandir

Sub Login(ByVal valcode As Integer)

If EstadoLogin = Normal Then

Call EncryptString(("OLOGIO" & UserName & "," & UserPassword & "," & App.Major & "." & App.Minor & "." & App.Revision & "," & valcode), "asd123", ENCRYPT)


Yo ahi llame a la funcion EncryptString y que me encripte toda esta linea :

Código [Seleccionar] Expandir

(("OLOGIO" & UserName & "," & UserPassword & "," & App.Major & "." & App.Minor & "." & App.Revision & "," & valcode)

Y creo que hasta hay me funciona, porque me lo cifra bien .

Ahora el problema en el server, el Sub en el server es asi :
El case es asi :

Código [Seleccionar] Expandir

            Case "OLOGIO"
       

                rdata = Right$(rdata, Len(rdata) - 6)
               
                            Call EncryptString(("OLOGIO"), "asd123", DECRYPT)

               
                cliMD5 = ReadField(5, rdata, 44)
                tName = ReadField(1, rdata, 44)
                tName = RTrim(tName)
               

                   
                If Not AsciiValidos(tName) Then
                    Call SendData(ToIndex, UserIndex, 0, "ERRNombre invalido.")
                    Exit Sub
                End If
               
                If (UserList(UserIndex).flags.ValCoDe = 0) Or (ValidarLoginMSG(UserList(UserIndex).flags.ValCoDe) <> CInt(val(ReadField(4, rdata, 44)))) Then
                    Call CloseSocket(UserIndex)
                    Exit Sub
                End If
               
           
                tStr = ReadField(6, rdata, 44)
               
       
                tStr = ReadField(7, rdata, 44)
               
                     
                Call ConnectUser(UserIndex, tName, ReadField(2, rdata, 44))
               
                Exit Sub

Y yo le agrege esta linea para que desencripte , pero esta mal,

Código [Seleccionar] Expandir

                            Call EncryptString(("OLOGIO"), "asd123", DECRYPT)

Ese es mi problema, es la parte que no entiendo , si me podrian ayudar, estoy interesado en aprender .

Desde ya muchas gracias, les dejo el modulo del encriptador .

Código [Seleccionar] Expandir

DefInt A-Z
Option Explicit

'//For Action parameter in EncryptString
Public Const ENCRYPT = 1, DECRYPT = 2

'---------------------------------------------------------------------
' EncryptString
' Modificado por Harvey T.
'---------------------------------------------------------------------
Public Function EncryptString( _
    UserKey As String, Text As String, Action As Single _
    ) As String
    Dim UserKeyX As String
    Dim Temp     As Integer
    Dim Times    As Integer
    Dim i        As Integer
    Dim j        As Integer
    Dim n        As Integer
    Dim rtn      As String
   
    '//Get UserKey characters
    n = Len(UserKey)
    ReDim UserKeyASCIIS(1 To n)
    For i = 1 To n
        UserKeyASCIIS(i) = Asc(Mid$(UserKey, i, 1))
    Next
       
    '//Get Text characters
    ReDim TextASCIIS(Len(Text)) As Integer
    For i = 1 To Len(Text)
        TextASCIIS(i) = Asc(Mid$(Text, i, 1))
    Next
   
    '//Encryption/Decryption
    If Action = ENCRYPT Then
       For i = 1 To Len(Text)
           j = IIf(j + 1 >= n, 1, j + 1)
           Temp = TextASCIIS(i) + UserKeyASCIIS(j)
           If Temp > 255 Then
              Temp = Temp - 255
           End If
           rtn = rtn + Chr$(Temp)
       Next
    ElseIf Action = DECRYPT Then
       For i = 1 To Len(Text)
           j = IIf(j + 1 >= n, 1, j + 1)
           Temp = TextASCIIS(i) - UserKeyASCIIS(j)
           If Temp < 0 Then
              Temp = Temp + 255
           End If
           rtn = rtn + Chr$(Temp)
       Next
    End If
   
    '//Return
    EncryptString = rtn
End Function