Mensajes

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 .

Claro, yo ya se hacer eso, es más ya lo probe de esa manera, pero no me funciona, osea, no me conecta con el server, como que me queda Cargando ..
Pero yo se que desde el cliente esta cifrando, pero el problema es el server que no encirpta .

Claro, y ¿cual seria la varible de salida?

Porque imaginate que yo estoy hablando de un Case "OLOGIO", osea, tienen qe descifrar lo que esta codificado en el cliente

El tuyo como sería para implementarlo ?
Obvio sin textbox

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