Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - |SMT|

#11
Buenas, bueno quería saber si alguien tiene conocimiento de algún método para agregarle datos a un Stub, Server,etc... pero que no sea con el viejo método de Open file que es muy conocido.

Si alguien puede darme algún enlace para informarme o una referencia por favor.

Gracias.
#12
No, el que no entendiste fuiste tu, para hacer ese bot tienes que aprender a programar. En el foro ahi mucha información lee un poco.
#13
¿Y que quieres que hagamos, que programemos el bot?
Primero aprende a programar y luego ya con un buen conocimiento puedes realizar lo que desees en vez de estar pretendiendo que te lo haremos todos.. no seas noob..
#14
Buenas, aquí les dejo un pequeño code que realice cuando estaba comenzando a programar y estaba interesado en la parte de criptografia.
El code es basado en el "cifrado por desplazamiento", "desplazamiento de Cesar", etc... como su mismo nombre lo indica lo que hace es "desplazar" los caracteres X cantidad de veces a la izquierda o derecha.

El code es bastante viejo puede ser fácilmente corregido, simplificado y mejorado lo coloco para aquellos que se inicien en la parte de Criptografia orientada a VB6.

Public Function mCesar_Encrypt(ByVal d As String) As String ' Funcion de cifrado.
Dim c As Long
Dim k As String

If d <> "" Then
   For i = 1 To Len(d)
       c = Asc(Mid(d, i, 1)) + 1
       k = k & Chr$(c)
   Next i
   mCesar_Encrypt = k
End If
End Function

Public Function mCesar_Decrypt(ByVal d As String) As String ' Funcion de Descifrado
Dim c As Long
Dim k As String

If d <> "" Then
   For i = 1 To Len(d)
       c = Asc(Mid(d, i, 1)) - 1
       k = k & Chr$(c)
   Next i
End If
mCesar_Decrypt = k
End Function


Saludos.