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

Codificar Archivos Vbs a Vbe con La Herramienta Screnc.exe

Hoy les traigo una herramienta llamada "screnc.exe" esta herramienta nos servirá para codificar nuestros archivos ".vbs" y serán convertidos en archivos ".vbe".

Este programa anteriormente se encontraba en la pagina de microsoft pero acabo de darle una búsqueda y no logre encontrar nada, yo sinceramente no me acuerdo de donde lo conseguí ya que tengo tiempo con el así que lo subí a mediafire para compartirlo con ustedes.

Aqui la descarga: http://www.mediafire.com/file/ddhnjzkr48j641b/screnc.exe

Ahora les enseñare como usarla, pero primeramente crearemos un archivo ".vbs" al cual llamaremos "Ejemplo.vbs" y el código que contendrá este archivo sera el siguiente.

msgbox "hola mundo soy toto",,"aviso de bienvenida"

Ya que tenemos escrito lo anterior aguardamos los cambios y al ejecutarlo nos muestra el mensaje siguiente.

Después de esto nos iremos al símbolo del sistema o cmd como le quieran llamar.

Para eso abrimos la ventana ejecutar, escribimos cmd y presionamos aceptar

En esta ventana nos moveremos hasta la carpeta donde se encuentre el archivo "screnc.exe" y el archivo "Ejemplo.vbs"con el comando "cd".

Ya que se encuentren en dicha carpeta escribiremos lo siguiente.


Screnc Ejemplo.vbs  Salida.vbe



Y verán que se crea el archivo "Salida.vbe" y al ejecutarlo no muestra el mismo mensaje y si lo abrimos con el notepad++ nos muestra lo siguiente.

Ahora si quieren desencriptar el archivo "salida.vbe" pueden mirar un tema anterior que hice donde desencripto un archivo ".vbe" de un virus de macro:

http://elblogdeflamer.blogspot.mx/2016/04/analizando-una-muestra-de-un-virus-de.html


bueno saludos Flamer y creo que eso es todo por hoy

Leer Binario En VBScript

Hoy vamos a ver como leer los archivos binarios en vbscript, yo al principio creía que no se podía leer binario en este lenguaje y ase poco creando el ransomware(el cual no es la gran cosa pero aveces me gusta matar el tiempo programando cualquier cosa) tuve la necesidad de leer binario, así que en una búsqueda de 5 minutos encontré esta web:

http://www.gatodev.com/index.php?qa=225695&qa_1=leer-y-escribir-archivos-binarios-en-vbscript

El cual contenía este código:

NOTA: lo pondré por si algún día la pagina borra el tema, se cae o algo por el estilo solo para tener un respaldo.

Function readBinary(path)
Dim a
Dim fso
Dim file
Dim i
Dim ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.getFile(path)
If isNull(file) Then
    MsgBox("File not found: " & path)
    Exit Function
End If
Set ts = file.OpenAsTextStream()
a = makeArray(file.size)
i = 0
' Do not replace the following block by readBinary = by ts.readAll(), it would result in broken output, because that method is not intended for binary data' 
While Not ts.atEndOfStream
    a(i) = ts.read(1)
i = i + 1
Wend
ts.close
readBinary = Join(a,"")
End Function

Sub writeBinary(bstr, path) Dim fso Dim ts Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set ts = fso.createTextFile(path) If Err.number <> 0 Then MsgBox(Err.message) Exit Sub End If On Error GoTo 0 ts.Write(bstr) ts.Close End Sub

Function makeArray(n) ' Small utility function Dim s s = Space(n) makeArray = Split(s," ") End Function 

Viendo el código de esa web me base para crear el mio, que es casi igual pero con unas modificaciones.
Así que para practicar tomaremos mi crackme, el numero 7 que lo encontraran aquí:

http://elblogdeflamer.blogspot.mx/p/mis-cackmes.html


Tratare de explicar todo el código con clama.
Así que primeramente empecemos declarando todas las variables que usaremos

option explicit
Dim x,objsystem,file,i,f,largo

Ahora creamos un objecto FileSystemObject y lo representaremos con la variable objsystem

Set objsystem = CreateObject("Scripting.FileSystemObject")

Luego creamos una referencia al archivo que vamos a leer, que en este caso es el "crackme7.exe" y lo representaremos con la variable file.
OJO donde dice "crackme7.exe" es la ruta del archivo yo lo pongo así por que estoy trabajando en la misma carpeta.

Set file = objsystem.getFile("Crackme7.exe") 

Después de esto inicializamos la variable largo, con el valor del tamaño del archivo en bytes

largo=file.size 

Ya que tenemos enlazado al archivo que esta representado con la variable file, trataremos de abrirlo con el comando OpenAsTextStream así.

Set f = file.OpenAsTextStream()  

Después usaremos el comando Redim para crear un array el cual llamaremos bytes con el tamaño de el archivo, el cual esta representado con la variable largo

redim bytes(largo)  

Ahora para leer los bytes del archivo crearemos un ciclo for, el cual leerá byte por byte del archivo y los almacenara en el array llamado bytes

for i=0 to largo - 1
   bytes(i)=f.read(1)
next  

y para cerrar el archivo usamos el comando close

f.close   

Ya que leímos todos los bytes del archivo crearemos un archivo llamado "dump.txt" con el comando CreateTextFile, para almacenar los datos que leímos y el archivo creado lo representaremos con la variable file.

set file = objsystem.createtextfile("dump.txt")    

Ya que no podemos almacenar los datos de forma binaria, los convertiremos a su valor ascii y los separaremos con 2 guiones

Para eso crearemos un ciclo for para recorrer el array donde se encuentran los datos y de paso escribiremos los nuevos datos con el comando Write

for x = 0 to i - 1
   file.write(asc(bytes(x)) & "--")
next   

Y por ultimo cerramos el archivo con el comando close

file.close    

Aquí el código completo

option explicit
Dim x,objsystem,file,i,f,largo  

Set objsystem = CreateObject("Scripting.FileSystemObject") 

Set file = objsystem.getFile("Crackme7.exe")  

largo=file.size 

Set f = file.OpenAsTextStream()  

redim bytes(largo)

for i=0 to largo - 1
   bytes(i)=f.read(1)
next 

f.close 

set file = objsystem.createtextfile("dump.txt") 

for x = 0 to i - 1
   file.write(asc(bytes(x)) & "--")
next

file.close    

Bueno creo que eso es todo por hoy saludos flamer

Trabajar Con Archivos Binarios en Python 3

En este tutorial explicare como manejar archivos binarios en python 3, aclaro soy nuevo en python así que les enseñare un poco de lo que se.

Primera mente si no lo tienen instalado python pueden ver mi publicación anterior donde enseño no solo a descargarlo sino a configurarlo con el notepad++:

http://elblogdeflamer.blogspot.mx/2016/11/instalando-python-3-y-configurarlo-con.html

Primero daré una explicación breve de algunos comando que usare para manejar archivos.

Open este comando se utiliza para abrir un archivo, ya sea para escribir en el o para leer el contenido de este.
El camando open lleva 2 parámetros, la ruta del archivo a abrir(no creo que tenga que explicar mucho en este) y el modo de apertura ejemplo:

file = open("ruta","modo_de_apertura")

Los diferentes modos de apertura son estos:

Modos	Descripción
r	Abre un archivo de sólo lectura. El puntero del archivo se coloca en el principio  del archivo. Este es el modo predeterminado.
rb	Abre un archivo de sólo lectura en formato binario.
r+	Abre un archivo para lectura y escritura. El puntero del archivo estará en el principio del archivo.
rb+	Abre un archivo para la lectura y la escritura en formato binario.  El puntero del archivo estará en el principio del archivo.
w	Abre un archivo para escribir solamente. Sobrescribe el archivo si el archivo existe. Si el archivo no existe, se crea un nuevo archivo para escritura.
wb	Abre un archivo para escribir sólo en formato binario. Sobrescribe el archivo si el archivo existe. Si el archivo no existe, se crea un nuevo archivo para escritura.
w+	Abre un fichero para escritura y lectura. Sobrescribe el archivo existente si existe el archivo. Si el archivo no existe, se crea un nuevo archivo para la lectura y la escritura.
wb+	Abre un archivo, tanto para la escritura y la lectura en formato binario. Sobrescribe el archivo existente si existe el archivo. Si el archivo no existe, se crea un nuevo archivo para la lectura y la escritura.

Read este comando se utiliza para leer el contenido del archivo abierto en modo lectura

Write se utiliza para escribir dentro del archivo abierto en modo escritura


Para este tutorial usare mi crackme 7 que lo pueden descargar de mi lista de crackmes aquí:
http://elblogdeflamer.blogspot.mx/p/mis-cackmes.html


como verán en la siguiente imagen, en mi crackme7 se necesita parchar el botón

Así que crearemos un programa en python que active el botón.

Nota: No mostrare el proceso en el ollydbg para activar el botón para no hacer el tema mas largo, solo les mostrare las posiciones de memoria que hay que modificar con el programa

Para obtener la posición de memoria compare el archivo original con el archivo crackeado con un editor hexadecimal como se muestra en la imagen

Nota: el editor que use lo pueden descargar desde aquí:
https://mh-nexus.de/en/hxd/


Y como ven en la imagen solo tenemos que cambiar el "53" por el "56", así que abriremos el notepad++ y tecleamos el siguiente código

import binascii   # importamos el modulo binascii

archivo = open('C:/Users/Flamer/Desktop/crackme7.exe','rb') # abrimos el archivo crackme7.exe
byte = archivo.read()  # Leemos todos los bytes del archivo
archivo.close  # Cerramos el archivo

w = binascii.unhexlify('56') # Convertimos el valor 56 que es string a binario con el comando unhexlify

code = byte[0:9142] + w + byte[9143:len(byte)]  # insetartamos el byte anterior(el 56 convertido a byte) en la variable code

file = open('C:/Users/Flamer/Desktop/crackme7.exe','wb')  # abrimos el archivo crackme7.exe
file.write(code) # Escribimos los bytes anteriores
file.close  # Cerramos el archivo

print ("terminamos")  # Mensaje de terminamos

OJO: Ustedes cambian la ruta del archivo

Ya que tenemos el código lo aguardan con el formato ".py", yo lo nombre "activa_boton.py" y al ejecutarlo les parchara el archivo crackme7.exe activando el boton.


Ahora les mostrare otro código donde leeremos todos los bytes del archivo crackme7.exe y obtendremos su valor ascii para después separarlos con dos guiones.

import binascii # importamos el modulo binascii

archivo = open('C:/Users/Flamer/Desktop/crackme7.exe','rb') #abrimos el archivo crackme7

byte = archivo.read() #leemos todos los bytes
code = binascii.hexlify(byte) # transformamos los bytes a valores hexadecimal en formato string

c = "" # inicializamos la variable c
largo = len(code) # obtenemos la longitud de la varible code

for x in range(0,largo,2): # ciclo for donde la variable x inicia en 0 e incrementara de 2 en 2 y termina en el valor que contenga la variable largo
    c = c + (str(int(code[x:x+2],16))) + "--" # obtiene el valor ascii de cada bit y lo concatena en la variable c, junto con los guiones
archivo = open('C:/Users/Flamer/Desktop/coder.txt','w') # crea el archivo coder.txt
archivo.write(c) # escribe el contenido de la variable c en el archivo coder.txt
archivo.close # cierra el archivo 
print ("terminamos") # mensaje de fin

Ahora después pasamos a aguardar el código, yo lo aguarde con el nombre de "Leer_code.py" y al ejecutarlo me crea el archivo "coder.txt" con el siguiente contenido

bueno saludos Flamer y eso es todo

Instalando Python 3 y Configurarlo con Notepad++

Hoy les enseñare como descargar python 3 para windows e instalarlo manualmente en nuestro sistema.

bueno para empezar primero lo descargaremos desde su pagina oficial desde aquí.

https://www.python.org/downloads/windows/

como verán hay dos versiones de python la 2 y 3, nosotros elegiremos la 3

y descargamos la ultima versión de python 3, pero sera la versión zip por comodidad la cual es esta

ya que hemos descargado el archivo zip, lo descomprimimos y pegamos el contenido en la unidad c:\
así como en la imagen

ahora debemos tener el notepad++ si no lo tienen pueden bajarlo desde aquí:

https://notepad-plus-plus.org/

NOTA: No voy a explicar como instalarlo.


después de esto abriremos el notepad++ y teclearemos el siguiente código:

print ("Hola mundo")

después lo aguardamos con el formato .py así:

para ejecutarlo daremos clic en la pestaña ejecutar y luego en iniciar:

y nos aparecerá el siguiente cuadro

aquí daremos clic al botón señalado en la imagen y buscaremos la ruta de la carpeta de python y elegiremos el archivo python.exe así:

damos clic en abrir y a la ruta del archivo le agregaremos la siguiente linea


-i "$(FULL_CURRENT_PATH)"


quedando así


C:\python-3.6.0\python.exe -i "$(FULL_CURRENT_PATH)"


después daremos clic en guardar así

 aquí ustedes configuran las teclas según su gusto y por ultimo dan clic en OK

y se mostrara así

y si ejecutamos el programa nos muestra el "Hola mundo"

bueno creo que eso es todo espero que a alguien le sirva saludos Flamer

Proteger Mi USB Contra Escritura No Es Seguro

En varios sitios de Internet y vídeos e visto como proteger nuestra USB contra escritura, con un método muy simple y fácil de burlar por un malware.

ese método solo serviría para un virus que solo intente copiarse a la raíz de la USB, pero si los creadores de estos modifican un poco el código y buscan la carpeta de la USB que tiene la opción de escritura pues este se copiaría en esa carpeta.

bueno les explico el método que usan, primera mente formateamos nuestra USB en modo NTFS

y despues de esto damos clic en iniciar, nos mostrara el siguiente mensaje y daremos aceptar

acto seguido nos mandara el mensaje de formato completo, después de esto crearemos una carpeta dentro de nuestra USB llamada "Documentos"

bueno pero yo en este tutorial creare varias carpetas y nos quedara así

perdonen los nombres pero no sabia que poner jajajaj

y se preguntaran por que tantas carpetas si en los tutoriales de Internet no dice eso, pues no se desesperen mas adelante entenderán el por que.

ahora protegeremos nuestra USB contra escritura, dando clic derecho en ella y elegimos la ultima opción que es la de propiedades

después nos parecerá la siguiente ventana y daremos clic en seguridad

ahora daremos clic en editar y destildamos todas las opciones menos la de lectura y tildamos la opción de denegar escritura, así como se muestra en la imagen siguiente

después de esto daremos clic en aplicar y después aceptar  y como verán si intentan crear un archivo dentro de ella  esta no los dejara,

ahora estos tutoriales dicen que tenemos que elegir la carpeta documentos darle clic derecho y después en propiedades así

en la siguiente ventana elegiremos la ficha seguridad

después de esto en editar y le otorgaremos todos los permisos así

después damos clic en aplicar y luego en aceptar, bueno en estos tutoriales dice que aguardemos todo en esta carpeta y que la USB según que daría segura a salvo de los virus.

ahora si los creadores de virus implementan un sencillo código que buscara la carpeta vulnerable de nuestra USB y acto seguido copiarse en ella, así como lo muestra este sencillo código en VBScript

Set objfso = createobject("scripting.filesystemobject")
Set Dir = objfso.getfolder("f:\") '"
Carpetas(Dir)
 
Function Carpetas(Folder)
On error resume next
err.clear
objfso.copyfile wscript.scriptfullname,Folder & "\el virus.vbs"
if err.number=0 then
   msgbox "Carpeta Vulnerable Encontrada Ubicacion: " & Folder
   msgbox "Virus Copiado Con Exito"
end if
Set SubsIFol = Folder.subfolders
For each SF in SubsIFol
   Carpetas(SF)
Next
End Function

ahora si ejecutan este sencillo script verán que se auto copea a dicha carpeta

bueno amigos eso es todo y ese método que anda en Internet de dejar una sola carpeta con todos los privilegios en nuestra USB no es seguro

saludos flamer y espero le halla gustado

Crear Ejecutable En VB.Net Que Pida Permisos De Administrador

En este nuevo tema les enseñare como crear un ejecutable que pida permisos de administrador, esto lo haremos en vb.net 2010.

bueno primeramente abriremos el vb.net y elegimos la opción de crear un nuevo proyecto y elegimos una aplicación de windows así

damos clic en aceptar, después de esto crearemos un formulario así como en la siguiente imagen

sin cambiarle de nombre a los elementos del formulario, el botón se llamara "Button1" y el cuadro de texto "TextBox1".

y como código pondremos esto

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FileCopy(Application.ExecutablePath, "C:\" & TextBox1.Text & ".exe")
        MsgBox("Copiado Exitoso...", vbExclamation, "Finalizado")
    End Sub
End Class

ahora lo ejecutamos y pondremos en el cuadro de texto "El Clon" y daremos clic en el botón copiar

y como ven nos manda un error que dice "Acceso Denegado" o sea que no tenemos permiso

así que para eso haremos lo siguiente, daremos clic en proyecto y después en propiedades

ahora daremos clic en aplicación y luego en ver configuración de windows

y nos aparecerá una ventana llamada app.manifest, donde modificaremos la linea:

<requestedExecutionLevel level="asInvoker" uiAccess="false" />

donde solo cambiaremos la palabra "asInvoker" por esta otra  "requireAdministrator"  y nos quedara así:

<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />

después de esto aguardamos los cambios y ejecutamos el programa, donde nos aparecerá la siguiente ventana

y le daremos clic en reiniciar con otras credenciales, acto seguido se reiniciara el vb.net y nos pedirá permiso de administrador.

ya que se reinicio ejecutamos nuestro programa y en el cuadro de texto pondremos como nombre

"El Clon" y daremos clic en el botón copiar

como ven nos manda el cartelito de copiado con éxito, así que visitaremos la unidad C:\ para ver si se creo la copia llamada "El Clon"

como ven si se creo la copia llamada "El clon" y si observan el icono del programa tiene un escudo, el cual quiere decir que cada vez que se ejecute pedirá permiso de administrador

bueno amigos creo que eso es todo y espero les halla gustado

saludos Flamer