elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 [10] 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 ... 55
91  Programación / Programación Visual Basic / Re: Duda Numega SmartCheck en: 4 Octubre 2005, 09:19 am
Editor hexadecimal (WinHex), buscas la cadena en Unicode y la cambias. Nunca va a poder ser mayor que la que ya existe sino vas a tener que modificar el código y es más dificil.

Saludos.
92  Programación / Programación Visual Basic / Re: Colocar letras en: 4 Octubre 2005, 09:11 am
El siguiente código tiene 3 modalidades de ordenar las letras, ascendente, descendente y aleatorio.

Código:
Option Explicit
Option Base 1

Const SORT_ASC = 1
Const SORT_DES = 2
Const SORT_RAND = 3

Function SortAbc(SortMode As Integer) As String
        Dim iChar() As Byte
        Dim bExist  As Boolean
        Dim i%, ind%, iRnd%
        Dim sData$

  ReDim Preserve iChar(0 To (vbKeyZ - vbKeyA)) As Byte

  Call Randomize(vbKeyZ)

  For i = vbKeyA To vbKeyZ
    Select Case SortMode
      Case SORT_DES
        sData = sData & Chr$((vbKeyZ - i) + vbKeyA)
      Case SORT_ASC
        sData = sData & Chr$(i)
      Case SORT_RAND
NewNum:
        iRnd = Rnd * vbKeyZ
       
        If iRnd < vbKeyA Then GoTo NewNum
       
        For ind = 1 To (vbKeyZ - vbKeyA)
          If iChar(ind) = iRnd Then
            bExist = True
            Exit For
          End If
        Next
       
        If ind >= 25 Then bExist = False
       
        If bExist Then GoTo NewNum
       
        iChar(i - vbKeyA) = iRnd
        sData = sData & Chr$(iChar(i - vbKeyA))
       
    End Select
  Next

  SortAbc = sData
End Function

Saludos.

EDIT: Sólo funciona en VB6 porque .NET no acepta los GoTo.
93  Programación / Programación Visual Basic / Re: PNG en VB en: 2 Octubre 2005, 11:49 am
Duda con forms.
Fondo transparente

Saludos.
94  Programación / Programación Visual Basic / Re: 2 teclas = 1 accion ? en: 2 Octubre 2005, 11:45 am
Código:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift = vbShiftMask Then
    'Si está presionada la tecla shift.
    '
    Select Case KeyCode
      Case vbKeyNumpad6:
      Case vbKeyNumpad8:
    End Select
  Else
    'Lo que haría con la misma tecla si Shift no está presionado.
    '
    Select Case KeyCode
      Case vbKeyNumpad6:
      Case vbKeyNumpad8:
    End Select
  End If

Saludos.
95  Programación / Programación Visual Basic / Re: incrementar nombre de archivo automáticamente en: 2 Octubre 2005, 11:41 am
Código:
Function MakeName() As String
  MakeName = "TM" & Hex$(Timer) & ".TMP"
End Function

Saludos.
96  Programación / Programación Visual Basic / Re: Bloquear aplicacion en: 2 Octubre 2005, 10:28 am
mi pc->panel de control->agregar o quitar programas->emule
luego boton "agregar o quitar"->"siguiente, siguiente, finalizar"

espero que te sirva ;), saludos.

Se supone que este foro es Programación...
97  Programación / Programación Visual Basic / Re: Esposible o muere en el intento en: 2 Octubre 2005, 07:48 am
Vb no tiene limitaciones, a no ser que sea algu muy bajo a nivel sistema como parámetros de memoria, manipular exe, cluseter etc...
Para todo lo demás están las apis de widnows  ::)

Eso si se puede hacer y sin mucho lío, es más fácil que usar el USB porque DeviceIoControl se comunica directamente con los controladores.

pedronets: hay formas y formas de preguntar las cosas, luego si no te responden no te quejes.
98  Programación / Programación Visual Basic / Re: Visual Basic y ARP Spoof!! en: 2 Octubre 2005, 07:14 am
Hay que infectar las tablas ARP... no es imposible pero tampoco tan fácil. Si miras el código de Nemesis te va a ayudar mucho, pero sabiendo sólo VB no creo que puedas hacer mucho, necesitas saber C y sobre el encaminamiento IP.

Saludos.
99  Programación / Programación Visual Basic / Re: Bloquear aplicacion en: 2 Octubre 2005, 06:41 am
Una función que monitoree los procesos y tenga los nombres de los procesos restringidos, cuando se ejecute el proceso lo eliminas con TerminateProcess.

Puse un ejemplo de esto en el foro, mira la recopilación de post interesantes: Listar procesos, subprocesos y ventanas

Saludos.
100  Programación / Programación Visual Basic / Re: AppActivate en: 2 Octubre 2005, 06:38 am
Código:
Call AppActivate("Título de la ventana")

AppActivate lo que hace es activar un programa mediante el título de su ventana principal.

No es muy recomendable, mejor es usar la función FindWindow y luego ShowWindow.

Saludos.
Páginas: 1 2 3 4 5 6 7 8 9 [10] 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 ... 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines