Codigo Crear Un Archivo Zip Usando VBScript

Hola amigos aquí les dejare el código que utilice en el vídeo para crear un archivo zip usando puro código vbscript.

otra como yo tengo windows 10 al parecer solo me funciona en el escritorio, ya lo intente dentro de carpetas y me marca error, desconozco que sera bueno si alguno tiene la solución que la comparta



.......:::::CODIGO:::::.......

dim fso,app,nombre,file,ruta,pross

set fso   = createobject("scripting.filesystemobject")
set app   = createobject("shell.application")
set shell = createobject("wscript.shell")

nombre = inputbox("Nombre del archivo ZIP","Nombrar") & ".zip"

set pross = shell.exec("mshta.exe ""about:<input type='file' id='file'><script language=""vbscript"">file.click():createobject(""scripting.filesystemobject"").getstandardstream(1).writeline(file.value):close()</script>""")

ruta = pross.stdout.readline

set file = fso.createtextfile(nombre)
file.write("PK" & chr(5) & chr(6) & string(18,chr(0)))
file.close

app.namespace(nombre).copyhere ruta

wscript.sleep 2000

msgbox "Archivo comprimido con Exito",0,"Terminamos"

creo que ya se saben el prosedimiento, solo lo copean lo pegan en el bloc de notas y lo aguardan con la extencion .vbs


bueno saludos Flamer

Codigos Enviar Mail Con Powershell y VBScript

Hola amigos soy flamer de nuevo aquí les dejare los códigos para enviar un mail por powershell y el código para adaptarlo a vbscript el cual es el único mio los demás los encontré navegando por Internet y los traigo para compartirlo con ustedes.


CODIGO 1

$From = "TU_CORREO@CORREO.com"

$To = "VICTIMA@CORREO.com"

$Subject = "Esto es una prueba fake mail"

$Body = "mensaje de prueba fake mail"

$SMTPServer = "smtp.live.com"

$SMTPClient = New-Object Net.Mail.SmtpClient($SMTPServer,587)

$SMTPClient.EnableSsl = $true

$SMTPClient.Credentials = New-Object System.Net.NetworkCredential("TU_CORREO@hotmail.com","TU_CONTRASEÑA")

$SMTPClient.Send($From,$To,$Subject,$Body)

CODIGO 2

$From = "TU_CORREO@CORREO.com"

$To = "VICTIMA@CORREO.com"

$Cc = "VICTIMA@CORREO.com"

$Attachment = "C:\archivo.txt"

$Subject = "pruebas mail"

$Body = "esto es una prueba mail fake"

$SMTPServer = "smtp.live.com"

$SMTPPort = "587"

Send-MailMessage -From $From -to $To -Cc $Cc -Subject $Subject -Body $Body -SmtpServer $SMTPServer -port $SMTPPort -UseSsl -Credential (Get-Credential) -Attachments $Attachment –DeliveryNotificationOption OnSuccess

CODIGO 3

$EmailTo = "VICTIMA@CORREO.com"

$EmailFrom = "TU_CORREO@CORREO.com"

$Subject = "Pruebas Mail" 

$Body = "Esto es una prueba send mail con powershell" 

$SMTPServer = "smtp.live.com" 

$filenameAndPath = "C:\archivo.txt"

$SMTPMessage = New-Object System.Net.Mail.MailMessage($EmailFrom,$EmailTo,$Subject,$Body)

$attachment = New-Object System.Net.Mail.Attachment($filenameAndPath)

$SMTPMessage.Attachments.Add($attachment)

$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587) 

$SMTPClient.EnableSsl = $true 

$SMTPClient.Credentials = New-Object System.Net.NetworkCredential("TU_CORREO@CORREO.com", "TU_CONTRASEÑA")

$SMTPClient.Send($SMTPMessage)

CODIGO MIO

option explicit
dim shell,cmd

set shell=createobject("wscript.shell")

cmd="C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -command "

shell.run cmd & "$EmailTo = 'VICTIMA@CORREO.com';$EmailFrom = 'TU_CORREO@CORREO.com';$Subject = 'Pruebas Mail';$Body = 'Esto es una prueba send mail con powershell';$SMTPServer = 'smtp.live.com';$filenameAndPath = 'C:\archivo.txt';$SMTPMessage = New-Object System.Net.Mail.MailMessage($EmailFrom,$EmailTo,$Subject,$Body);$attachment = New-Object System.Net.Mail.Attachment($filenameAndPath);$SMTPMessage.Attachments.Add($attachment);$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587);$SMTPClient.EnableSsl = $true;$SMTPClient.Credentials = New-Object System.Net.NetworkCredential('TU_CORREO@CORREO.com', 'TU_CONTRASEÑA');$SMTPClient.Send($SMTPMessage)",0

msgbox "terminamos"

Nota: recuerden poner su correo en donde dice TU_CORREO@CORREO.com y poner su contraseña donde seles pida o donde dise TU_CONTRASEÑA.

Otra cosa yo les puse como servidor smtp.live.com que es de hotmail si usan gmail tendrán que usar el servidor smtp.gmail.com y habilitar lo para aplicaciones desconocidas en https://myaccount.google.com/lesssecureapps


Aquí les dejo el vídeo donde se  muestra como usarse: https://www.youtube.com/watch?v=ZrJL0ZEq-Q8&t=17s

Bueno creo que eso es todo saludos Flamer y hasta la proxima

Codigo Para Copiar o Capturar Pantalla Con Vbscript

Ahora vengo con algo nuevo algo que creía que no se podía y que mucho creo que pensaban lo mismo, pero de tanto buscar y buscar por fin di con el clavo.

Se trata de copiar o capturar la pantalla de nuestro escritorio utilizando vbscript cosa que creía imposible, para después aguardarla en un archivo de word.

Sin mas que decir les dejare el código y al final el link de mi vídeo donde demuestro el uso de el.

option explicit
dim excel,word,doc   ''declaramos las variables

set excel=createobject("excel.application")  '' creamos el objecto excel
set word=createobject("word.application")    ''creamos el objecto word

excel.Application.SendKeys ("%{1068}") ''se pulsa la tecla para capturar pantalla y se copea al porta papeles
msgbox "pantalla capturada"  '' mensaje de pantalla capturada

Set doc = word.Documents.Add() '' se crea el documento de word
word.Selection.Paste  '' pega lo que se encuentra en el porta papeles
doc.saveas "C:\Users\Flamer\Desktop\img.doc" '' guarda el documento de word creado
word.quit '' cierra el objecto word

Link de mi vídeo: https://www.youtube.com/watch?v=Ho4lJgV6ugA

Saludos Flamer y creo que vbscript cada día me sorprende mas

Des-instalar Aplicaciones y No Dejar Archivos Basura En El Sistema

Esta ves vengo con un programa que me gusto hace ya mucho tiempo y ahora se los vengo a mostrar aquí es el "Revo Uninstaller" y se preguntaran que es y para que sirve.

Pues bueno este sirve para des-instalar aplicaciones y con la ventaja de que no deja archivos basura que comúnmente pasa al des-instalar aplicaciones donde llegan a quedar archivos regados por el sistema o en el registro donde quedan entradas que no sirven de nada.

Lo podrán descargar desde aquí http://www.revouninstaller.com/   la cual cuenta con una versión gratis y portable.

ya que la hallan descargado les aparecerá una ventana como esta

Yo des-instalare el el tercero en la lista para mostrarles como funciona, para eso daremos clic en Uninstall

después aparecerá una pantalla diciendo que esta creando un punto de restauración y luego empezara a ejecutarse el des-instalador del programa, ami me a pareció esto y le doy que si

y a empezado a des-instalarse el programa

y por ultimo me dice que a terminado, después de eso nos vamos al revo donde nos parecerá 3 opciones nosotros elegiremos la tercera esta

y daremos clic en Scan, donde empezara a buscar primero las entradas en el registro de windows que dejo el des-instalador del programa que quitamos

y como verán dejo varias entradas en el registro así que para seleccionarlas daremos clic en Select All
para seleccionarlas todas

ya que las tenemos seleccionadas daremos clic en Delete para borrarlas y daremos clic en si, si nos aparece un mensaje de confirmación

y por ultimo parece que solo dejo un archivo en el sistema este

así que aremos el mismo procedimiento daremos clic en Select All y después en Delete, bueno ami me apareció un mensaje que este archivo se borrara después de que reinicie la maquina pero eso no pasa con todos los programas que des-instalen es raro

bueno saludos Flamer y creo que eso es todo por hoy

Identificar Programas De 32 y 64 bits

Me encontrado por hay que muchos usuarios quieren saber si X programa es de 64 o de 32 bits, y eso es muy importante a la hora de reversear algún programa.

Primeramente identificaremos un ejecutable sin usar ninguna herramienta, para este ejemplo copie el archivo "wscript.exe" el de 32 y de 64 bits al escritorio.

Aclaro: yo estoy en windows 10 y me hice de las dos versiones por que windows 10 tiene soporte para las versiones de 32 bits y estos archivos son almacenados en el directorio:

c:\windows\syswow64\  

Así que copie el de la ruta

c:\windows\syswow64\wscript.exe     32 bits

y

c:\windows\system32\wscript.exe       64 bits

Al de 32 lo llame "viejo.exe" y al de 64 lo llame "nuevo.exe"

Ahora para identificarlos sin utilizar ningún programa lo are de la siguiente manera, solo ejecutare el de 32 bits ya que el de 64 bits no creo que tenga caso ya verán por que.

Y después abriremos el administrador de tareas presionando CTRL+ALT+SUPR o abrimos la ventanita de ejecutar y escribimos "taskmgr"

Y presionamos aceptar

Ahora nos iremos ala pestaña procesos y en aplicaciones nos fijamos en esto

El exe que llame viejo dirá 32 bits y a diferencia del nuevo que es el de 64 bits no dirá nada

Ahora bien otra forma de identificarlos sera usando el RDG Detector, si no lo tienen pueden descargarlo desde aquí: http://www.rdgsoft.net/


Para abrirlo con el solo daremos clic derecho sobre el y damos clic en

Y al escanearlo en la esquina superior derecha a parecerá la versión como en la imagen

Y en la captura de el viejo que es el de 32 bits dirá así

bueno saludos Flamer

Averiguar Datos De Una Pagina Web

Hoy les mostrare como obtener algunos datos de algunas paginas para eso usaremos una web llamada:
http://whois.domaintools.com/

Que hace pues bueno nos proporciona algunos datos del dueño de la pagina,servidor se aloja,país,correo entre otras cosas.

Lo malo de esta pagina es que aveces no proporciona todos los datos, ya que ciertas personas esconden sus datos ya sea para permanecer en el anonimato,permanecer seguros de ataques o en ciertos caso hay personas que lo hacen para hacer sus fechorías.

Bueno primeramente escojamos una pagina común para un ejemplo, en este ejemplo ya no elegiremos al hacker.net ya que sabemos que pertenece a alex o el brujo como se apoda, eligiéremos a esta:
http://www.radiologyinfo.org/

Nota: No les estoy haciendo publicidad solo las elegí para el ejemplo

Bueno así que ingresaremos la url en el siguiente cuadro de texto de la pagina y pulsamos el botón Search

nos apare sera lo siguiente

hay pueden ver el numero 1 pertenece a sus correos, el 2 a la organización registrada, el 3 fecha de creación que fue en 1999 y espira el contrato en 2021, el 4 a su ip, el 5 a la localización del servidor no de la persona y por ultimo el 6 que es el estatus del dominio si esta activo o inactivo.


Pero mas abajo nos encontramos con otras mas

Registrant ID: 23237610-NSI
Registrant Name: American College of Radiology
Registrant Organization: American College of Radiology
Registrant Street: 1891 PRESTON WHITE DR
Registrant City: Reston
Registrant State/Province: VA
Registrant Postal Code: 20191-4326
Registrant Country: US
Registrant Phone: +1.7037154393
Registrant Phone Ext:
Registrant Fax:
Registrant Fax Ext:
Registrant Email: 
Admin ID: 42105327-NSI
Admin Name: American College of Radiology
Admin Organization: American College of Radiology
Admin Street: 1891 Preston White Drive
Admin City: Reston
Admin State/Province: VA
Admin Postal Code: 20191
Admin Country: US
Admin Phone: +1.703648890
Admin Phone Ext:
Admin Fax:
Admin Fax Ext:
Admin Email: 

Aquí en estos datos pueden ver el código postal, ciudad, teléfono entre otras cosas.

Pero en este ejemplo no dice el nombre del administrador ni de quien lo registro así que buscaremos en otra pagina por si les interesa el campo nombre y buscaremos en la pagina de:

http://www.cinepolis.com/

Y nos muestra lo siguiente

Registrant Name: Servicios de Personal Cinemas SA de CV
Registrant Organization: Servicios de Personal Cinemas SA de CV
Registrant Street: Av. Camelinas No. 3527 Int. 902
Registrant City: Morelia
Registrant State/Province: Michoacan
Registrant Postal Code: 58270
Registrant Country: MX
Registrant Phone: +52.4433226237
Registrant Phone Ext: 
Registrant Fax: +52.4433226238
Registrant Fax Ext: 
Registrant Email: .mx
Registry Admin ID: 
Admin Name: Lozano Mtz, Juan Carlos
Admin Organization: Servicios de Personal Cinemas S.A. de C.V.
Admin Street: Av. Camelinas No. 3527 Int 902
Admin City: Morelia
Admin State/Province: Michoacan
Admin Postal Code: 58270
Admin Country: MX
Admin Phone: +52.4433220526
Admin Phone Ext: 
Admin Fax: +52.4433226238
Admin Fax Ext: 
Admin Email: 

Como pueden ver esta registrado a nombre de la compañía cinemas, también nos dice la ciudad que es morelia, código postal 58270 y entre otras cosas, pero pasemos a los datos del administrador que revela su nombre ya que como dije al principio hay algunas personas que lo ocultan pero lo veremos mas adelante.

El nombre del administrador es Lozano Mtz, Juan Carlos y párese que todo lo demás es igual a diferencia de que su teléfono que es +52 4433220526  que sea de la compañía o de el quien sabe.


Ahora pondremos otro ejemplo es de esta web:

http://hackearface.net/

Y nos muestra lo siguiente

Nombre: Whois Agent
Organización Whois Privacy Protection Service, Inc.
Dirección postal: PO Box 639, Kirkland WA 98083 US
Teléfono: +1 4252740657
Interno:
Fax: +1 4259744730
Interno:
Correo electrónico:hackearface.net@protecteddomainservices.com

Aquí como pueden ver oculta el nombre ya que Whois Agent quiere decir que esta privado o protegido, como también su correo que dice "protecteddomainservices" y la organización.

Aclaro puse como ejemplo esta web ya que fue la primera que encontré pero párese que no es segura así que no naveguen en ella si no saben lo que hacen y mucho menos introduzcan datos verdaderos

Otra cosa muy importante esta pagina tiene un limite diario creo, ya que si tiene un rato usándola les apare sera el siguiente mensaje.

Bueno saludos Flamer

Usar El ClipBoard Desde Vbscript

En esta ocasión vengo a mostrarles como usar el clipboard en vbscript, pero para los que no saben que es clipboard se los digo es el porta papeles y para los que no entiendan a un que es, es la acción de copiar y pegar que usamos comúnmente en la computadora.

Pero se preguntaran que aremos pues les enseñare a como leer el contenido de este usando el vbscript

Primeramente declaramos variables

option explicit
dim objclip,CopyText

Después de esto crearemos el objecto "objclip" que es un objecto htmlfile

Set objclip  = CreateObject("htmlfile")

Ahora pasaremos a leer el contenido que se encuentra en el porta papeles

CopyText = objclip.ParentWindow.ClipboardData.GetData("text")

y por ultimo lo imprimimos con el comando msgbox así

MsgBox CopyText

El codigo completo seria este

option explicit

dim objclip,CopyText
Set objclip  = CreateObject("htmlfile")
CopyText = objclip.ParentWindow.ClipboardData.GetData("text")
MsgBox CopyText

Ahora para borrar el contenido del porta papeles aremos otro programa, empezaremos declarando las variables

option explicit
dim objshell

Después creamos un objecto shell

set objshell = CreateObject("wscript.shell")

y por ultimo ejecutamos el símbolo del sistema con las siguientes lineas

objshell.run "cmd /c echo off | clip"

El código completo seria así

option explicit
dim objshell

set objshell = CreateObject("wscript.shell")
objshell.run "cmd /c echo off | clip"

y al ejecutarlo eliminara todo lo que se encuentra en el porta papeles

Pero se preguntaran para agregar algo en el porta papeles desde el programa o sea que sea programado en ves que lo halla hecho el usuario.

Pues seria casi lo mismo que el anterior con la diferencia de que el "echo off" seria "echo loquesea"
quedaría el código así.

option explicit
dim objshell
set objshell = CreateObject("wscript.shell")
objshell.run "cmd /c echo loquesea | clip"

Este código copiaría la palabra "loquesea" al porta papeles y estaría listo para usarse


Bueno amigos eso es todo saludos Flamer y lo expuesto aquí esta intentado en windows 10 y hice uso del cmd por que el método  "ClipboardData.ClearData" y "ClipboardData.SetData" no me funcionaron