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 Mensajes
Páginas: 1 2 3 4 [5] 6
41  Programación / Scripting / Re: Simulador de SO [Batch] en: 6 Diciembre 2012, 15:20 pm
y que utilidad tiene xD ,y como cuantos kb pesa
42  Programación / Scripting / Winsock VBS sintaxis Error en: 6 Diciembre 2012, 15:17 pm
 Buenas intento eNviar esto a un vbs server que lo escriba en un text
LAS VECES k hagan falta ,el texto va de un inputbox
Código
  1. Dim winsock, SendData, RecieveData, secs
  2.  
  3. '****** CHANGE THESE SETTINGS *********
  4.  
  5. Const RemoteHost           = "127.0.0.1"
  6. Const RemotePort           = 1337
  7.  
  8. '***************************************
  9.  
  10. Const skClosed            = 0 '// Default. Closed
  11. Const skOpen              = 1 '// Open
  12. Const skListening         = 2 '// Listening
  13. Const skConnectionPending = 3 '// Connection pending
  14. Const skResolvingHost     = 4 '// Resolving host
  15. Const skHostResolved      = 5 '// Host resolved
  16. Const skConnecting        = 6 '// Connecting
  17. Const skConnected         = 7 '// Connected
  18. Const skClosing           = 8 '// Peer is closing the connection
  19. Const skError             = 9 '// Error
  20.  
  21. MsgBox "Client Started."
  22. WriteData Now & " - Client Started"
  23.  
  24. '// CREATE WINSOCK
  25. On Error Resume Next
  26. Set winsock = Wscript.CreateObject("MSWINSOCK.Winsock")
  27. If Err.Number <> 0 Then
  28.    MsgBox "Winsock Object Error!" & vbCrLf & "Script will exit now."
  29.    WriteData Now & " - Winsock Object Error."
  30.    WScript.Quit
  31. End If
  32. On Error Goto 0
  33.  
  34. '// CONNECT NOW
  35. 'winsock.RemoteHost = RemoteHost
  36. 'winsock.RemotePort = RemotePort
  37. 'winsock.Connect
  38.  
  39. '// MAIN DELAY - WAITS FOR CONNECTED STATE
  40. '// SOCKET ERROR RAISES WINSOCK ERROR SUB
  41. klos()
  42. while winsock.State <> skError And winsock.state <> skConnected And winsock.state <> skClosing And secs <> 25
  43.    WScript.Sleep 1000  '// 1 sec delay in loop
  44.    secs = secs + 1     '// wait 25 secs max
  45. Wend
  46.  
  47. '// CONNECTION TIMED OUT
  48. If secs > 24 Then
  49.    MsgBox "Timed Out"
  50.    WriteData Now & " - Client Timed Out"
  51.    ClientClose()
  52. End If
  53.  
  54. '// SEND DATA NOW
  55.  Sub datei(shit)
  56.   klos()
  57. MsgBox("xD")
  58.  MsgBox(shit)
  59.  klos()
  60.  inout = InputBox("HAK?" & Chr(13))
  61.  
  62.  winsock.SendData (inout)
  63.  
  64. Msgbox (winsock.State)
  65.  'wscript.sleep 7000
  66.  End Sub
  67.  'Loop 'While inout <> "IWO"
  68. 'If 7 > 1 Then
  69. Call datei("s")
  70. Call datei("s")
  71. Call datei("s")
  72. Call datei("s")
  73. Function klos()
  74. MsgBox "reinicia conxion"
  75. winsock.Close()
  76.  winsock.RemoteHost = RemoteHost
  77. winsock.RemotePort = RemotePort
  78. winsock.Connect
  79. End Function
  80.  
  81. 'End If
  82. '// WAIT INCASE NO RESPONSE
  83. ' ript.Sleep 25000
  84. 'riteData Now & " - Client No Response. Winsock State: " & winsock.state
  85. 'lientClose()
  86.  
  87. '// WINSOCK DATA ARRIVES
  88. Sub winsock_dataArrival(bytesTotal)
  89.    Dim strData
  90.    winsock.GetData strData, vbString
  91.    RecieveData = strData
  92.    WriteData Now & " - Client Recieved: " & RecieveData
  93.    winsock.SendData "Test"  
  94.    WScript.Sleep 1000
  95.    WriteData Now & " - Client Sent Data"
  96.    MsgBox ("a xerrar")
  97.    ClientClose()
  98. End Sub
  99.  
  100. '// WINSOCK ERROR
  101. Sub winsock_Error(Number, Description, SCode, Source, HelpFile, HelpContext, CancelDisplay)
  102.    MsgBox "Cient Error: " & Number & vbCrLf & Description
  103.    WriteData Now & " - Cient Error: " & Number & ". " & Description
  104.    ClientClose()
  105. End Sub
  106.  
  107. '// EXIT SCRIPT
  108. Sub ClientClose()
  109.    If winsock.state <> skClosed Then winsock.Close
  110.    Set winsock = Nothing
  111.    WriteData Now & " - Client Closed."
  112.    Wscript.Quit
  113. End SUb
  114.  
  115. '// CREATE LOG ENTRY
  116. Function WriteData(Data)
  117.    Dim fso, file
  118.    Set fso = CreateObject("Scripting.FileSystemObject")
  119.    Set file = fso.OpenTextFile("C:\WSClient.log", 8, True)
  120.    file.write Data & vbCrLf
  121.    file.Close
  122.    Set file = Nothing
  123.    Set fso = Nothing
  124. End Function
43  Programación / Scripting / Re: script vbs y contrasña en: 4 Diciembre 2012, 09:33 am
Y alguien sab porque no funciona este code ¿?
Código:
MsgBox (Htttp.ResponseBody)
Es de un winhttp ,sle en pantalla [][][] ¿es normal?
44  Programación / Scripting / Re: script vbs y contrasña en: 4 Diciembre 2012, 00:45 am
xp sp3 xD y si está
45  Programación / Scripting / Re: pasar parametros a otra consola...no a un segundo bat en: 3 Diciembre 2012, 10:55 am
Ya hay una utilidad que hace bootçeable un pendrive echo en bat
usb_multiboot en bootland ,buen bat para aprender
46  Programación / Scripting / script vbs y contrasña en: 3 Diciembre 2012, 00:52 am
  Porque no va
Código:


Set objPassword = CreateObject("ScriptPW.Password")
WScript.StdOut.Write "Please enter your password:"

strPassword = objPassword.GetPassword()
Wscript.Echo
Wscript.Echo "Your password is: " & strPassword

pasa a null la pass , no pregunta
47  Programación / Java / Re: Java visual en: 2 Diciembre 2012, 03:35 am
que dices un cuadro para dibujar, y con el ratón dibujar las líneas¿?
48  Programación / Scripting / BATCH variables lentas y su solución en: 24 Noviembre 2012, 04:18 am
Buenas tuve unos problemas con VB /batch , desde VB con shell ejecutaba un nmap y
recibía dos vaiable el objetivo ahí era  nmap -sP variable aviable argumentofinal
PERO resulta qu me doy cuenta de algo importatne las variables %1 %2 por ejemplo son LENTAS para asignar o algo así , y el nmap va a ejecutar
nmap -sP argumentofinal %1%2    AAAARGH lo que lo solucionó fue poner a
argumentofinal en otra variable STFU Nmap -sP %1%2 %stfu% xD DE NADA
49  Programación / Scripting / Re: varias dudas con código batch y como hacer para saber la ip en: 24 Noviembre 2012, 01:06 am
 Gracias sirvió y falta
Y también saber como almacenar de un texto (ipconfig>>txt.txt)la ip local LAN
y almacenarla en una var o en texto para usarla respondan ,gracias
50  Programación / Scripting / varias dudas con código batch y como hacer para saber la ip en: 23 Noviembre 2012, 00:35 am
Código:
for /f "tokens=*" %%_ in ('findstr /r ^H.*$ temp.txt') do (
set query[!contador!]=%%_

echo No. de valores: !contador!

 
for /l %%_ in (0,1,!contador!) do (
ping -n 1 !query[%%_]! > nul 2>&1 && (
Alguien explica con detalle  ese bucle for¿? ¿que es ^H.* ?
¿que es esa asigancio tan rara query y por que va con [] y con exclamaciones y %%_
y como es que en el otro bucle for la variable es %%_ y en ping aparece entrE[]
y como es que la salida va a nul y luego pone 2>&1 y dos % QUE RARO respondan
Y también saber como almacenar de un texto (ipconfig>>txt.txt)la ip local LAN
y almacenarla en una var o en texto para usarla respondan ,gracias
Páginas: 1 2 3 4 [5] 6
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines