Mensajes

tengo un carácter algo raro ¬¬"

P.D.: No me weyee's

.
pega esto en un formulario:

Código (Vb) [Seleccionar] Expandir



Private WithEvents cmbobj As ComboBox

Private Sub cmbobj_Change()
    MsgBox "Hola Mundo"
End Sub

Private Sub Form_Load()
    Set cmbobj = Me.Controls.Add("vb.combobox", "cmbobj")
    With cmbobj
        .Top = 100
        .Left = 100
        .Text = "InfrAngeluX"
        .Visible = True
    End With
End Sub



.
con CreateWindowEx seria con un hook para obtener los mensajes q entran a dicha ventana o control.

declaras en el cabezal

private/public withevents Objecto as TipoDeObjeto

despues los asegnas con set Objecto = form.controls.add("...","...")

En eso tienes toda la razon, en cuanto a seguridad creo que no

deja de hablar por hablar por que los textos salientes de ambos algoritmos tienen esatamente la misma seguridad es decir es Crackeadle niño ¬¬"

mmmta madre este habla como si deberás lo hubiese probado y comparado ¬¬"

.
Lo que preguntas es un formulario MDI madre. los formularios hijos debes ponerle la propiedad MDIChild en true después mostrarlos y eso es todo.

1ero agrega el MDI y después agregas los formularios respectivos o no aparecerá la propiedad MDIChild ojo con esto.

Sangrientas Lunas!¡.
.

replace()

.
Haber si te sirve lo acabo de hacer por que me llamo la atención esto:

Código (vb) [Seleccionar] Expandir



'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo                 //
'   /////////////////////////////////////////////////////////////

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Public Function StrConbyte(StrData As String, ByRef vArray() As Byte, Optional StrAntes As Boolean = False) As Byte()

Dim ArrayStr()                  As Byte
Dim ArrayTmp()                  As Byte
Dim ArrayCantElemStr            As Long
Dim ArrayCantElemArray          As Long
Dim CopyBytesLenStr             As Long
Dim CopyBytesLenArray           As Long
Const LenByteArray = 2

   If Len(StrData) > 0 Then
       
       ArrayStr = StrConv(StrData, vbFromUnicode)
       ArrayCantElemStr = UBound(ArrayStr) + 1
       ArrayCantElemArray = UBound(vArray) + 1
       
       ReDim ArrayTmp(ArrayCantElemStr + UBound(vArray))
       
       CopyBytesLenStr = LenByteArray * ArrayCantElemStr
       CopyBytesLenArray = LenByteArray * ArrayCantElemArray
       
       If StrAntes Then
           CopyMemory ArrayTmp(0), ArrayStr(0), CopyBytesLenStr
           CopyMemory ArrayTmp(ArrayCantElemStr), vArray(0), CopyBytesLenArray
       Else
           CopyMemory ArrayTmp(0), vArray(0), CopyBytesLenArray
           CopyMemory ArrayTmp(ArrayCantElemArray), ArrayStr(0), CopyBytesLenStr
       End If
       
       StrConbyte = ArrayTmp
   
   End If
   
End Function



ejemplo en funcionamiento:

Código (vb) [Seleccionar] Expandir



Sub main()

Dim ArrayHola()                 As Byte

   ArrayHola = StrConv("BlackZeroX-", vbFromUnicode)
   ArrayHola = StrConbyte("InfrangeluX", ArrayHola)
   MsgBox StrConv(ArrayHola, vbUnicode)
   
   ArrayHola = StrConv("-BlackZeroX", vbFromUnicode)
   ArrayHola = StrConbyte("InfrangeluX", ArrayHola, True)
   MsgBox StrConv(ArrayHola, vbUnicode)
   
End Sub



P.D.: con unas modificaciones funcionara con integer, long etc. con string, creo que se haría mas largo xP, por hay lo revisan q seguro algo se me a de ver pasado.

Sangrientas Lunas!¡.
.

El Code esta bueno para lo que es...
pero si de cifrar/descifrar yo uso esta funcion:

Código [Seleccionar] Expandir

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

ya que el resultado dependera de la contraseña, lo que la hace mas dificil de que alguien ajeno robe la informacion. la misma la tome de alguna pagina de internet que no recuerdo y tampoco tenia dicha funcion, es por eso que puede que no coincidan con la funcion original del autor

mmmm este es el mio ¬¬" y es mas rápido que el tuyo en consideración a cadenas de texto Largas

http://foro.elhacker.net/programacion_vb/source_encoder_and_decode_algoritmo_simple-t277003.0.html

Sangrientas Lunas!¡.
.

Excelentes aportes Karcrack, sin embargo muchos usuarios o la gran mayoría tiene menos de un 50% de conocimientos en VB y les sería util si explicas en tus aportes la finalidad del source que posteas con el fin de que puedan comprender como usarlo.

a mi solo explíquenme el ASM o un Manual online ( Pagina jejejeje ).

P.D.: Como pasas el código ASM a OpCode (asi se le dice No mmm ¬¬"), lo digo por tus otros Post.

Sangrientas Lunas!¡.
.