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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


  Mostrar Temas
Páginas: [1] 2 3 4 5
1  Sistemas Operativos / GNU/Linux / Banda Ancha Móvil en Kubuntu en: 6 Mayo 2011, 17:26 pm
Buenas!.. el tema es el siguiente... en Ubuntu 10.10 venia usando cuando viajaba mi celular como modem de internet.. lo habia configurado muy facil, con un par de clicks desde el gestor de red, Banda Ancha Movil...

Ahora he instalado Kubuntu 11.04 en mi notebook, y tengo el problema de q esta opcion (la pestaña que dice Banda Ancha Móvil) se encuentra innabilidatada.. y no he podido habilitarla, he googleado mucho, probe con WiCD etc.. y no consigo entrar a esa funcion (para configurarla)...

asi alguno sabe como puedo solucionarlo, o alguna idea de q puede ser... agradeceria su respuesta!
2  Programación / Programación Visual Basic / combinaciones VB en: 29 Diciembre 2008, 20:42 pm
hola.. tengo un problema con un fuerza bruta...

el tema es asi, tengo 6 letras y necesito ver las combinaciones de todas ellas...
pero no se como hacer a q no se repitan... xq asi el codigo es mucho mas lento :S

x ejemplo asdfgh
con este codigo primero aparece aaaaaa en vez de asdfgh y luego cambiarlas de lugar a x ejemplo asdfhg :S

colocar 2 command button, un timmer con intervalo 0
para hacer funcionar el code presionar el segundo command :P
Código
  1. Dim cont As Byte
  2. Dim Letras As String
  3. Dim Letra() As String
  4. Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte
  5. Dim La As String, Lb As String, Lc As String, Ld As String, Le As String, Lf As String
  6.  
  7. Private Sub Command1_Click()
  8. Letras = ""
  9.  
  10. Do While Text1.Text <> ""
  11. Letras = Letras & Left(Text1.Text, 1) & "|"
  12. Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
  13. Loop
  14.  
  15. Letra = Split(Letras, "|")
  16.  
  17. For a = 0 To 5
  18.   La = Letra(a)
  19.    For b = 1 To 5
  20.        Lb = Letra(b)
  21.        For c = 2 To 5
  22.            Lc = Letra(c)
  23.            For d = 3 To 5
  24.               Ld = Letra(d)
  25.                For e = 4 To 5
  26.                    Le = Letra(e)
  27.                    For f = 5 To 5
  28.                       Lf = Letra(f)
  29.                        SendKeys La & Lb & Lc & Ld & Le & Lf
  30.                        SendKeys "{Enter}"
  31.                        DoEvents
  32.                    Next f
  33.                Next e
  34.            Next d
  35.        Next c
  36.    Next b
  37. Next a
  38.  
  39. MsgBox "Termino"
  40.  
  41. End Sub
  42.  
  43. Private Sub Command2_Click()
  44. Timer1.Interval = 1000
  45. End Sub
  46.  
  47. Private Sub Timer1_Timer()
  48. If cont = 3 Then
  49. Call Command1_Click
  50. Timer1.Interval = 0
  51. cont = 0
  52. Else
  53. cont = cont + 1
  54. End If
  55. End Sub
  56.  
3  Programación / Programación Visual Basic / Simple juego en: 7 Noviembre 2008, 22:35 pm
bueno... este proyecto surgio creo q caudno intentaba acelerar el envio de capturas de pantalla de mi troyano.. y termino en esto xD jaja nada q ver

antes q nada decir q el codigo es 100% mio.. y q si se matan buscando similitudesen internet seguro encuentran algo ya q de ahi aprendo... pero lo hice yo a todo.. ¬¬ (para las malas lenguas)

dejo un link de descarga del Source:
http://rapidshare.com/files/162287705/Simple_Juego.rar.html

bueno les dejo el code:
Un Form con:
un timer = Timer1
un Picture = Picture1
un menu titulo Configuracion = mnu
     sub menu titulo Tamaño = mnu_tam
     sub menu titulo Cantidad de Obstaculos = mnu_obs

en un modulo
Código
  1. 'Sencillo Juego Creado Por Vivachapas
  2. 'Si estas leyendo este codigo mas vale q lo hayas
  3. 'bajado del http://foro.elhacker.net , sino es copiado ¬¬
  4.  
  5. Public NumObs As Long, Ini As Long
  6. Public Direccion As Byte
  7. Public MX As Long, MY As Long
  8. Public PX As Long, PY As Long
  9. Public CS As Byte
  10. Public X As Long, Y As Long
  11.  
  12. Sub Tabla()
  13. Dim i As Long
  14. Gano
  15. Form1.Picture1.Line ((X - 1) * CS, (Y - 1) * CS)-(X * CS, Y * CS), vbRed, BF
  16. Form1.Picture1.Line (PX * CS, PY * CS)-((PX + 1) * CS, (PY + 1) * CS), vbGreen, BF
  17. For i = 0 To X
  18.    Form1.Picture1.Line (i * CS, 0)-(i * CS, Y * CS), vbBlack
  19. Next i
  20.  
  21. For i = 0 To Y
  22.    Form1.Picture1.Line (0, i * CS)-(X * CS, i * CS), vbBlack
  23. Next i
  24. End Sub
  25.  
  26. Function Dentro() As Boolean
  27. Dentro = True
  28. If MX >= X Then
  29. Dentro = False
  30. MX = MX - 1
  31. End If
  32. If MY >= Y Then
  33. Dentro = False
  34. MY = MY - 1
  35. End If
  36. If MX < 0 Then
  37. Dentro = False
  38. MX = MX + 1
  39. End If
  40. If MY < 0 Then
  41. Dentro = False
  42. MY = MY + 1
  43. End If
  44. End Function
  45.  
  46. Sub Mueve()
  47. Form1.Picture1.Line (PX * CS, PY * CS)-((PX + 1) * CS, (PY + 1) * CS), vbWhite, BF
  48. PX = MX
  49. PY = MY
  50. Tabla
  51. End Sub
  52.  
  53. Sub Perdio()
  54. Direccion = 0
  55. MsgBox "Perdio", , "Agus"
  56. NumObs = Ini
  57. Reset
  58. End Sub
  59.  
  60. Sub Reset()
  61. Form1.Picture1.Cls
  62. Direccion = 0
  63. PX = 0
  64. PY = 0
  65. MX = 0
  66. MY = 0
  67. Obstaculos (NumObs)
  68. Titulo
  69. End Sub
  70.  
  71. Sub Gano()
  72. If Form1.Picture1.Point(PX * CS + 1, PY * CS + 1) = vbRed Then
  73. MsgBox "Gano", , "Agus"
  74. NumObs = Int(NumObs * 120 / 100)
  75. Reset
  76. End If
  77. End Sub
  78.  
  79. Sub Obstaculos(ByVal Cantidad As Long)
  80. Randomize
  81. Dim i As Long
  82. Dim OX As Long, OY As Long
  83. For i = 1 To Cantidad
  84.    OX = Int(Rnd * X)
  85.    OY = Int(Rnd * Y)
  86.    Form1.Picture1.Line (OX * CS, OY * CS)-((OX + 1) * CS, (OY + 1) * CS), vbBlue, BF
  87. Next i
  88. Tabla
  89. End Sub
  90.  
  91. Sub Lugar()
  92. If Form1.Picture1.Point(MX * CS + 1, MY * CS + 1) = vbBlue Then Perdio
  93. End Sub
  94.  
  95. Sub Titulo()
  96. Form1.Caption = "Agus - Obstaculos:" & NumObs
  97. End Sub
  98.  

en el Form1

Código
  1. 'Sencillo Juego Creado Por Vivachapas
  2. 'Si estas leyendo este codigo mas vale q lo hayas
  3. 'bajado del http://foro.elhacker.net , sino es copiado ¬¬
  4.  
  5. Private Sub Form_Load()
  6. PX = 0
  7. PY = 0
  8. Direccion = 0
  9. Ini = 20
  10. NumObs = Ini
  11. Titulo
  12. With Picture1
  13.    .Height = 5000
  14.    .Width = 5000
  15.    .AutoRedraw = True
  16.    .BackColor = vbWhite
  17.    .ScaleMode = 3
  18. End With
  19. CS = 20
  20. X = Int(Picture1.ScaleHeight / CS)
  21. Y = Int(Picture1.ScaleWidth / CS)
  22. Picture1.ScaleHeight = X * CS + 1
  23. Picture1.ScaleWidth = Y * CS + 1
  24. Obstaculos (Ini)
  25. Timer1.Interval = CS * 5
  26. End Sub
  27.  
  28. Private Sub mnu_obs_Click()
  29. a = InputBox("Ingrese el numero de obstaculos iniciales", "Agus")
  30. If a = "" Then Exit Sub
  31. If IsNumeric(a) Then
  32. Ini = a
  33. Else
  34. MsgBox "Debe ingresar un numero", vbCritical, "Agus"
  35. End If
  36. NumObs = Ini
  37. Titulo
  38. Reset
  39. End Sub
  40.  
  41. Private Sub mnu_tam_Click()
  42. a = InputBox("Ingrese el tamaño", "Agus")
  43. If a = "" Then Exit Sub
  44. If IsNumeric(a) Then
  45. CS = a
  46. Else
  47. MsgBox "Debe ingresar un numero", vbCritical, "Agus"
  48. End If
  49. Picture1.Cls
  50. X = Int(Picture1.ScaleHeight / CS)
  51. Y = Int(Picture1.ScaleWidth / CS)
  52. Picture1.ScaleHeight = X * CS + 1
  53. Picture1.ScaleWidth = Y * CS + 1
  54. Timer1.Interval = CS * 5
  55. Obstaculos (Ini)
  56. End Sub
  57.  
  58. Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
  59. Dim Podra As Boolean
  60. Select Case KeyCode
  61.  
  62. Case vbKeyRight
  63. If Direccion = 2 Then
  64. Perdio
  65. Exit Sub
  66. End If
  67. Direccion = 1
  68.  
  69. Case vbKeyLeft
  70. If Direccion = 1 Then
  71. Perdio
  72. Exit Sub
  73. End If
  74. Direccion = 2
  75.  
  76. Case vbKeyUp
  77. If Direccion = 4 Then
  78. Perdio
  79. Exit Sub
  80. End If
  81. Direccion = 3
  82.  
  83. Case vbKeyDown
  84. If Direccion = 3 Then
  85. Perdio
  86. Exit Sub
  87. End If
  88. Direccion = 4
  89.  
  90. End Select
  91. End Sub
  92.  
  93. Private Sub Timer1_Timer()
  94. Dim Podra As Boolean
  95. Select Case Direccion
  96. Case 0
  97. Exit Sub
  98. Case 1
  99. MX = PX + 1
  100. Case 2
  101. MX = PX - 1
  102. Case 3
  103. MY = PY - 1
  104. Case 4
  105. MY = PY + 1
  106. End Select
  107.  
  108. Podra = Dentro
  109. Lugar
  110. If Podra = False Then
  111. Perdio
  112. Exit Sub
  113. End If
  114.  
  115. Mueve
  116. End Sub
  117.  

espero opiniones...

SALUDOS

P/D: Tamaño 5, con 100 Obstaculos es mi favorito...
4  Programación / Programación Visual Basic / cifrar y Descencriptar cadenas (source) en: 1 Noviembre 2008, 19:35 pm
bueno honestamente yo usaba uno q saque de internet q una sola funcion realizaba las dos tareas (descencriptar y cifrar) pero nunca lo habia entendido...
ahora no se xq se me ocurrio mirarlo, con mas conociminetos y me di cuenta q es xq usa el comando Xor (estuve investigando q es... no es nada jodido..) y pense xq no hacer uno yo xD...
y bueno lo hice :P, la verdad no se si habra uno parecido (no creo q igual ¬¬) en internet xq ni me fije xD pero a este lo hice yo :P
lo bueno q le veo a este code es q si cifrar x ejemplo AAAA el resutaldo no van a ser 4 caracteres iguales sino q todos distintos :P

Código
  1. Private Function cifrar(Cadena As String)
  2. Dim Tam As Long
  3. Dim i As Long
  4. Tam = Len(Cadena)
  5. cifrar = ""
  6. For i = 1 To Tam
  7.    cifrar = cifrar & Chr(Asc(Mid(Cadena, i, 1)) + Tam - i + 10)
  8. Next
  9. End Function
  10.  
  11. Private Function Descencriptar(Cadena As String)
  12. Dim Tam As Long
  13. Dim i As Long
  14. Tam = Len(Cadena)
  15. Descencriptar = ""
  16. For i = 1 To Tam
  17.    Descencriptar = Descencriptar & Chr(Asc(Mid(Cadena, i, 1)) - Tam + i - 10)
  18. Next
  19. End Function

bueno no se xD si les sirve o quieren opinar o conocen algun otro copado :P
5  Programación / Scripting / ayuda con batch (no sabia donde ponerlo) en: 30 Octubre 2008, 18:24 pm
bueno lo pregunto aca... xq no vi en el foro otro q diga batch xD
aparte la preg seguro la saben.. esta relazionada con VB y con los troyanos

bueno lo q quiero hacer es q mi troyano se pueda eliminar si yo le ordeno...
ahora hice un batch q lo borra y luego se borra a si mismo... pero es q cuando el server ejecuta el batch, luego se cierra, antes de cerrarse el batch como q no pudo borrarlo...
en fin quiero saber como hacer algo asi como un timer... donde le de 1 seg a q se cierre el servidor y luego lo borre...

hasta ahora tenia esto:
Código:
@echo off
del services.exe
del archivo.bat
exit

SALUDOS
6  Programación / Programación Visual Basic / ScreenShot duda... en: 25 Octubre 2008, 18:39 pm
mmm bueno esto surgio anoche.. estaba usando la asistencia remota del msn y me dio una idea.. no se si utds la han usado pero donde se ve la pantalla se actualiza solo la parte q cambie... y bue me pase la noche tratando de hacer eso para mi troyano, para asi lograr mayor velocidad cuando se actualiza la img

hice este sencillo code...
se necesita: 2 commandbutton
                  2 picutre box
                  1 combobox

los nombres son los q vienen x defecto...

Código
  1. Dim Presionado As Boolean
  2. Dim Color As ColorConstants
  3.  
  4. Private Sub Combo1_Click()
  5. Select Case Combo1.Text
  6.    Case "Rojo"
  7.    Color = vbRed
  8.    Case "Azul"
  9.    Color = vbBlue
  10.    Case "Verde"
  11.    Color = vbGreen
  12. End Select
  13. End Sub
  14.  
  15. Private Sub Command1_Click()
  16. Dim Cont As Integer
  17. Dim Ancho As Integer
  18. Dim Alto As Integer
  19. Dim PixX As Integer
  20. Dim PixY As Integer
  21. Dim PixColor As Double
  22. Dim oPixColor As Double
  23. Cont = 0
  24. Alto = Picture1.Height
  25. Ancho = Picture1.Width
  26. Picture1.DrawWidth = 1
  27. Picture2.DrawWidth = 1
  28. For PixX = 1 To Ancho Step 10
  29.    For PixY = 1 To Alto Step 10
  30.    PixColor = Picture1.Point(PixX, PixY)
  31.    oPixColor = Picture2.Point(PixX, PixY)
  32.    If Not PixColor = oPixColor Then
  33.    Color = Picture1.Point(PixX, PixY)
  34.    Picture2.PSet (PixX, PixY), Color
  35.    Cont = Cont + 1
  36.    End If
  37.    Next PixY
  38. Next PixX
  39. Picture1.DrawWidth = 3
  40. Picture2.DrawWidth = 3
  41. MsgBox Cont
  42. End Sub
  43.  
  44. Private Sub Command2_Click()
  45. Picture1.Cls
  46. Picture2.Cls
  47. End Sub
  48.  
  49. Private Sub Form_Load()
  50. Picture1.Height = 1500
  51. Picture2.Height = 1500
  52. Picture1.Width = 1500
  53. Picture2.Width = 1500
  54. Picture1.DrawWidth = 3
  55. Picture2.DrawWidth = 3
  56. Picture1.BackColor = vbWhite
  57. Picture2.BackColor = vbWhite
  58. With Combo1
  59.    .AddItem "Rojo"
  60.    .AddItem "Verde"
  61.    .AddItem "Azul"
  62. End With
  63. End Sub
  64.  
  65.  
  66. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  67. Presionado = True
  68. Picture1.CurrentX = X
  69. Picture1.CurrentY = Y
  70. End Sub
  71.  
  72. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  73. If Presionado = False Then Exit Sub
  74. Picture1.Line -(X, Y), Color
  75. End Sub
  76.  
  77. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  78. Presionado = False
  79. End Sub
  80.  
  81. Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  82. Presionado = True
  83. Picture2.CurrentX = X
  84. Picture2.CurrentY = Y
  85. End Sub
  86.  
  87. Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  88. If Presionado = False Then Exit Sub
  89. Picture2.Line -(X, Y), Color
  90. End Sub
  91.  
  92. Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  93. Presionado = False
  94. End Sub
  95.  
  96.  

bueno el problema es el siguiente... a ese codigo ya lo probe con los screencapture pero el problema es q si se tapa un picture x otra ventana de otra aplicacion es como si se modificara el picture... no se si me entienden
osea si no se ven las 2 img enteras en la pantalla, los pixeles q no se ve, los toma como distintos... :S

bueno quisiera saber eso como hacer a q no importe si el picture este o no en la pantalla pero q lo compare
o si conocen algun otra forma de hacer esto :S

SALUDOS
7  Programación / Programación Visual Basic / Problema con Inet en: 16 Octubre 2008, 03:12 am
:S llevo rato leyendo... honestamente nunca habia trabajado con Inet... vi ya varios post... la mayoria terminan en este ejemplo
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/209-inet-ftp.htm
seguro alguno ya lo conocia... pero a mi no me soluciona todo en el post xD... me tira error el codigo en esta linea
Código
  1.        Call .Execute(, "Put " & txt_local & " " & txt_Remoto)

no se si alguno le habra pasado...
o q puede estar mal del code XD

SALUDOS
8  Programación / Programación Visual Basic / problema con enviar archivo y progressbar en: 2 Agosto 2008, 06:31 am
bueno hacia mucho q no usaba estas funciones... y como un #€#?@ no guarde un proyecto donde lo tenia...
el caso es q estaba tratando de hacer de nuevo un programa para enviar archivos con progressbar en el cliente y en el servidor...
el programa solo tiene eso, lo acabo de hacer para recordar.. y me di cuenta q no lo recuerdo muy bien xD..

Servidor:
Código:
Dim Archivo As String, Peso As Long
Dim Partes As String

Private Sub Command1_Click()
Dim Puerto As Long
Puerto = Text1.Text
WS.Close
WS.LocalPort = Puerto
WS.Listen
End Sub

Private Sub Command3_Click()
Open Text2.Text For Binary As #1
Archivo = Input(LOF(1), 1)
Close #1
Peso = Len(Archivo)
WS.SendData "Envio|" & Peso
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String
Dim i As Long

WS.GetData Datos

If Datos = "Manda" Then
MsgBox "manda"
PB.Max = Peso
PB.Min = 1
For i = 1 To Peso
    Partes = Mid(Archivo, i, 100)
    WS.SendData Partes
    PB.Value = i
    i = i + 99
Next
PB.Value = 1
End If
End Sub

Cliente:
Código:
Dim Recibiendo As Boolean, Peso As Long, vPeso As Long
Dim Archivo As String

Private Sub Command1_Click()
Dim IP As String
Dim Puerto As Long
IP = Text1.Text
Puerto = Text2.Text
WS.Close
WS.Connect IP, Puerto
End Sub

Private Sub WS_Connect()
MsgBox "Conecto"
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String
Dim vDatos() As String

WS.GetData Datos

If Recibiendo = True Then
    vPeso = vPeso + bytesTotal
    Archivo = Archivo + Datos
    PB.Value = vPeso
    If Peso = vPeso Then
    MsgBox "recibe todo"
    PB.Value = 1
        Open "C:\foto.jpg" For Binary As #1
        Put #1, 1, Archivo
        Close #1
        Archivo = ""
        Recibiendo = False
    End If
    Exit Sub
End If

vDatos = Split(Datos, "|")

If vDatos(0) = "Envio" Then
    Recibiendo = True
    Archivo = ""
    vPeso = 0
    Peso = vDatos(1)
    PB.Max = Peso
    PB.Min = 1
    WS.SendData "Manda"
End If
End Sub

al archivo lo envia correctamente, y este llega bien, se guarda y todo... el problema es q primero se va cargando el progressbar del programa q lo envia, cuando este termina comienza a cargar el q lo recibe, y este cada vez lo hace mas lento...
:/ no entiendo xq es... es de noche tengo sueño y tal vez sea eso... pero x favor si alguno me da una mano se lo agradezco...


P/D: EON se q me vas a retar... pero busuqe tu ejemplo y no lo encuentroooo solo encontre la funcion MID para partir el archivo pero no para el progressbar


SALUDOS
9  Programación / Scripting / Script para messenger Plus! en: 28 Julio 2008, 22:15 pm
hola, he creado un Script para el messenger... es algo sencillo, es lo primero q hago en Script...
el programa funciona bien... pero tengo problemas para validarlo, creo q el problema esta en el .xml
quisiera saber si alguien ha hecho algun Script para el Messenger Plus! y me puede dar una mano...

SALUDOS
10  Programación / Programación Visual Basic / ms-dos vb en: 2 Mayo 2008, 02:25 am
disculpen las molestias de este post, xq se q ya se hablo del tema...
pero yo estuve buscando en google y hay bastantes cosas q no me salen ¬¬
queria ver si alguno me tiraba algun link de ejemplos concretos de como usar comandos de la MS-DOS ya q vi uno muy bueno y completo pero q muchas cosas me dicen q la sintaxis la hago mal.
la idea de esto es aplicarlo a VB x eso lo posteo aca
se q es algo con el piper pero nunca logre hacerlo :(

SALUDOS
Páginas: [1] 2 3 4 5
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines