Mensajes

La unica forma que conozco es hacer las dll en C++ y llamarlo desde VB, otra forma no conozco, o si haces un troyano podes hacer el servidor en C++ asi es mas efectivo cuando se lo coloque en otra pc y no necesita diseño grafico, y el cliente en VB!


Sancho.Mazorka   

Si esa es  espero que entiendas lo que dice y te sirva, sino no dudes en postear!



Sancho.Mazorka   

Una vez vi un batch que se podia autoeliminar pero no me acuerdo como era el code, se que era facil, per fue hace mucho tiempo, los que sepan demasiado sobre batch intenten decirnos cual es esa funcion entonces podes ejecutar el batch, que nos borre, y que luego se borre a el!


Sancho.Mazorka   

Al RTB cambiale la propiedad ScrollBars en vertical, entonces la cantidad de caracteres estara restringido al ancho que tenga el RTB, no se si me explico...


Sancho.Mazorka   

Man fijate en la pagina 2,3 o 4 de este foro y encontraras una guia muy buena de API's y funciones para el MSN. Busca y no seas tan vago, ensima el autor del post puso ejemplos de lo que vos keres hacer, asi que te va a venir bien


Sancho.Mazorka   

FUSION!


Sancho.Mazorka   

Man es como la cuarta vez que preguntas como llamar una funcion/procedimiento que esta en un modulo! No se si no entendiste como hacerlo o sos molesto...!
Mira si keres llamar una funcion/procedimiento pone el nombre de dicha funcion/procedimiento y con sus parametros si es necesario.


Sancho.Mazorka   

No se puede xq al intentar ejecutar la variable, la PC querra buscar la ruta que dice la variable y no el contenido y dira:
No se ha encontrado el archivo.
Talvez exista otro modo, pero yo no lo conozco!


Sancho.Mazorka   

Como no tenia donde poner el .vbp, y no queria complicarlos tanto copie el .frm
Abran un archivo de texto y pongan lo que esta abajo, y despues guardenlo como .frm

Código [Seleccionar] Expandir

VERSION 5.00
Begin VB.Form Form1
   BackColor       =   &H00000000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Encriptador/Desncriptador"
   ClientHeight    =   2220
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4995
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2220
   ScaleWidth      =   4995
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdReset
      BackColor       =   &H00000000&
      Caption         =   "Reset"
      BeginProperty Font
         Name            =   "Comic Sans MS"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3000
      MaskColor       =   &H0000FF00&
      TabIndex        =   5
      Top             =   1200
      Width           =   1815
   End
   Begin VB.TextBox txtDesencriptado
      Height          =   375
      Left            =   1440
      TabIndex        =   3
      Top             =   1680
      Width           =   3495
   End
   Begin VB.CommandButton cmdDesencriptar
      BackColor       =   &H00000000&
      Caption         =   "descifrar"
      BeginProperty Font
         Name            =   "Comic Sans MS"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      MaskColor       =   &H0000FF00&
      TabIndex        =   2
      Top             =   1200
      Width           =   1815
   End
   Begin VB.TextBox txtEncriptado
      Height          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   600
      Width           =   3735
   End
   Begin VB.TextBox txtFuente
      Height          =   375
      Left            =   1200
      TabIndex        =   0
      Top             =   120
      Width           =   3735
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "A cifrar ->"
      BeginProperty Font
         Name            =   "Comic Sans MS"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   0
      TabIndex        =   7
      Top             =   120
      Width           =   1095
   End
   Begin VB.Label Label3
      BackStyle       =   0  'Transparent
      Caption         =   "descifrado ->"
      BeginProperty Font
         Name            =   "Comic Sans MS"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   0
      TabIndex        =   6
      Top             =   1680
      Width           =   1455
   End
   Begin VB.Label Label2
      BackStyle       =   0  'Transparent
      Caption         =   "cifrado ->"
      BeginProperty Font
         Name            =   "Comic Sans MS"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   0
      TabIndex        =   4
      Top             =   600
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdDesencriptar_Click()
On Error Resume Next
Dim Code() As String
Dim i As Integer

Code = Split(txtEncriptado.Text, "-")

For i = 0 To UBound(Code)
    txtDesencriptado.Text = txtDesencriptado.Text & Chr(Code(i))
Next i
End Sub

Private Sub txtFuente_KeyPress(KeyAscii As Integer)
txtEncriptado.Text = txtEncriptado.Text & KeyAscii & "-"
End Sub

Private Sub cmdReset_Click()
'Reseteamos todo =O
txtFuente.Text = ""
txtEncriptado.Text = ""
txtDesencriptado.Text = ""
End Sub


Al ejecutar el .frm ya les abrira el proyecto y no tendran que hacer nada!    es una encriptacion tonta en ASCII pero sirve de algo 


Sancho.Mazorka   

Jjajaj que boludo man, si ya te lo habian respondido! En vez de poner Private pone Public y listo, dsp pones el nombre de la funcion desde cualkier lado y la llama!
Me acabo de dar cuenta de que cesaron los atakes DDOS, que bueno 


Sancho.Mazorka