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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


  Mostrar Mensajes
Páginas: 1 ... 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 [50] 51 52 53 54 55
491  Programación / Programación Visual Basic / Re: Fuerza Bruta En VB en: 24 Mayo 2005, 04:59 am
Hace un tiempo postee un ejemplo en el foro:

Código:
'**************************************************
'
'Autor: Slasher
'
'Descripción: Este procedimiento genera claves alfabéticas
'que se pueden usar ya sea para crear un diccionario de claves
'o para crackear algo, da lo mismo. La idea es mostrar un
'algoritmo básico que genera cualquier clave alfabética de
'cualquier cantidad de dígitos.
'
'Con un par de lineas más de puede hacer que genere claves
'alfanuméricas, pero les dejo eso para que usen un poco de
'su imaginación ;)
'
'**************************************************

Option Explicit
Option Base 1

Sub KeyGen(NumChar As Integer, Optional StartData As String)
          Dim btChar() As Byte
          Dim iCnt%
          Dim sKey$
          Dim i%

  ReDim btChar(NumChar) As Byte

  For i = 1 To NumChar
    If Len(StartData) >= NumChar Then
      'Establece la clave inicial.
      '
      btChar(i) = Asc(Mid$(StartData, i, 1))
    Else
      'Comienza desde la A hasta la Z
      '
      btChar(i) = vbKeyA
    End If
  Next

  Do
    'Incrementa el último caracter.
    '
    btChar(NumChar) = btChar(NumChar) + 1

    'Copia la clave a un string.
    '
    For i = NumChar To 1 Step -1
      sKey = Chr$(btChar(i)) & sKey
    Next

    If btChar(NumChar) = vbKeyZ Then

      'Si el último caracter llega a la Z el programa
      'aumenta en uno el anterior. Y asi con todos
      'los caracteres de la clave.
      '
      For i = NumChar To 1 Step -1
        If btChar(i) = vbKeyZ Then
          If i > 1 Then
            btChar(i - 1) = btChar(i - 1) + 1
          End If
         
          iCnt = iCnt + 1
         
          btChar(i) = vbKeyA
        End If
      Next
     
    End If
   
    'Realizar tareas con la clave generada.
    '
    '
    '

   
    If iCnt = NumChar Then Exit Do
   
    sKey = vbNullString
    iCnt = 0
  Loop

End Sub
492  Programación / Programación Visual Basic / Re: unir integers en: 24 Mayo 2005, 04:55 am
Usa la función Format para eso.

Código:
            Dim dResult#, dNumber#
            Dim dPercent#

  dNumber = 1000 'Número ingresado.
  dPercent = 15 '15% (quince por ciento)
  dResult = (dPercent*dNumber)/100

  txtPercent.Text = FormatPercent$(dResult, 3)

Saludos.
493  Programación / Programación Visual Basic / Re: Se puede obtener la direccion URL del Internet Explorer en: 22 Mayo 2005, 00:41 am
Se puede utilizando la función GetWindowText. Primero se busca en hWnd de la ventana (la lista desplegable) utilizando FindWindow y especificando el nombre de clase (no recuerdo bien cual era el nombre de la clase de la ventana).

Utiliza un visor de recursos para ver cual es el nombre de la clase de la ventana y asi poder utilizar este nombre en la llamada a FindWindow.

Saludos.
494  Programación / .NET (C#, VB.NET, ASP) / Re: No nos kedemos con las ganas... en: 21 Mayo 2005, 06:14 am
Gracias BADBYTE-K, yo no lo querìa instalar por eso y aunque no me gusta .NET ya me bajè el còdigo ;D.

Saludos.
495  Programación / Programación Visual Basic / Re: Interrupciones en VB en: 18 Mayo 2005, 22:47 pm
Si usas CreateFileMapping y MapViewOfFile para inyectar código en asm en la memoria compartida y luego le pasas a la función SetTimer el puntero al código se quedará ejecutando aunque el proceso haya terminado, en VB todavía no consigo controlar las exepciones pero funciona.

El problema es que las excepciones se las pasa al sistema operativo y kernel32 produce un error y se cierra  :(

Saludos.
496  Programación / Scripting / Re: random en python? en: 15 Mayo 2005, 09:16 am
Generar números pseudo-aleatorios

http://docs.python.org/lib/module-random.html
497  Programación / Programación C/C++ / Re: Problemas con las funciones printf y exit en Dev C++ en: 15 Mayo 2005, 07:26 am
Citar
Conjunto de caracteres

La mayoría de funciones que usan cadenas en Windows NT/2000/XP se suministran en dos versiones: una para caracteres ANSI y otra para caracteres Unicode. Las funciones para ANSI tienen el sufijo "A", mientras que las funciones para Unicode tienen el sufijo "W". Podemos resolver este problema de dos maneras:

    * Declarar el nombre de la función con un sufijo.
    * Usar el parámetro CharSet en el atributo DllImport, una salida más elegante.

Veamos cómo quedan las declaraciones ahora:

[DllImport("Advapi32.dll", EntryPoint="GetUserName", CharSet=CharSet.Unicode)]

unsafe private static extern bool GetUserNameW(char * lpBuffer, int * nSize);
[DllImport("Advapi32.dll", EntryPoint="GetUserName", CharSet=CharSet.Ansi)]

unsafe private static extern bool GetUserNameA(sbyte * lpBuffer, int * nSize);

Observe que los tipos entregados varían según se use la versión para ANSI o Unicode:

    * "sbyte *" en las versiones para ANSI
    * "char *" en las versiones para Unicode


Fuente: MSDN Library
http://www.microsoft.com/spanish/msdn/comunidad/mtj.net/voices/art77.asp
498  Programación / Programación Visual Basic / Re: Hola necesito ayuda estoy atascado !!! en: 15 Mayo 2005, 01:40 am
Eso es problema de la conexión, es probable que hayas intentado abrir una conexión con el método Open que todavía no está cerrada usando el método Close del WinSock.

Saludos.
499  Programación / Programación Visual Basic / Re: Problema con compilador visual basic 6 en: 15 Mayo 2005, 01:37 am
Si estás usando funciones de la API fijate que le pasas bien los argumentos y sobre todo en el caso que sean Strings, no creo que sea problema del compilador sino de programación.

Cuando pases los strings a las funciones de la API SIEMPRE pasalos como ByVal a menos que sea un caso especial, porque las variables de tipo String de VB utilizan un tipo de datos de automatización denominados BSTR y las funciones de la API trabajan con LPSTR.

Las Variables BSTR en realidad son un puntero a una cadena Unicode terminada en dos caracteres nulos, cuyos 4 bytes anteriores al inicio de la cadena indican la longitud de la cadena unicode.

En el caso de los LPSTR es simplemente una cadena ANSI terminada en un caracter nulo.

Cuando pasas una cadena como ByVal VB lo que pasa es el valor y no el puntero, es decir que va a ser una cadena terminada en nulo y por lo tanto van a ser compatibles los dos tipos, pero si la pasas mal o no te das cuenta vas a sobreescribir el puntero a la cadena y anda a saber qué memoria modificas, por eso se cierra el VB.

 
En todo caso si sigue dando problemas y no es por llamadas a la API (que es muy probable) reinstala VB.

Saludos.
500  Programación / Programación Visual Basic / Re: troyano en visual basic en: 13 Mayo 2005, 23:13 pm
shutdown sólo funciona en WinXp, usa la función SHExitWindows o ExitWindowsEx de la API.

Saludos.
Páginas: 1 ... 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 [50] 51 52 53 54 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines