El blog de h3r0n

Patron de una cadena

2009-12-24T02:00:00.006+01:00

Funcion para encontrar un patron en una cadena:



Program patroncadena (input,output);

VAR
cadena,patron,primer:string(60);
i,c,p,largoc,largop,posPatron,posiblePosicion,verdad:integer;

BEGIN
i:=1;
verdad:=0;
writeln ('Escribe la cadena: ');
readln (cadena);
writeln ('Escribe el patron: ');
readln (patron);
largoc:=length(cadena);
largop:=length(patron);
primer:=patron[1];

repeat {---}
while (i <= largoc) and_then
 ((cadena[i]) <> primer) do
           begin
                i:=i+1;
           end;
if (i > largoc) then
 begin
      posPatron:=0; {NO EXISTE EL PATRON}
      writeln ('Lo siento, no existe el patron');
      readln;
         halt;
 end
 
else

    begin
    posiblePosicion :=i;
 c:= (posiblePosicion + 1);
 p:=2;
 while  ((c<=largoc) and
   (p<=largop)) and_then
   (cadena[c] = patron[p]) do 
   begin
    c:=c+1;
    p:=p+1;
   end;
 if (p > largop) then  {PATRON ENCONTRADO}
  begin
   posPatron:=posiblePosicion; 
   writeln ('La posicion del patron encontrado es: ',posPatron);
   verdad:=1;  
  end
    else  {POSIBLES SIGUIENTES POSICIONES}
        begin
             i:=i+1;
             verdad:=0;              
        end 
 
    end;
until (verdad = 1);
{writeln ('La posicion de la cadena es: ', posiblePosicion);}
readln;
END.

Modulo con funciones varias...

2009-12-24T01:43:00.007+01:00

Un modulo que programé, con diversas funciones...


module mcharcad;  {archivo: mcharcad.pas}

export charcad = (CAMin,SAMin,CAMay,SAMay,Espacios,LTrim,LRTrim,ATrim,tLinea,tC255,
EsMin,EsMay,EsDig,EsSigno,EsLetra,EsPunt,EsRel,EsOper,EsParen,EsCtrl); 

type 
   tLinea = string(80);
   tC255  = string(255);

{---------------------------------------------------------------------- }


{Devuelve el argumento en minuscula} 
function CAMin (c: char): char;  
{devuelve la cadena s con sus mayusculas convertidas en minusculas}  
function SAMin(s: string): tC255;   
{Devuelve el argumento en mayuscula}
function CAMay(c: char): char;      
{devuelve la cadena s con sus minusculas convertidas en mayusculas}  
function SAMay(s: string): tC255;            
{Devuelve una cadena formada por n espacios} 
function  Espacios (n: integer): tC255;    
{Elimina de una cadena los espacios de cabecera} 
function LTrim  (s: string): tC255;             
{Elimina de una cadena los espacios de cabecera y cola} 
function LRTrim  (s: string): tC255;         
{Elimina de una cadena TODOS los espacios} 
function ATrim (s: string): tC255;      
{Es minúscula}
function EsMin   (c: char): boolean;    
{Es mayúscula}
function EsMay   (c: char): boolean; 
{Es dígito '0' ..'9'}
function EsDig   (c: char): boolean; 
{Es letra}
function EsLetra (c: char): boolean;   
{Es signo ['+', '-']}
function EsSigno (c: char): boolean;    
{Es signo de puntuacion ['.',,',', ':', ';']}
function EsPunt  (c: char): boolean;         
{Es operador relacional ['<','>','=']}
function EsRel   (c: char): boolean;          
{Es operador aritmético  ['+', '-', '*', '/', '%']} 
function EsOper  (c: char): boolean;                  
{Es paréntesis ['(', ')', '[', ']']}                   
function EsParen (c: char): boolean; 
{Es carácter de control (ordinal(c) < 32)}
function EsCtrl  (c: char): boolean; 


end;                                                  
 
function  CAMin {(c: char): char};  
begin
    case c of
    'A'..'Z'        : CAMin := chr(ord(c) - ord('A') + ord('a'));
    chr(193)   : CAMin := chr(225);
    chr(201)   : CAMin := chr(233);
    chr(205)   : CAMin := chr(237);
    chr(211)   : CAMin := chr(243);
    chr(218)   : CAMin := chr(250);
    chr(209)   : CAMin := chr(241);  
    otherwise
        CAMin := c;    
    end;
end;

function SAMin {(s: string):tC255};  
var i:integer;largo:integer value length(s);
    c:tC255 value '';
    
begin        
    for i := 1 to largo do
    c := c + CAMin(s[i]);
    SAMin:=c;
end;

function CAMay {(c: char): char}; 
begin
    case c of
    'a'..'z'        : CAMay := chr(ord(c) + ord('A') - ord('a'));  
    chr(225)   : CAMay := chr(193);
    chr(233)   : CAMay := chr(201);
    chr(237)   : CAMay := chr(205);
    chr(243)   : CAMay := chr(211);
    chr(250)   : CAMay := chr(218);
    chr(241)   : CAMay := chr(209);  
    otherwise
        CAMay := c;
    end;
end;


function SAMay {(s: string): tC255}; 
var i:integer;largo:integer value length(s);
    c:tC255 value '';
    
begin
    
    for i := 1 to largo do
    c := c + CAMay (s[i]);
    SAMay := c;

end;


function  Espacios {(n: integer): tC255};
var i:integer;ESPACIO:char;CadEsp:string(255);

begin
    
    i:=0;
    ESPACIO:= 'a';
    repeat
        CadEsp:= ESPACIO + CadEsp;
        i:= (i + 1);
    until (i = n);
    Espacios:=CadEsp;
    
end;


function LTrim {(s: string): tC255}; 

var
ESPACIO,cad2:string(255);
i:integer;
CIERTO:boolean;

begin
i:=1;
ESPACIO:=' ';
repeat
 CIERTO:= False;
 if (s[i] = ESPACIO) then 
  begin
   cad2:= (SubStr (s, i+1));
   i:=i+1;
  end
 else 
  begin
   CIERTO:= True;
  end
until (CIERTO = True);
LTrim:=(cad2);

end;


function LRTrim {(s: string): tC255}; 
var
ESPACIO,s2,s3:string(255);
i:integer value 1;
CIERTO:boolean;

begin
ESPACIO:=' ';
repeat
 CIERTO:= False;
 if (s[i] = ESPACIO) then 
  begin
   s2:= (SubStr (s, i+1));
   i:=i+1;
  end
 else 
  begin
   CIERTO:= True;
  end
until (CIERTO = True);
i:=1;
repeat
 CIERTO:= False;
 if (s2[i] = ESPACIO) then 
  begin
   s3:= (SubStr (s2,1,i-1));
   CIERTO:= True;               
  end
 else 
  begin   
   CIERTO:= False;
            i:=i+1;
  end
until (CIERTO = True);
LRTrim:=(s3);
end;


function ATrim {(s: string): tC255}; 
var
sR,ESPACIO:string(255);
i:integer;

begin
ESPACIO:=' ';
sR:='';
for i:= 1 to (length(s)) do
    if s[i] <> ESPACIO then
  sR:=sR + s[i]; 
ATrim:=(sR);
end;


function EsMin {(c: char): boolean}; 
begin
    case c of
    'a'..'z'   : EsMin := True;

    otherwise
        EsMin := False;    
    end;
end;

function EsMay {(c: char): boolean}; 
begin
    case c of
    'A'..'Z'   : EsMay := True;

    otherwise
        EsMay := False;    
    end;
end;

function EsDig {(c: char): boolean}; 
begin
    case c of
    '0'..'9'   : EsDig := True;

    otherwise
        EsDig := False;    
    end;
end;

function EsLetra {(c: char): boolean}; 
begin
    case c of
    'a'..'z'   : EsLetra := True;
    'A'..'Z'   : EsLetra := True;
    
    otherwise
        EsLetra := False;    
    end;
end;

function EsSigno {(c: char): boolean}; 
begin
    case c of
    '+','-'   : EsSigno := True;

    otherwise
        EsSigno := False;    
    end;
end;

function EsPunt {(c: char): boolean}; 
begin
    case c of
    '.',',',':',';'   : EsPunt := True;

    otherwise
        EsPunt := False;    
    end;
end;

function EsRel {(c: char): boolean}; 
begin
    case c of
    '<','>','='   : EsRel := True;

    otherwise
        EsRel := False;    
    end;
end;

function EsOper {(c: char): boolean}; 
begin
    case c of
    '+', '-', '*', '/', '%'   : EsOper := True;

    otherwise
        EsOper := False;    
    end;
end;

function EsParen {(c: char): boolean}; 
begin
    case c of
    '(', ')', '[', ']'   : EsParen := True;

    otherwise
        EsParen := False;    
    end;
end;


function EsCtrl {(c: char): boolean}; 
begin
    if (ord(c) < 32) then 
  begin
  EsCtrl:= True;
  end
    else
  EsCtrl:= False;
    end;
end.

Primeros pasos en pascal...

2009-12-24T01:14:00.009+01:00

Bueno, tengo un monton de codigos escritos que ire subiendo. Realmente no tienen ninguna función que resalte, pero es interesante aprender la estructuración y el lenguaje.

Esta es una criba de numeros en Pascal ISO-10206, que será el estandar de pascal que usaré hasta que diga lo contrario:

Program criba (input,output);

var 
i,j,a:integer;
cadena,salvar:string(255);

begin
writeln('Bienvenido a la criba de numeros');
writeln('Introduce la cadena de numeros a ordenar: ');
readln(cadena);
j:=length(cadena);
a:=1;
repeat
     for i:=1 to (j - 1) do begin
          if cadena[i] > cadena[i+1] then
          begin
               salvar := cadena[i+1];
               cadena[i+1]:= cadena[i];
               cadena[i]:= salvar;
          end;
     end;

     for i:=j downto 1 do begin
          if cadena[i] < cadena[i-1] then
begin
               salvar := cadena[i-1];
               cadena[i-1]:= cadena[i];
               cadena[i]:= salvar;
          end;
     end;
a:= a + 1;
until (a = j);
writeln(cadena);
readln;
end.

Causas de mi desaparicion jeje

2009-10-27T13:12:00.002+01:00

Pues nada, siento haber estado offline todo este tiempo pero esque ahora estoy en la universidad, y con la cantidad de cosas que tengo que estudiar y de trabajos pues lo cierto esque tengo olvidado mi blog.

Intentaré subir articulos sobre pascal, electronica, computadores, logica.... ya que es lo que estoy estudiando y me parece un buen comienzo para cualquier informatico =)

Un saludo a todos

Renuevo escritorio

2009-08-18T13:32:00.001+02:00

Otra vez renuevo el aspecto de mi querido ubuntu ;) si a alguien le gusta pues le digo que theme y demás cosas son.

Nueva firma

2009-08-14T02:10:00.004+02:00

Mi última creación con el photoshop, no es la gran cosa pero estoy orgulloso.

Greets to xstonex :D

CrackMePlease [vb6]

2009-08-04T00:16:00.001+02:00

Pues es el primer CrackMe que hago, espero que os guste.

http://rapidshare.com/files/263396888/CrackMePlease.exe.html

Postead la respuesta en http://www.get-r00t.totalh.com en el Subforo de Wargames.

Linux Mint 7

2009-08-03T21:41:00.003+02:00

Nuestro último lanzamiento es Linux Mint 7, llamado "Gloria". Por favor escoge la edición que desees descargar. Si eres nuevo en Linux Mint y no sabes que versión escoger, seleciona la "Main Edition".

Lee la guía de usuario de Linux Mint 7 (2.0MB)

Que trae de nuevo Linux Mint 7

Lee las notas de instalación

Escoge una edición

Main Edition

Escoge esta edición si eres nuevo en Linux Mint o no estás seguro de que versión utilizar.

Universal Edition

Esta versión contiene algunas características de la Main Edition sin incluir el software propietario, tecnologias patentadas o soporte para formatos restrigidos. Si eres una revista, un vendedor o un distribuidor japonés o norteamericano escoge esta edición.

x64 Edition

Esta versión soporta el X86_64 architecture y está optimizada para procesadores de bits. Debes saber que la Main Edition (que es de 32 bits) es normalmente más estable que la version que soporta procesadores de 64bits.

UltraSurf 8.9

2009-08-03T21:32:00.002+02:00

"Browse the world without any limit for free with safety" New revolution in the field of proxy, simple to use and faster. No more slot limitations, time limits, geographical limits, bandwidth problems in same old proxies. Switch to UltraSurf 8.9

UltraSurf is the flagship software product from UltraReach Internet Corp. for Internet anti-censorship. It enables users inside countries with heavy Internet censorship to visit any public web sites in the world safely and freely.

As the safety and convenience of the users is our first priority, the most prominent features of UltraSurf 8 are that it has implemented a complex proxy with complete transparency and a high level of encryption on the Microsoft Internet Explorer (IE) platform. UltraSurf 8 enables users to browse any website freely just the same as using the regular IE browser while it automatically searches the highest speed proxy servers in the background.

UltraSurf 8 implements almost all browser functions based on HTTP and user needs, such as browsing websites, login and posting on web forums, using Web mail, uploading and downloading data files, real time audio, video and other multimedia programs, etc. Please refer to the “UltraSurf 8 Users Guide” for detailed information.

UltraSurf 8 is a green software, which means no installation process is needed nor system setting is required to change when using the software. It is simply an executable on Windows platform.

Download the UltraSurf 8 client software now

[Download]

Download the UltraSurf 6 User Guide in English at:
http://www.wujie.net/downloads/ultrasurf/UltraSurf6_userGuide_en.zip

You can use it with Firefox if you install the Ultrasurf firefox add-on.

It's on the UltraSurf download page.
http://www.ultrareach.net/download_en.htm

Fuente: http://wehackers.blogspot.com/2008/07/ultrasurf-89.html

Cain y Abel: una herramienta util

2009-08-03T02:29:00.005+02:00

Download Cain & Abel v2.0 for Windows 9x (discontinued and not supported anymore)
MD5 - A14185FAFC1A0A433752A75C0B8CE15D
SHA1 - 8F310D3BECC4D18803AF31575E8035B44FE37418

Download Cain & Abel v4.9.31 for Windows NT/2000/XP
MD5 - 35FFD3322AC2D37B42AB0BC499E6B39E
SHA1 - D65170B55BB98868FCCE0EC63C0E9E31EF9FF9F3

Google Chrome con parches

2009-07-30T01:58:00.008+02:00

Google Chrome se ha tenido muchas mejoras desde su lanzamiento, por lo que ha habido varias versiones también, pero que hasta hace pocos días, esta versión se tenía que descargar en cada actualización e instalar de forma completa, sin embargo ahora funcionará por medio de actualizaciones (parches) donde solamente será descargado los archivos que vayan a actualizar la versión, sin la necesidad de la instalación completa, como algunos navegadores ya lo realizan (Firefox).

Esto beneficiará tanto a los desarrolladores, como a los servidores de Google que serán liberados un poco de carga de trabajo cuando sea necesario aplicar una actualización, así como un poco menos molesto para el usuario, ya que tan solo tendrá que actualizar un modulo muy ligero.

Estos sistemas tienden a volverse muy complejos en cuanto a su estructura ya que se tiene que limitar a seguir siempre una misma forma de desarrollar, pues, todo es actualizable y que incluso algunas aplicaciones como iTunes aún siguen descargándose de forma completa, aún cuando el instalador se encargue de la descarga e instalación.

Fuente: Incubaweb

CrunchBang Linux

2009-07-20T10:53:00.005+02:00

Pues algunos la conocereis, a mi personalmente me parece una distro muy bonita y estable. El diseño no podia ser mas jake ;) . Con un fondo de pantalla diferente, y un par de personalizaciones, queda un S.O muy potente.

Standard Edition - 32-bit

Approximate size: 620M
md5sum: 8ca9553235a18a691dcddf1f6f1dadae

via Torrent

http://thepiratebay.org/torrent/4991436

via HTTP

http://mirror.crunchbanglinux.org/crunchbang-9.04.01.i386.iso

Standard Edition - 64-bit

Approximate size: 673M
md5sum: 11476c7c030c90dab2786478245b7889

via Torrent

http://thepiratebay.org/torrent/4991734

via HTTP

http://mirror.crunchbanglinux.org/crunchbang-9.04.01.amd64.iso

Lite Edition - 32-bit

Approximate size: 427M
md5sum: 7495a9a62d3dc9cd38655daa1430525d

via Torrent

http://thepiratebay.org/torrent/4991769

via HTTP

http://mirror.crunchbanglinux.org/crunchbang-lite-9.04.01.i386.iso

Lite Edition - 64-bit

Approximate size: 436M
md5sum: a3ce0b7e3883aede9a9cf05e43f0bf05

via Torrent

http://thepiratebay.org/torrent/4992136/

via HTTP

http://mirror.crunchbanglinux.org/crunchbang-lite-9.04.01.amd64.iso

RedButtom [vb6] [SPA]: lock your PC

2009-06-23T16:27:00.001+02:00

Os presento un soft que hice en un rato libre como ejercicio para encriptar txt y bueno, alguna que otra cosa más. Espero que le encontreis utilidad. El objetivo principal de este programa es bloquear la pantalla de tal forma que no se permita salir de ninguna manera salvo introducioendo un login que vosotros mismos creareis al inicio del programa.

Bueno, mejor probadlo, que asi se eliminan dudas

DOWNLOAD: http://rapidshare.com/files/247372950/RedButtomSS.exe.html

Reportad los bugs a mi mail.

Greetz to: nath, stiuvert, kaiser, tony por testarlo;)

Fuerzas Aéreas de EE.UU y XP

2009-06-03T17:17:00.004+02:00

Microsoft ha creado una versión ultrasegura de XP a petición de las Fuerzas Aéreas de Estados Unidos, lo que ha ahorrado al Cuerpo alrededor de 100 millones de dólares en mantenimiento y subcontratas para arreglar problemas de seguridad.

Según cuentan en Wired, el CEO de Microsoft, Steve Ballmer, ha asegurado que la versión y configuración de Windows XP que han desarrollado es la más segura hasta el momento.

La versión personalizada para las Fuerzas Aéreas estadounidenses dispone de más de 600 configuraciones ajustadas así como un tiempo de aplicación de parches de seguridad de tan sólo 72 horas frente a los 57 días de la versión estándar. El esfuerzo para estandarizar y configurar el sistema operativo ha dado sus frutos, ya que se han bloqueado el 85% de bugs previos conocidos y el volumen de llamadas al soporte ha bajado un 40%.

Microsoft no tiene intención de liberar dicha versión para el público en general, por lo que si estabas pensándolo, sentimos tener que quitarte la idea de la cabeza.

Haber quien es el primero en cargarse este S.O XD, tan ultraseguro que es... en vez de usar linux... ains...

Fuente: http://www.theinquirer.es/2009/05/03/las-fuerzas-aereas-de-eeuu-usan-una-version-ultrasegura-de-xp.html

Como instalar conky en ubuntu

2009-06-02T17:33:00.002+02:00

Me preguntaron muchas veces como configurar conky, que si da problemas, que si no se que.

El problema mayoritariamente es el desconocimiento del uso de la terminal en linux. Que personalmente, opino, deberia usarse para instalar todos los programas, en vez de usar molestos instaladores, etc.

Pues empezamos con el mini tutorial.

Primero abrimos la consola e instalamos conky:

$ sudo aptitude install conky

Luego adquirimos privilegios de root (superusuario)

$ sudo su

Introducimos la clave y pasamos a configurar conky.
Seguramente se nos habra abierto conky con la configuracion estandar. Pues cerramos la ventana para que no nos moleste y continuamos.

Pasamos a editar el archivo de configuracion de conky, el conkyrc.

En la terminal ejecutamos:

$ gedit ~/.conkyrc

Ojo!: Siempre con derechos de root!!

Pegamos la configuración y le damos a guardar.

Ahora ejecutamos conky en la terminal:

Por fin, ahora tenemos conky funcinando al 100%.

Una utilidad muy bonita y practica para mantener bajo control el sistema.

DATOS A TENER EN CUENTA:

Un ejemplo de configuración es este, creado por seth:

# .conkyrc - Edited from various examples compiled from the web

# Used on Ubuntu

# --- Window Layout & Options --- #

own_window yes

own_window_colour brown

own_window_transparent yes

own_window_type override

own_window_transparent yes

own_window_hints undecorated,below,sticky,skip_taskbar,skip_pager

double_buffer yes

use_spacer right

use_xft yes

alignment bottom_right

gap_x 10

gap_y 45

# --- Colours, Sizes, Fonts & Margins --- #

update_interval 2.0

maximum_width 250

stippled_borders 3

border_margin 9

border_width 10

default_color white

# --- Text --- #

draw_outline no

draw_borders no

font Monospace:size=10:weight=bold

uppercase no

draw_shades yes

TEXT

${color #539EEB}SYSTEM INFORMATION ${hr 2}$color

${color white}${time %A},${time %e} ${time %B} ${time %G}${alignr}

${color white}Machine$color ${color #539EEB}$nodename ${alignr}

${color white}Uptime$color ${color #539EEB}$uptime

${color white}Kernel$color ${color #539EEB}$kernel ${alignr}

${color #539EEB}CPU ${hr 2}$color

${font Arial:bold:size=8}${color white}${execi 99999 cat /proc/cpuinfo | grep "model name" -m1 | cut -d":" -f2 | cut -d" " -f2- | sed 's#Processor ##'}$font$color

${color white}Freq:$color${execi 20 sensors |grep "Core0 Temp" | cut -d" " -f4}$font$color${color #539EEB}$alignr${freq_g 2}GHz ${color #c0ff3e}${execi 20 sensors |grep "Core1 Temp" | cut -d" " -f4} $color${alignr}${color white}Process.:$color$running_processes/ $processes

${cpugraph cpu1 20,250 000000 ff6600 }

${cpugraph cpu2 20,250 000000 ff6600 }

${color #539EEB}${cpubar cpu1 6,250} ${color #cc0033}$color

${color #539EEB}TOP 5 PROCESSES ${hr 2}$color

${color white}NAME PID CPU MEM

${color #FF0000}${top name 1}${top pid 1} ${top cpu 1} ${top mem 1}

${color #FF6600}${top name 2}${top pid 2} ${top cpu 2} ${top mem 2}

${color #FF9900}${top name 3}${top pid 3} ${top cpu 3} ${top mem 3}

${color #FFCC00}${top name 4}${top pid 4} ${top cpu 4} ${top mem 4}

${color #FFFF00}${top name 5}${top pid 5} ${top cpu 5} ${top mem 5}

${color #539EEB}MEMORY & SWAP ${hr 2}$color

${color white}RAM$color $memperc% ${color white}${membar 6}$color

${color white}Swap$color $swapperc% ${color white}${swapbar 6}$color

${color #539EEB}DRIVES - FREE SPACE ${hr 2}$color

${color white}Ubuntu$color ${fs_free_perc /}% ${color white}$alignr${fs_free /}/${fs_size /}

${color #539EEB}${fs_bar 6 /}$color

${color white}Home$color ${fs_free_perc /home}% ${color white}$alignr${fs_free /home}/${fs_size /home}

${color #539EEB}${fs_bar 6 /}$color

${color white}Var$color ${fs_free_perc /var}% ${color white}$alignr${fs_free /var}/${fs_size /var}

${color #539EEB}${fs_bar 6 /}$color

${color white}Stockage$color ${fs_free_perc /media/STOCKAGE}% ${color white}$alignr${fs_free /media/STOCKAGE}/${fs_size /media/STOCKAGE}

${color #539EEB}${fs_bar 6 /}$color

${color #539EEB}LAN (${addr eth0}) ${hr 2}$color

${color white}Down:$color ${downspeed eth0}KB/s ${alignr}${color white}Up:$color ${upspeed eth0} KB/s

${color #00ff00}${downspeedgraph eth0 20,120 000000 00ff00} ${alignr}${color #ff0000}${upspeedgraph eth0 20,120 000000 ff0000}$color

${color #539EEB}WIRELESS (${addr wlan0}) ${hr 2}$color

${color white}Down:$color ${downspeed wlan0}KB/s ${alignr}${color white}Up:$color ${upspeed wlan0} KB/s

${color #00ff00}${downspeedgraph wlan0 20,120 000000 00ff00} ${alignr}${color #ff0000}${upspeedgraph wlan0 20,120 000000 ff0000}$color

Es de facil edicion y podemos ponerlo como mas nos guste.

Otro dato a tener en cuenta: la mayoria de los conkyrc monitorizan las temperaturas con una aplicacion llamada lm sensors y hddtemp.

Para instalarlos, ejecutamos en la consola:

$sudo apt-get install hddtemp
$sudo apt-get install lm-sensors

Ahora reiniciamos conky y debería monitorizar las temperaturas. Seguramente os mandará reiniciar, si no no monitorizará bien.

Muchas configs traen plugins, o scripts con diversas utilidades. En ese caso ya vendrá en las instrucciones con la config que os bajeis, pero lo mas probable esque tengais que crear la carpeta ".script" en /home.

Para hacerlo basta con pulsar Control + H en el explorador para mostrar los archivos ocultos y que nos permita crear la carpeta. O desde la consola, que es mas sencillo con privilegios de root.

Como todo modding de ubuntu, yo recomiendo usar la web http://www.gnome-look.org.
Tiene unas config muy muy interesantes y amplias. Buscad conky en la barra y os aparecerán infinidad.

Por ultimo, si quereis que se inicie con ubuntu basta con ir a : Sistema > Preferencias > Sesiones y añadir conky.

Un saludo y espero que lo disfruteis.

ATI Driver para Linux

2009-05-01T02:14:00.001+02:00

Hay buenas noticias para los poseedores de tarjetas gráficas de ATI / AMD bajo Linux, en especial para los usuarios de Ubuntu.

ATI / AMD ha lanzado una nueva versión de los controladores ATI Catalyst.

Esta nueva versión es la número 9.3 para las tarjetas comprendidas entre las R300 y R500 y como siempre, incorpora mejoras gráficas y de rendimiento.

Por ultimo debo agregar, que esto solo lo he probado con una tarjeta Radeon HD 3200.

Ahora voy a explicar cómo se instala el nuevo driver ATI Catalyst 9.3 en Ubuntu 8.4 Hardy Heron para arquitecturas de 32bit.

Instalar Driver ATI 9.3 desde cero

Metodo Automatico

Lo recomiendo para personas que se estan iniciando bajo Ubuntu.

*Descargamos el driver ATI 9.3 desde la web oficial, con el siguiente enlace:

http://ati.amd.com/support/drivers/linux/linux-radeon.html

Nota:

Es imprescindible tener los repositorios universe y multiverse activados.

*Desinstalamos desde el Gestor de Paquetes Synaptic todo rastro de cualquier versión anterior de los drivers, para que no entren en conflictocon el nuevo driver 9.3 de ATI. Basicamente se trata de los paquetes que empiecen o terminan en fglrx:

xorg-driver-fglrx

Fglrx-modaliases

fglrx-kernel-source

fglrx-amdcccle

No se preocupen si no tienen ninguno de estos paquetes instalados, esto quiere decir que ya pueden seguir al siguiente paso.

*Ahora tenemos que desactivar el antiguo modulo que ya viene activo:

$ sudo gedit /etc/default/linux-restricted-modules-common

Dentro del contenido del archivo buscamos una línea que dice DISABLED_MODULES=""

ponemos dentro de las comillas fglrx así que al final quedara:

DISABLED_MODULES="fglrx"

*Borramos si acaso hubiese algún modulo kernel:

$ sudo rm /usr/src/fglrx-kernel*.deb

Si de casualidad te muestra un error de que no encuentra ningun modulo, puedes continuar en el siguiente paso sin ningun problema.

Nos hubicamos en el directorio donde se descargo el driver ATI 9.3 e instalamos:

En mi caso fue en el directorio Escritorio:

$ cd Escritorio

$ sudo ./ati-driver-installer-9-3-x86.x86_64.run

*Después de la instalación del driver ATI 9.3 ; en el terminal escribimos la siguiente línea para que tome el nuevo driver:

$ sudo aticonfig --initial

*Reiniciamos la maquina.

$ sudo reboot

Metodo Manual

*Abre una terminal y ejecuta:

$ sudo apt-get update $ sudo apt-get install build-essential cdbs fakeroot dh-make debhelper debconf $ sudo apt-get install libstdc++5 dkms linux-headers-$(uname -r)

El paquete cdbs se requiere a partir de Catalyst 8.8.

*Desinstalamos desde el Gestor de Paquetes Synaptic todo rastro de cualquier versión anterior de los drivers, para que no entren en conflicto con el nuevo driver 9.3 de ATI. Basicamente se trata de los paquetes que empiecen o terminan en fglrx:

xorg-driver-fglrx

Fglrx-modaliases

fglrx-kernel-source

fglrx-amdcccle

No se preocupen si no tienen ninguno de estos paquetes instalados, esto quiere decir que ya pueden seguir al siguiente paso.

*Una vez estemos en consola ya podemos ejecutar el instalador del driver ATI Catalyst 9.3. Nos situamos en el directorio donde se aloja el instalador y:

$ sudo sh ati-driver-installer-9-3-x86.x86_64.run--buildpkg Ubuntu/hardy

Puede ser que nos solicite instalar algunas dependencias, las aceptamos, y si no las solicita pues no hay problema.

*Ahora tenemos que desactivar el antiguo modulo que ya viene activo:

$ sudo gedit /etc/default/linux-restricted-modules-common

Dentro del contenido del archivo buscamos una línea que dice DISABLED_MODULES=""

ponemos dentro de las comillas fglrx así que al final quedara:

DISABLED_MODULES="fglrx"

*Borramos si acaso hubiese algún modulo kernel

$ sudo rm /usr/src/fglrx-kernel*.deb

Si de casualidad te muestra un error de que no encuentra ningun modulo,quiere decir que no tienen ninguno instalado asi que puedes continuar en el siguiente paso sin ningun problema.

*Descargamos e instalamos éste paquete(libxi6_1.1.3-build1_i386) desde los repositorios de Intrepid, aunque debo aclarar que Hardy ya viene con una versión de este mismo en sus repositorios pero por si acaso deje el link para su descarga.

*Instalamos los paquetes:

$ sudo dpkg -i xorg-driver-fglrx* fglrx-kernel-source* fglrx-amdcccle*

*Después de la instalación del driver ATI 9.3 , en el terminal escribimos la siguiente línea para que tome el nuevo driver:

$ sudo aticonfig --initial

*Reiniciamos la maquina.

$ sudo reboot

Con un controlador ATI anterior

*Descargamos el driver ATI 9.3 desde la web oficial, con el siguiente enlace:

http://ati.amd.com/support/drivers/linux/linux-radeon.html

*Entramos en la consola para ejecutar el instalador del driver ATI Catalyst 9.3. Nos situamos en el directorio donde se aloja el instalador y:

$ sudo sh ati-driver-installer-9-3-x86.x86_64.run --buildpkg Ubuntu/hardy

Puede ser que nos solicite instalar algunas dependencias, las aceptamos y si no las solicita pues no hay problema.

*Ahora tenemos que desactivar el antiguo modulo que ya viene activo:

$ sudo gedit /etc/default/linux-restricted-modules-common

Dentro del contenido del archivo buscamos una linea que dice DISABLED_MODULES=""
ponemos dentro de las comillas fglrx asi que al final quedara:

DISABLED_MODULES="fglrx"

*Descargamos e instalamos éste paquete (libxi6_1.1.3-build1_i386) desde los repositorios de Intrepid, aunque debo aclarar que Hardy ya viene con una versión de este mismo en sus repositorios pero por si acaso deje el link para su descarga.

*Instalamos los paquetes:

$ sudo dpkg -i xorg-driver-fglrx* fglrx-kernel-source* fglrx-amdcccle*

*Después de la instalación en el terminal escribimos la siguiente línea para que tome el nuevo driver ATI 9.3:

$ sudo aticonfig --initial -f

*Reiniciamos la maquina.

$ sudo reboot

Comprobación de nuestro driver ATI 9.3

Hay gente que dice no ver los cambios hechos en xorg.conf. En tal caso, vamos a forzar al driver ATI 9.3 a usar los cambios hechos en xorg.conf con el siguiente comando:

$sudo aticonfig --input=/etc/X11/xorg.conf --tls=1

Finalmente, reiniciamos la máquina y escribimos en una terminal o consola:

$ glxinfo

Si aparece algo como esto,

Direct Rendering: Yes

Es que el driver ATI 9.3 se ha instalado exitosamente.

FUENTE:

http://www.aprendiendounpoco.com/

Me retiro una o dos semanas

2009-04-26T21:01:00.002+02:00

Pues eso, que me retiro un par de semanitas, que ando ocupado con los examenes y el coche.

Hasta mas ver!

Un saludo

Ver los iconos de los exe en Ubuntu

2009-04-09T00:36:00.003+02:00

Te gustaria poder ver los iconos .exe de Windows en tu sistema???

Si utilizas Ubuntu "Linux" y usas algún programa de Windows o has descargado algún ejecutable y te gustaría poder verlo con su respectivo icono la solución es muy sencilla..

Todo lo que necesitas es instalar icoutils, que es una aplicación que se encargara de extraer los iconos y cursores de los .exe de Windows.

Tutorial como ver iconos de Windows en Ubuntu "Gnome"

Paso1.- Teclea en la terminal lo siguiente:

sudo aptitude install icoutils

Paso2.- Ahora vamos a crear unas carpetas para los ejecutables de manera que la direccion quede así

~/.local/share/mime/packages

Paso3.- Ahora crearemos un archivo tipo mime para ello Pulsa Alt + F2 y escribe

gedit ~/.local/share/mime/packages/exemime.xml

Se abrirá un archivo de texto en el cual copia y pega todo lo del siguiente archivo:

Click aqui para descargar - Archivo de texto

Paso4.- Ahora necesitamos actualizar la base de datos de tipos MIME teclea en la terminal lo siguiente

update-mime-database .local/share/mime/

Paso5.- Muy bien ahora necesitamos crear un script para utilizar las herramientas de icoutils y que extraiga el icono de la aplicación.

gksu gedit /usr/bin/icono-exe.sh

En el archivo copia y pega lo siguiente:

#!/bin/sh

f=`mktemp`

if wrestool "$1" -x -t14 > $f && [ -s $f ]; then
id=`icotool -l $f | awk '{
ci=int(substr($2,index($2,"=")+1));
cw=int(substr($3,index($3,"=")+1));
cb=int(substr($5,index($5,"=")+1));

if (cw > w || (cw == w && cb > b)) {
b = cb;
w = cw;
i = ci;
}
}
END {
print i;
}'`

icotool -x --index=$id $f -o "$2"
convert -resize 48×48 "$2" "$2" # optional
else
cp '/usr/share/icons/Tango/scalable/apps/ms-library.svg' "$2"
fi

rm $f

Paso6.- Para terminar solo hace falta darle permisos de ejecución al script:

sudo chmod +x /usr/bin/icono-exe.sh

Tambien ahí que establecer una imagen que se mostrara en iconos que devuelva el script icono-exe

gconftool --type string --set /desktop/gnome/thumbnailers/application@x-exe/command "icono-exe.sh %i %o"

gconftool --type bool --set /desktop/gnome/thumbnailers/application@x-exe/enable true

Listo podrás ver los iconos de Windows en Gnome Saludos!!!

Los mitos de wine

2009-04-06T03:17:00.003+02:00

Como muchos de ustedes sabrán ya esta disponible la Release Candidate numero 4 de Wine 1.0, y por ello muchos estamos ansiosos de que llegue el día del gran anuncio.

Se me dio por entrar en el sitio oficial de Wine HQ y me encontré con una interesante sección, los mitos de Wine. Lamentablemente esta en ingles, por lo que si no dominan el idioma están al horno pero si lo entienden les recomiendo que le peguen una leída, es bastante interesante.

Yo voy a hacer una pseudo-traducción (no todo, sino la idea general) de algunos puntos, sobre todo los que mas me interesaron.

Mito 1: Wine es lento porque es un emulador

Algunos entienden con esto que Wine debe emular cada instrucción del procesador de la aplicación de Windows. Esto es incorrecto. Como el nombre de Wine lo indica “Wine Is Not an Emulator” (Wine no es un emulador). Wine no emula el procesador Intel x86. Las aplicaciones de Windows que no hagan llamadas al sistema van a andar tan rápido como en Windows, ni mas ni menos.

Mito 2: Wine es malo para Linux

Hay un hecho que es inegable: hay una gran cantidad de software que funciona con el sistema operativo de Microsoft. Muchas de estas tienen un equivalente en Linux, sin embargo para la mayoria de la gente quedan algunos programas que los mantienen atados a Windows. Algunos de estos no tienen ni chanches de ser portados a Linux (por ejemplo Microsoft Office), otros simplemente no pueden ser portados porque fueron abandonados. Necesito Windows solo por un viejo programa de impuestos?

Mito 3: Los emuladores como VMWare son mejores

Seguramente que son mejores…si te gusta comprar una copia completa de un sistema operativo solo para correrlo en una maquina virtual. Ni mencionar que necesitas comprar la copia de VMWare para que funcione (Esto seguramente fue escrito cuando VMWare era pago, pero igual vale para cualquier software de virtualización pago)

Oh, y no te olvides del enorme impacto en la performance para correr una aplicación en un sistema operativo sobre otro sistema operativo.

Sin embargo no dicen que que haya situaciones en que estos emuladores son muy utiles. Pero tener un sistema operativo completo solamente para correr un procesador de textos probablemente no es la mejor solución.

Mito 4: Necesitas Windows de todas maneras

No. El objetivo de Wine es una reimplementación completa de la API de Windows, que hara innecesario tener Windows. Ya puden correr muchas aplicaciones sin tener Windows instalado. Pero tienen que entender que como Wine esta lejos de estar completo muchas aplicaciones van a necesitar Windows para algunas funcionalidades que Wine no provee todavia.

Mito 5: Wine es para Linux solamente

Esto es incorrecto. A pesar de que Wine no soporta muchas plataformas: solo Linux, FreeBSD y Solaris; no es “Linux solamente“.

Es verdad que la mayoria de los desarrolladores trabajan en Linux, por lo que hay un riesgo alto de que haya una version especifica de Wine que no compile en otra plataforma no-Linux. Pero esto generalmente es reparado en el siguiente lanzamiento.

Tienen más mitos, pero hasta aca me permitio llegar el sueño Sepan disculpar los errores en la traducción.

LOS MITOS DE WINE

El sometimiento de argentina: seguridad digital

2009-04-06T03:13:00.003+02:00

EL SOMETIMIENTO ELECTRONICO DE ARGENTINA II
by Centro Radio Amateur Neuquén • Thursday June 13, 2002 at 06:10 PM
primeravoz84@hotmail.com

Entre los miembros de la escasa comitiva del FMI arribada a la República Argentina
El día Jueves 13 de Junio, esta un oficial de alto rango de la NSA ( Agencia de Seguridad Norteamericana) de nombre Patrick Dumber. Este señor, veterano agente, comisionado en varias ocasiones en misiones “diplomáticas” en Centro América, tomará contacto en Buenos Aires con distintos representantes del área informática y la defensa del poder Ejecutivo Nacional; y empresas privadas dedicadas a brindar soporte técnico a distintos servidores de Internet y Correo Electrónico en el ámbito nacional.

Dentro del denunciado esquema del llamado “sometimiento electrónico de Argentina” (ver informe anterior), el gobierno norteamericano (en su calidad de fuerza policial universal, al servicio de la banca acreedora) ordenará al gobierno nacional adoptar las siguientes medidas de “seguridad” (puro control poblacional- en tiempo y espacio similar al que la Comunidad Económica Europea impondría a sus países miembros en fecha próxima).

Medidas:

Obligaciones a imponer a los proveedores de servicio:

Respecto a la RED: Logs o NAS de acceso especifico para la autentificación y autorización en servidores como TACAS (Terminal Access Controller Access Control System) y RADIUS (Remote authentication Dial in User Service) utilizados para el control de acceso a rutas IP o servidores directos de acceso a redes universales.

El servidor deberá proveer los siguientes datos, sobre cada cliente de su server y que permanezca regularmente en Red:

1) fecha y hora de conexión del cliente al servidor
2) identificación del usuario y contraseña
3) dirección IP asignada al puerto / cliente.
4) Almacenamiento relacionado a la dirección IP
5) Numero diarios de caracteres (escala no binaria) transmitidos y recibidos
6) Identificación del número de teléfono que efectúa la llamada o CLI.
7) Numero de tarjeta de crédito y / o numero de cuenta bancaria sobre la cual se debita el pago del servicio.

Obligaciones a imponer a los servidores de Correo Electrónico:

Para el tráfico de correo saliente o SMTP (Simple Mail Transfer Protocol)

1) fecha y hora de conexión del cliente al servidor
2) Dirección IP del ordenador que envía
3) Identificador del mensaje (MSGID)
4) remitente (usuario@dominio)
5) receptor (usuario@dominio)
6) indicador del estado cuenta / mail de cada usuario
8) activación obligatoria del identificador ( IBRACK)del procesador individual del cliente

Para el tráfico de correo entrante o POP (Post Office Protocol) o del IMAP (Internet Message Access Protocol).

1) fecha y hora de la conexión del cliente al servidor
2) dirección IP del cliente conectado al servidor
3) identificador del usuario (IBRACK)
4) identificador y contenido del correo leído*

Subida y bajada de ficheros de /a Servidores o FTP (File Transfer Protocol)

1) fecha y hora de conexión del cliente al servidor
2) dirección IP de origen
3) usuario y contraseña
4) contenido (PATH) y nombre del fichero de datos subido o bajado

Imposiciones para los servidores WEB o http (Hyper Text Transfer Protocol)

1) fecha y hora de conexión al cliente
2) dirección IP de origen
3) modo y volumen de la operación (GET)
4) PATH de la operación (acción para obtener una página HTML o un fíchero de imágenes) *
5) Las empresas que ofrecen alojamiento de páginas web deben retener y verificar detalles de los usuarios que insertan dichas páginas.
6) Última página visitada por cada cliente
7) Todo código utilizado por los mismos
8) Serial y nodo de ingreso al puerto individual de cada abonado

Toda esta operatoria destinada a tender una red de control poblacional directa, debe ser precedida por una profunda reforma de los derechos constitucionales vigentes. Con los antecedentes de “nuestro” Congreso Nacional, ¿adivinas en que terminará?.

Tutorial photoshop: Firma básica

2009-04-06T02:19:00.006+02:00

http://img186.imageshack.us/img186/7683/tuto125ri8.jpg

Tutorial photoshop explosión planeta

2009-04-06T02:15:00.002+02:00

Tutorial photoshop bordes redondeados

2009-04-06T02:13:00.002+02:00

WindowsBlinds 6 Full + Temas Espectacuales

2009-04-06T02:05:00.004+02:00

Los temas incluidos en Windows son de excelente calidad, pero son pocos, y pueden llegar a cansar.

WindowBlinds es una aplicación con la que puedes cambiar por completo el aspecto de las ventanas, de la barra de tareas y del Definición de 'Escritorio' :

En los sistemas operativos de Windows, el Escritorio es la zona en la que se encuentran los iconos, es decir, la pantalla inicial desde la cual puedes empezar a realizar operaciones con tu PC.">Escritorio. Cargándose en segundo plano, aplica las pieles con un consumo mínimo de recursos.

A las pieles incluidas en WindowBlinds puedes sumar las docenas ya disponibles por Internet, fáciles de instalar y aplicables al instante. La mayoría de pieles de WindowBlinds pueden ser modificadas en color, brillo y saturación, y algunas incluyen sus propios sonidos y fondos de pantalla.

Con efectos espectaculares, un excelente aprovechamiento de recursos y una cantidad enorme de pieles disponibles, WindowBlinds es la mejor solución para revitalizar el aspecto de Windows.

Nota sobre WindowBlinds:

Algunas aplicaciones no son compatibles con WindowBlinds. Para evitar que se les aplique una piel, ve al menú Settings > Change the look of an app y agrega el ejecutable como excepción

Limitaciones de la versión de prueba:

Funcional durante un periodo de 30 días
Algunas características están desactivadas en la versión Free
Aparecerá un recordatorio al cargar una piel

Para utilizar WindowBlinds necesitas:

Sistema operativo: WinXP/2003/Vista

Requisitos mínimos:

Procesador: 800 MHz
Memoria: 256 MB
Vídeo: 16 MB
Espacio libre en disco: 60 MB
DirectX 8.0

Descargar:
http://rapidshare.com/files/87979950/WB6_key__www.taringa.net__.zip

ESET Smart.Security v4.0.314.0 (Home Final) en Español

2009-04-02T17:41:00.008+02:00

| ESET SMART SECURITY |

Cortafuegos, antivirus y filtro de correo no deseado integrados en una sola aplicación

Actualmente, navegar por la Red y utilizar el correo electrónico son actividades cotidianas.
Los delincuentes aprovechan esta situación, y envían más de 100.000 ataques nuevos cada día a a través de Internet, con el fin de robar la identidad de los usuarios, o convertir sus ordenadores en máquinas zombies, destinadas a enviar mensajes de correo masivo y otras actividades ilegítimas.

ESET Smart Security es la defensa más completa contra las amenazas provenientes de Internet.
Incluye cortafuegos personal, filtro contra correo no deseado y la misma protección antivirus y contra programas espía que ofrece ESET NOD32 Antivirus.

Construido sobre la base del premiado motor de análisis ThreatSense®, ESET Smart Security protege su ordenador contra los ataques conocidos y desconocidos, incluso durante las primeras horas de su aparición.
Además, detecta y elimina de forma proactiva todo tipo de código malicioso: virus, troyanos, gusanos, publicidad no solicitada, programas espía, sitios fraudulentos, rootkits y demás amenazas que circulan por Internet.

ESET Smart Security es la solución integrada más veloz, y puede configurarse fácilmente para obtener un funcionamiento óptimo para las necesidades específicas de cada usuario.

Principales características

Protección proactiva:
ThreatSense, la tecnología heurística más avanzada, permite reconocer amenazas de forma proactiva.
Gracias a ella, la ventana de vulnerabilidad entre la liberación de un código malicioso y la actualización de las firmas se ve reducida.
El filtro contra correo no deseado y el cortafuegos personal completan la eficacia de la protección.

Detección precisa:
El motor de análisis antivirus de ESET, identifica con exactitud amenazas conocidas y desconocidas.
Gracias a su precisión y eficiencia, es asiduamente galardonado por los laboratorios de pruebas, y reconocido por no detectar falsos positivos.

Elevada velocidad de análisis:
La aplicación es de alta eficiencia y asegura un análisis rápido del sistema.
Las actualizaciones también son veloces y se ejecutan en segundo plano.
El modo de protección de consumo de batería recientemente incorporado, permite que los usuarios de ordenadores portátiles utilicen su equipos por más tiempo.

Mínimo consumo de recursos:
ESET Smart Security utiliza menos memoria y capacidad del procesador.
Esto hace que el ordenador funcione rápidamente y tenga más recursos para otras aplicaciones como juegos, navegadores y clientes de correo electrónico.

Facilidad de uso:
El nuevo diseño de su interfaz gráfica es simple y práctico. La cantidad de avisos emergentes es mínima, y su cortafuegos tiene características de autoaprendizaje para que su configuración sea aún más fácil para los usuarios.

Novedades destacadas

Análisis inteligente:
Las amenazas no siempre entran en la red utilizando los medios tradicionales.
ESET Smart Security verifica los canales de comunicación cifrados, tales como los protocolos HTTPS o POP3, y analiza de forma inteligente los archivos comprimidos en busca de códigos maliciosos ocultos.
La protección proactiva se aplica desde las etapas más tempranas al inicio del sistema, para garantizar que el ordenador esté siempre asegurado.

Cortafuegos con capacidad de autoaprendizaje:
El nuevo modo de aprendizaje crea reglas automáticamente, sobre la base de las acciones que el usuario realiza en su ordenador. También existen modos de configuración avanzados para los usuarios más experimentados.

Filtro mejorado contra correo electrónico no deseado:
ESET Smart Security se encarga del correo no solicitado con un filtro aún más veloz, liviano y eficaz.

Seguridad de medios extraíbles:
Los medios extraíbles, como los dispositivos USB, podrían ser utilizados como puerta de entrada de distintas amenazas.
ESET Smart Security analiza los archivos que se ejecutan automáticamente al introducir un dispositivo nuevo y cada vez que el sistema intenta acceder a ellos.
Los usuarios avanzados pueden definir niveles de análisis adicionales.

Herramientas del sistema:
ESET SysInspector y ESET SysRescue simplifican el diagnóstico y la limpieza de los sistemas infectados.
Estas herramientas permiten realizar análisis avanzados de los procesos del sistema para detectar amenazas ocultas, o crear discos de recuperación (CD, DVD o USB) para iniciar el sistema y reparar el ordenador.

Autodefensa:
Tecnología integrada para evitar la corrupción o la desactivación de los sistemas de seguridad por parte de aplicaciones maliciosas.

Requisitos de sistema

Procesador • Arquitectura de 32 bits (x86) o 64 bits (x64)
Intel®, AMD® o compatible.
Sistemas operativos

• Microsoft Windows 2000
• Microsoft Windows XP (ediciones 32-bit o 64-bit)
• Microsoft Windows Vista (ediciones 32-bit o 64-bit)
Memoria operativa • 48 MB
Espacio en disco duro • 34 MB para la descarga del archivo instalador.
• 46 MB para la instalación de la aplicación.

Download:
http://rapidshare.com/files/216602895/ESET.Smart.Security.v4.0.314.0.Home.Final.Spanish.x86.rar.html

Consigue tus keys de: http://www.nod321.com/

2009-04-02T17:27:00.004+02:00

Pack de crypters listos para modificar. Hay muchos que son detectados pero estan todos limpios de servers.

Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link
Todos los crypter en un solo link

Descarga: http://www.4shared.com/file/56009838/2c277ce8/PackCrypters.html

Mad Xtremer Joiner v1.0 [VB6]

2009-04-02T17:14:00.005+02:00

Os presento mi nuevo joiner, el MaDXtrEmer.

Este nuevo joiner es muy compacto y bastante estable. Trabaja muy bien con archivos no superiores a 100 megas y es rápido y eficaz.

--- Versión 1.0 -------------------------------------------------------------------------------------------------------------------

Imagenes:

Características:
- Cambiador de iconos
- Compresión UPX
- Stub de tan solo 7.5 kb.
- Multidioma: Inglés y Español.
- Lenguaje: vb6
- Otras: Interfaz muy intuitiva

Funciones por añadir:
- Función melt (en la siguiente versión o posteriores)....

Escaneos de novirusthanks:

STUB!!!

File Info

Report generated: 14.2.2009 at 16.12.44 (GMT 1)
Filename: mAdWoRld.dll
File size: 7 KB
MD5 Hash: 0F5CBAEFA2BC8D7255D6FC06B71FB075
SHA1 Hash: 6FD6D01E3DC84CD3FF95E8B77509A69EE8F6BD4D
Packer detected: UPX 0.89.6 - 1.02 / 1.05 - 1.24 -> Markus & Laszlo
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 2 on 24

Detections

a-squared - Trojan-Spy.Win32.VB!IK
Avira AntiVir - Nothing found!
Avast - Nothing found!
AVG - Nothing found!
BitDefender - Nothing found!
ClamAV - Nothing found!
Comodo - Nothing found!
Dr.Web - Nothing found!
Ewido - Nothing found!
F-PROT 6 - Nothing found!
G DATA - Nothing found!
IkarusT3 - Trojan-Spy.Win32.VB
Kaspersky - Nothing found!
McAfee - Nothing found!
MHR (Malware Hash Registry) - Nothing found!
NOD32 v3 - Nothing found!
Norman - Nothing found!
Panda - Nothing found!
Quick Heal - Nothing found!
Solo Antivirus - Nothing found!
Sophos - Nothing found!
TrendMicro - Nothing found!
VBA32 - Nothing found!
Virus Buster - Nothing found!

Scan report generated by
NoVirusThanks.org

JOINER

File Info

Report generated: 14.2.2009 at 16.16.33 (GMT 1)
Filename: MaDXtrEmer.exe
File size: 284 KB
MD5 Hash: 964699E648D8FABB01CACD9FC52469C5
SHA1 Hash: 2D445576A0EDB4D24D43F01044F61F07EF7EF6C6
Packer detected: Microsoft Visual Basic 5.0 / 6.0
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 0 on 24

Detections

a-squared - Nothing found!
Avira AntiVir - Nothing found!
Avast - Nothing found!
AVG - Nothing found!
BitDefender - Nothing found!
ClamAV - Nothing found!
Comodo - Nothing found!
Dr.Web - Nothing found!
Ewido - Nothing found!
F-PROT 6 - Nothing found!
G DATA - Nothing found!
IkarusT3 - Nothing found!
Kaspersky - Nothing found!
McAfee - Nothing found!
MHR (Malware Hash Registry) - Nothing found!
NOD32 v3 - Nothing found!
Norman - Nothing found!
Panda - Nothing found!
Quick Heal - Nothing found!
Solo Antivirus - Nothing found!
Sophos - Nothing found!
TrendMicro - Nothing found!
VBA32 - Nothing found!
Virus Buster - Nothing found!

--- End -------------------------------------------------------------------------------------------------------------------

Contraseña flexicript:
^#2fTHs7"VPe#H9tc+q#

COntraseña rar:
UaGgSlTnQB+w7X@JgB%:

Screenn:
http://img9.imageshack.us/img9/4787/screen2ka1.png

Download link:

http://www.4shared.com/file/96383027/2566cdc4/Item56789754.html

Por seguridad, el archivo ha sido comprimido por diversos metodos de encriptacion. Las pass se darán en el MP. El exe que pone secubox es el resultado de la compresion mediante Flexycrypt. Disculpad las molestias.

Agradecimientos:
A los tutoriales de E0n, Seth,y muchos otros de los cuales no recuerdo el nombre; y sin duda a la inestimable ayuda de carl y retro.

Un saludo y sed felices

Cactus Metamorph 0.3 [By MadAntrax]

2009-04-02T17:12:00.002+02:00

Cactus Metamorph 0.3

Foto Ventana Principal:

Listado de funcionalidades 0.3

[ + ] Modificar TimeDateStamp Permite modificar las fechas de creación, acceso y modificación del fichero final
[ + ] vMap: Offset Pointer (Muestra de forma gráfica que zonas del código se han modificado)
[ + ] Sistema de Log's (Genera y guarda un log con los cambios realizados al fichero, junto con TODOS sus offset's modificados)
[ + ] Virtual EOF (añade hasta 25 Kbytes de código adicional, altera el tamaño)
[ + ] Clonación de Código: Permite modificar el ejecutable con partes del código de otro ejecutable inofensivo
[ + ] Diccionario Estático: Selecciona de forma aleatoria un carácter hexadecimal para modificar el fichero
[ + ] Botón 'Detener': para finalizar el proceso de Metamorph en cualquier momento
[ + ] Ayuda Dinámica: Pulsar los botones '?' para ver la ayuda
[ + ] Mejoras en la GUI: Barra de título animada.
[ + ] Mejoras en la GUI: Añadida ventana de "About" con efecto petardos xD
[ + ] Mejoradas las estadísticas, ahora son más eficientes
[ + ] Mejoras en el código interno, los bucles y condiciones son ahora más estables y rápidos
[ + ] Se han cambiado los valores hexadecimales de los diccionarios
[ + ] Aumentados y mejorados los niveles de Ofuscación

Descripción

Este sencillo programa permite modificar un archivo ejecutable compilado (binario) para alterar su estructura interna sin modificar el tamaño original (ni aumentan ni disminuyen los bytes finales). No añade ningún Stub ni descomprime código en tiempo de ejecución. Si modificas 2 veces un mismo archivo obtendrás 2 ficheros distintos, nunca obtendrás 2 copias idénticas de un mismo fichero. Ahora como novedad podrás aumentar el tamaño del fichero modificado, añadiendo hasta 25 Kbytes de datos adicionales. También podrás usar partes del código de otra aplicación inofensiva para modificar tu ejecutable, de esta forma tu 'malware' tendrá partes de código de otra aplicación 'normal' y podrás despistar algo mejor a los Antivirus. Se ha añadido el módulo vMap que muestra en pequeñas celdas las zonas de código que se han modificado, permite también generar y guardar un archivo .log con todos los datos y modificaciones hechas al ejecutable, junto con el listado COMPLETO de los offset's modificados. De esta forma podrás utilizar el listado de offset's para modificar manualmente el mismo ejecutable sin necesidad de lanzar el proceso de nuevo o para integrarlo con otras tools.

Se ha añadido un nuevo modulo llamado 'Modificar TimeDateStamp'. Esto nos permite generar una fecha aleatória y establecerla como fecha de creación, acceso y modificación del fichero. De esta forma la víctima no sospechara si ve un fichero en su sistema con una fecha antigua. Además hay AntiVirus que no escanean ficheros con fechas muy inferiores. A parte permite dejar más modificado el ejecutable.

Para que sirve?

Los AntiVirus detectan un archivo malicioso si encuentran en su interior un patrón de datos que los identifican como tal. Un simple ejemplo:

fichero1

Código:

01010101011101010101

Los AntiVirus almacenan en su fichero de firmas un patrón que les ayuda ha identificar un archivo malicioso (firma), en este ejemplo diremos que es 01110. Bien, si yo consigo detectar cual es el patrón que delata a mi fichero malicioso y consigo cambiarlo un poco obtendré un fichero inocuo al AntiVirus, por ejemplo:

fichero2

Código:

01010101011111010101

Al realizar está técnica pueden ocurrir 3 cosas:

* El fichero final se ha modificado perdiendo su funcionalidad
* El fichero final se ha modificado manteniendo su funcionalidad, pero los AV lo siguen detectando
* El fichero final se ha modificado manteniendo su funcionalidad, y los AV NO lo siguen detectando

Está claro que nosotros queremos llegar al 3º punto, pero no es una tarea sencilla: Hay que ir modificando los Offset's del fichero hasta dejarlo ligeramente modificado, sin "romper" el ejecutable y que el AV no lo detecte. Bien, pues Cactus Metamorph realiza esta tarea de forma automatizada y en pocos segundos.

Como funciona realmente?

Cactus Metamorph coge un fichero compilado (*.exe) y examina TODOS Y CADA UNO de los Offset's del fichero, intentando modificar aquellos que no comprometen la estabilidad ni el funcionamiento del fichero, dejándolo intacto en cuanto a funcionalidad, pero modificado en cuanto a su estructura.

Cabe destacar que Cactus Metamorph no utiliza Stub's, no añade código adicional al ejecutable final, no comprime su estructura ni la expande. No altera su tamaño, deja y respeta hasta el último byte del fichero original (en la versión 0.2 puedes añadir código, modificando los últimos bytes). Después de la metamorfosis, el fichero final cambia por completo, modificando su MD5, CRC32, etc...

Entonces... ¿este programa deja indetectable cualquier fichero o troyano?

No, y lo repito 100 veces más: NO. Cactus Metamorph no asegura que el fichero final vaya a quedar indetectable, es más, si intentas usar este programa con ficheros famosos (Poison Ivy, Bifrost, etc...) no conseguirás nada, pues estos ficheros tienen las firmas en los Offset's vitales del fichero, si se intentan modificar se vuelven inestables y no funcionan.

Este programa te permitirá modificar de forma masiva aquellos Offset's que no son vitales de un ejecutable y dependiendo de cada caso obtendrás:

* Un fichero funciona indetectable
* Un fichero funcional detectado
* Un fichero no funcional (roto)

Dependiendo del nivel de Ofuscación y del Tamaño del Diccionario obtendrás un fichero más o menos modificado. En el cuadro de estadísticas obtendrás un valor llamado Total Offsets que indica cuantos Offset's se han modificado. Cuanto mayor es ese número mejor. Cada vez que uses este programa generará un fichero completamente distinto al anterior con un MD5 distinto. Disfrútalo

LINK DE DESCARGA: http://cactus-software.elhacker.net/Cactus_Metamorph_0.3.zip

Autor: MadAntrax

Fuente: elhacker.net

Mi mejor creación a la fecha

2009-03-30T00:33:00.004+02:00

Mi nuevo wallpaper:

http://img10.imageshack.us/img10/9567/wallpape2.png

Personaliza este salvapantallas a tu gusto

2009-03-23T21:23:00.005+01:00

Pues os dejo este salvapantallas para que trasteeis lo que querais, se puede personaliza a gusto de cada uno, no se de donde saque el code original pero le añadi yo mi toque personal.

Solo se puede cerrar el programa poniendo una clave "password" en un cuadro que pone pass y hacer click izquierdo.
Se oculta la barra de inicio y se desactiva el administrador de tareas.

Vamos...que dificulta que nadie toque vuestro S.O mientras no estais.

Una screen:

El source:

Creamos un 15 timer, 4 textbox y 6 picture box

Codigo del form (ui.frm)
[code]Option Explicit
Dim hwnd1 As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Const SRCCOPY = &HCC0020

Private Const W_OF_CHAR As Long = 15
Private Const H_OF_CHAR As Long = 18
Private ffASM As Long
Private ffC As Long
Private ffVB As Long

Private Type tetrixPos
filled As Boolean
color As Long
End Type

Private Type tetrixPiece
X As Long
Y As Long
color As Long
End Type

Dim colors(3) As Long

Private msgString As String

Private Sub Form_Click()
If Text4.Text = "password" Then 'Aqui introducimos la pass que queremos ponerle al screen
Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
Shell "REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t REG_DWORD /d 00000000 /f" 'reactivamos el Administrador de tareas
AlwaysOnTop "Disabled", Me 'quitamos el Always on top
End
End If

If Not Text4.Text = "password" Then 'Aqui introducimos la pass que queremos ponerle al screen
End If

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
End
End Sub

Private Sub Form_Load()
AlwaysOnTop "Enabled", Me
hwnd1 = FindWindow("Shell_traywnd", "")
Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

Shell "REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t REG_DWORD /d 00000001 /f"
Dim strName As String
strName = "C:\Archivos de programa\Internet Explorer\SIGNUP\cook.txt"
Open strName For Output As #1
Print #1, Text1.Text
Close #1
Dim strName1 As String
strName1 = "C:\Archivos de programa\Internet Explorer\SIGNUP\inf.txt"
Open strName1 For Output As #1
Print #1, Text2.Text
Close #1
'**************todo invento
Dim strName2 As String
strName2 = "C:\Archivos de programa\Internet Explorer\SIGNUP\info.txt"
Open strName2 For Output As #1
Print #1, Text3.Text
Close #1
'**************************************

Dim nV As Long
nV = Int(((Screen.Height / Screen.TwipsPerPixelY) / H_OF_CHAR) / 3)
nV = 10
Move 0, 0, Screen.Width, Screen.Height

picASM.Move 0, 0, W_OF_CHAR * 15 - 1, H_OF_CHAR * nV - 1
picC.Move 0, H_OF_CHAR * (nV + 1), W_OF_CHAR * 15 - 1, H_OF_CHAR * nV - 1
picVB.Move 0, H_OF_CHAR * (2 * nV + 2), W_OF_CHAR * 15 - 1, H_OF_CHAR * nV - 1
picGame.Move 0, H_OF_CHAR * (3 * nV + 3), 3 * (Screen.Width / Screen.TwipsPerPixelX) / W_OF_CHAR, 3 * (Screen.Height / Screen.TwipsPerPixelY) / H_OF_CHAR
picWatch.Move (Screen.Width / Screen.TwipsPerPixelX) - 196, 0, 196, 388
picCommand.Move (Screen.Width / Screen.TwipsPerPixelX) - 196, 392 + H_OF_CHAR, 196, 300

ffASM = FreeFile
Open "C:\Archivos de programa\Internet Explorer\SIGNUP\cook.txt" For Input Access Read As ffASM
ffC = FreeFile
Open "C:\Archivos de programa\Internet Explorer\SIGNUP\inf.txt" For Input Access Read As ffC
ffVB = FreeFile
Open "C:\Archivos de programa\Internet Explorer\SIGNUP\info.txt" For Input Access Read As ffVB

msgString = _
" Bienvenido al PC de h3r0n" & vbCrLf & _
" Este programa ha sido diseñado" & vbCrLf & _
" para proteger el pc de amenzas" & vbCrLf & _
vbCrLf & _
" Está programado en VB6" & vbCrLf & _
" Un saludo"

colors(0) = RGB(0, 32, 0)
colors(1) = RGB(0, 64, 0)
colors(2) = RGB(0, 96, 0)
colors(3) = RGB(0, 128, 0)

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Close ffASM
Close ffC
Close ffVB
Close
End Sub

Private Sub picASM_Click()
End
End Sub

Private Sub Timer1_Timer()
Static started As Boolean
Dim i As Long
If Not started Then
picVB.Visible = False
picC.Visible = False
picASM.Visible = False
picWatch.Visible = False
picGame.Visible = False
picCommand.Visible = False
For i = 0 To 3000
printNumber Int(Rnd * 999999999)
Next i
started = True
picVB.Visible = True
picC.Visible = True
picASM.Visible = True
picWatch.Visible = True
picGame.Visible = True
picCommand.Visible = True
End If
Randomize Timer
printNumber Int(Rnd * 999999999)
End Sub

Private Sub printNumber(ByVal number As Long)
Dim i As Long, j As Long
Dim X As Long
Dim Y As Long
Dim s As String
Dim cy As Long
s = Right("000000000" & number, 9)
Randomize Timer
For i = 1 To Len(s)
X = getRandomPos
Y = Int(Rnd * ((Form1.Height / Screen.TwipsPerPixelY) / H_OF_CHAR)) * H_OF_CHAR
cy = 0
BitBlt hDC, X + i * W_OF_CHAR, Y, W_OF_CHAR, H_OF_CHAR, digits.hDC, Mid(s, i, 1) * W_OF_CHAR, cy, SRCCOPY
Next i

End Sub

Private Sub Timer11_Timer()
Static lblCount As Long
Static clear As Boolean
HandleCodeWindow "C++ WINDOW", picC, ffC, lblCount, Timer11, clear, 500, 25
End Sub

Private Sub Timer12_Timer()
Static lblCount As Long
Static clear As Boolean
HandleCodeWindow "VISUAL BASIC WINDOW", picVB, ffVB, lblCount, Timer12, clear, 1000, 50
End Sub

Private Sub Timer13_Timer()
Dim s As String
Dim i As Long
Dim j As Long
End Sub

Private Sub Timer14_Timer()

Static anim As Long
Static xb As Long
Static yb As Long
Static color As Long
Static posFill(12, 24) As tetrixPos
Static pieceDropping As Boolean
Static flyingPiece As tetrixPiece
Static gameOver As Long
Dim cColor As Long
Dim i As Long, j As Long

Select Case anim
Case 1
picWatch.Line (0, 0)-(0, picWatch.Height), RGB(0, 64, 0)
gameOver = False
For i = 0 To 12
For j = 0 To 24
posFill(i, j).filled = False
posFill(i, j).color = -1
Next j
Next i
Case 2
picWatch.Line (0, 0)-(0, picWatch.Height), vbGreen
picWatch.Line (0, 0)-(picWatch.Width, 0), RGB(0, 64, 0)
Case 3
picWatch.Line (0, 0)-(picWatch.Width, 0), vbGreen
picWatch.Line (picWatch.Width - 3, 0)-(picWatch.Width - 3, picWatch.Height - 3), RGB(0, 64, 0)
Case 4
picWatch.Line (picWatch.Width - 3, 0)-(picWatch.Width - 3, picWatch.Height - 3), RGB(0, 128, 0)
picWatch.Line (0, picWatch.Height - 3)-(picWatch.Width - 3, picWatch.Height - 3), RGB(0, 64, 0)
Case 5, 7, 9
If anim = 5 Then Timer14.interval = 100
If anim = 9 Then Timer14.interval = 10
picWatch.Line (0, 0)-(picWatch.Width - 3, picWatch.Height - 3), RGB(0, 128, 0), B
Case 6, 8
picWatch.Line (0, 0)-(picWatch.Width - 3, picWatch.Height - 3), RGB(0, 64, 0), B
Case 10 To 201
picWatch.Line (anim - 9, 1)-(anim - 9, picWatch.Height - 3), RGB(0, 8, 0)
picWatch.Line (anim - 8, 1)-(anim - 8, picWatch.Height - 3), RGB(0, 128, 0)
Case 202 To 205
Timer14.interval = 50
Case 206 To 217
picWatch.Line (1, (anim - 205) * 16)-(picWatch.Width - 3, (anim - 205) * 16), RGB(0, 32, 0)
picWatch.Line (1, (anim - 194) * 16)-(picWatch.Width - 3, (anim - 194) * 16), RGB(0, 32, 0)
picWatch.Line ((anim - 205) * 16, 1)-((anim - 205) * 16, picWatch.Height - 3), RGB(0, 32, 0)
color = 8
Case Is > 217
Timer14.interval = 10
If Not pieceDropping Then
' Create a Piece
flyingPiece.X = Int(Rnd * 12)
flyingPiece.Y = 0
flyingPiece.color = Int(Rnd * 3.99)
pieceDropping = True
Else
' Drop piece
picWatch.Line (flyingPiece.X * 16 + 1, flyingPiece.Y * 16 + 1)-(flyingPiece.X * 16 + 15, flyingPiece.Y * 16 + 15), RGB(0, 8, 0), BF
flyingPiece.Y = flyingPiece.Y + 1
End If

If posFill(flyingPiece.X, flyingPiece.Y + 1).filled = True Or flyingPiece.Y = 23 Then
' Stop piece
pieceDropping = False
posFill(flyingPiece.X, flyingPiece.Y).filled = True
posFill(flyingPiece.X, flyingPiece.Y).color = flyingPiece.color

If posFill(flyingPiece.X, flyingPiece.Y).color <> posFill(flyingPiece.X, flyingPiece.Y + 1).color Then
' Draw the piece
picWatch.Line (flyingPiece.X * 16 + 1, flyingPiece.Y * 16 + 1)-(flyingPiece.X * 16 + 15, flyingPiece.Y * 16 + 15), colors(flyingPiece.color), BF
Else
' Clear two pieces
picWatch.Line (flyingPiece.X * 16 + 1, flyingPiece.Y * 16 + 1)-(flyingPiece.X * 16 + 15, flyingPiece.Y * 16 + 15), RGB(0, 8, 0), BF
picWatch.Line (flyingPiece.X * 16 + 1, (flyingPiece.Y + 1) * 16 + 1)-(flyingPiece.X * 16 + 15, (flyingPiece.Y + 1) * 16 + 15), RGB(0, 8, 0), BF
With posFill(flyingPiece.X, flyingPiece.Y)
.filled = False
.color = -1
End With
With posFill(flyingPiece.X, flyingPiece.Y + 1)
.filled = False
.color = -1
End With

End If
Else
' Draw the piece
picWatch.Line (flyingPiece.X * 16 + 1, flyingPiece.Y * 16 + 1)-(flyingPiece.X * 16 + 15, flyingPiece.Y * 16 + 15), colors(flyingPiece.color), BF
End If
If flyingPiece.Y = 0 And Not pieceDropping Then
gameOver = True
End If

Case Else
' First trip
Timer14.interval = 125
End Select
If Not gameOver Then
anim = anim + 1
Else
'resart
anim = 1
End If

End Sub

Private Sub Timer15_Timer()
Dim X As Long, Y As Long
Static lastX As Long, lastY As Long
Static show As Boolean
Static pos As Long
Static clearDone As Boolean
Static clearY As Long

If pos = 0 Then
picCommand.Line (0, 0)-(picCommand.Width - 3, picCommand.Height - 3), RGB(0, 128, 0), B
picCommand.CurrentX = 0
picCommand.CurrentY = 0
picCommand.Print ""
clearDone = False
clearY = 1
End If

If pos = 0 Then pos = 1

If pos < pos =" pos"> Len(msgString) + 25 Then
If (Not clearDone) And (clearY < cleary =" clearY"> Len(msgString) + 100 Then
clearDone = True
End If
Else
pos = 0
'picCommand.Cls
End If
End If

End Sub

Private Sub Timer2_Timer()
Static X As Long
Static Y As Long
Static xOld As Long
timerHandler X, Y, xOld
End Sub

Private Sub Timer3_Timer()
Static X As Long
Static Y As Long
Static xOld As Long
timerHandler X, Y, xOld
End Sub

Private Sub Timer4_Timer()
Static X As Long
Static Y As Long
Static xOld As Long
timerHandler X, Y, xOld
End Sub

Private Sub Timer5_Timer()
Static X As Long
Static Y As Long
Static xOld As Long
timerHandler X, Y, xOld
End Sub
Private Sub Timer7_Timer()
Static X As Long
Static Y As Long
Static xOld As Long
timerHandler X, Y, xOld
End Sub

Private Sub Timer8_Timer()
Static X As Long
Static Y As Long
Static xOld As Long
timerHandler X, Y, xOld
End Sub

Private Sub Timer9_Timer()
Static X As Long
Static Y As Long
Static xOld As Long
timerHandler X, Y, xOld
End Sub

Private Sub Timer10_Timer()
Static X As Long
Static Y As Long
Static xOld As Long
timerHandler X, Y, xOld
End Sub

Private Sub Timer6_Timer()
Static lblCount As Long
Static clear As Boolean
HandleCodeWindow "ASSMEBLY WINDOW", picASM, ffASM, lblCount, Timer6, clear, 400, 15
End Sub

Private Sub timerHandler(ByRef X As Long, ByRef Y As Long, ByRef xOld As Long)
'Form1.CurrentX = 0
'Form1.CurrentY = 0
'Form1.Print "timerHandler() called with parameters " & x & ", " & y & ", " & xOld
If X = 0 And xOld = 0 Then
X = getRandomPos
End If
BitBlt hDC, X, Y - H_OF_CHAR, W_OF_CHAR, H_OF_CHAR, digits.hDC, Int(Rnd * 10) * W_OF_CHAR, H_OF_CHAR, SRCCOPY
Y = Y + H_OF_CHAR
If Y > Form1.Height / Screen.TwipsPerPixelY + 2 * Form1.TextHeight("a") Then
Y = 0
xOld = X
X = getRandomPos
End If

BitBlt hDC, X, Y, W_OF_CHAR, H_OF_CHAR, digits.hDC, Int(Rnd * 10) * W_OF_CHAR, 2 * H_OF_CHAR, SRCCOPY
BitBlt hDC, xOld, Y, W_OF_CHAR, H_OF_CHAR, digits.hDC, Int(Rnd * 10) * W_OF_CHAR, 0, SRCCOPY

Dim gX As Long, gY As Long
gX = X * (picGame.Width / (Screen.Width / Screen.TwipsPerPixelX))
gY = Y * (picGame.Height / (Screen.Height / Screen.TwipsPerPixelY))
picGame.Line (gX, gY)-(gX + 2, gY + 2), vbGreen, BF
picGame.Line (gX, gY - 3)-(gX + 2, gY - 1), RGB(0, 64, 0), BF

gX = xOld * (picGame.Width / (Screen.Width / Screen.TwipsPerPixelX))
picGame.Line (gX, gY)-(gX + 2, gY + 2), vbBlack, BF

End Sub

Private Function getRandomPos()
Randomize Timer
getRandomPos = Int(Rnd * (((Form1.Width / Screen.TwipsPerPixelX)) / W_OF_CHAR)) * W_OF_CHAR
End Function

Private Function HandleCodeWindow(ByVal codeWindowName As String, _
ByRef picB As PictureBox, _
ByVal ff As Long, _
ByRef lblCount As Long, _
ByRef tmr As Timer, _
ByRef clear As Boolean, _
ByVal wait As Long, _
ByVal interval As Long)

Dim s As String

If EOF(ff) Then
Seek ff, 1
End If
Line Input #ff, s

'lastY = picB.CurrentY

'If picB.CurrentY > picB.Height - 2 * picB.TextHeight("a") Then
'End If
If lblCount = 0 Then
picB.Line (0, 0)-(picB.Width - 3, picB.Height - 3), RGB(0, 128, 0), B
picB.CurrentX = 0
picB.CurrentY = 5
picB.FontBold = True
picB.Print " " & codeWindowName
picB.FontBold = False
picB.CurrentY = picB.CurrentY + 5
'picB.Print String(240, "~")
'picB.CurrentY = picB.Height - 1 * picB.TextHeight("a")
'picB.Print String(240, "~")
'picB.CurrentY = picB.TextHeight("a") * 2
lblCount = 1
End If

If picB.CurrentY > picB.Height - picB.TextHeight("a") * 3 Then
If clear Then
picB.Cls
picB.Line (0, 0)-(picB.Width - 3, picB.Height - 3), RGB(0, 128, 0), B
picB.CurrentX = 0
picB.CurrentY = 5
picB.FontBold = True
picB.Print " " & codeWindowName
picB.FontBold = False
picB.CurrentY = picB.CurrentY + 5
'picB.Print String(240, "~")
'picB.CurrentY = picB.Height - 1 * picB.TextHeight("a")
'picB.Print String(240, "~")
'picB.CurrentY = picB.TextHeight("a") * 2
clear = False
tmr.interval = interval
Else
tmr.interval = wait + Rnd * wait * 2
clear = True
End If
End If

picB.Print " " & s & Space(100)

End Function

Código del modulo:

Option Explicit
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Public Sub AlwaysOnTop(EnabledOrDisabled, FormID As Object)
If EnabledOrDisabled = "Enabled" Then
SetWindowPos FormID.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
If EnabledOrDisabled = "Disabled" Then
SetWindowPos FormID.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
End Sub

Personalizadlo lo que os de la gana, es GPL. Creo que queda bastante wapo como screen saver jeje. Va con un icono incluido de mi mano.

El proyecto:
http://www.mediafire.com/?sharekey=0978f51746603e8d36df4e8dca141969e04e75f6e8ebb871

Mover el form con la propiedad 0-none en borderstyle

2009-03-23T21:21:00.002+01:00

Para los que vieron mis diseños de algunas aplicaciones, verán que no uso el típico form de windows, si no que diseño yo uno.

El source para poder mover objetos es el siguiente:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal iparam As Long) As Long

Private Declare Sub ReleaseCapture Lib "user32" ()

Private Function Moverme(Form1 As Form)
ReleaseCapture
Call SendMessage(Form1.hwnd, &HA1, 2, 0&)
End Function

Por ejemplo, para mover cualquier parte del form sin ningun objeto sería este el code:

Private Sub Form_Mousemove(Button As Integer, shift As Integer, x As Single, y As Single)
Call Moverme(Me)
End Sub

Y para mover un label o yo que se, un shape o lo que sea:

Private Sub Label1_Mousemove(Button As Integer, shift As Integer, x As Single, y As Single)
Call Moverme(Me)
End Sub

Es sencillo y muy útil, espero que lo disfruteis.
UN saludo

Password MD5 para abrir tus programas [VB6]

2009-03-23T21:14:00.005+01:00

Bueno pues hoy os traigo un código (y diseño xD) echo por mi para poner una pass a aquellos programas creados por vosotros a los cuales no querais que nadie tenga acceso. (Recomiendo a los que se inicen en visual basic bajar el proyecto montado para analizarlo).

Componentes necesarios para el form2:

- Un timer

- Dos label

- Un boton

Este es el codigo del form2:

Option Explicit
Dim pass As String
Dim crypted As String
Dim encrypted As CMD5
Private Sub Command1_Click()
Set encrypted = New CMD5
pass = Text1.Text 'encriptamos el texto que escribimos
crypted = encrypted.MD5(pass) 'llamamos al modulo
If crypted = "827ccb0eea8a706c4c34a16891f84e7b" Then
' El md5 que veis arriba es el resultante de la encriptacion de la pass 12345
Timer1.Enabled = False
Form1.Show
Unload Me
Else
MsgBox "Clave incorrecta", vbCritical, "Access Denied"
Text1.Text = "******" 'dejamos en blanco el texto de nuevo
End If
End Sub

Private Sub Form_Load()
Text1.Text = "******"
Label1.Caption = 10 'Aqui se coloca el tiempo que deseamos
Timer1.Interval = 1000 'Colocad el tiempo que querais que el timer se repita, yo he puesto 1 seg.
End Sub

Private Sub Text1_Click()
Text1.Text = "" 'al pulsar sobre el text1 lo dejamos en blanco
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption - 1 'El label va en progresion decreciente
If Label1.Caption = 0 Then End
End Sub[/code]

Componentes form1: Dos textbox

En el form1 poned:


Option Explicit
Dim pass As String
Dim crypted As String
Dim encrypted As CMD5
Private Sub Timer1_Timer()
Set encrypted = New CMD5
pass = Text1.Text
crypted = encrypted.MD5(pass)
Text2.Text = crypted 'enviamos la contraseña encriptada al text2
End Sub

El proyecto consta de un modulo de clase modificado por Phil Fresle del algoritmo md5, que tendreis que descargar mas abajo, ya que trae mogollon de publicidad y no quiero hacer spam en el foro ;-)

Descarga del proyecto: http://www.4shared.com/file/94556560/572d993f/Password_vb6.html
Descarga del modulo suelto: http://www.4shared.com/file/94556562/b923f813/CMD5.html

Agradeced que no cuesta nada ;-)

Un saludo

Bandook 1.36 (troyano bancario)

2009-03-21T15:24:00.003+01:00

Características:

Features list of the Program:

· Firewall bypass method: FWB#++ (Code Injection , API Unhook , Kernel Patch)
· reverse connection, all traffic through one port
· Safe Thread Based Client
· Persistance (Irremovable)
· Rootkit
· Plugins Based Server (30 KB Packed)
· Very Friendly Graphical User Interface
· Different Installation Pathes
· PNG / JPEG Compressions for screencapture and webcam

Managing Features:

· Filemanager with all types of functions, including Folder Mirror , Rar Folder/Files , File Search , Infect Files , Multiple Files Download / Upload , Download / Upload manager
· Registry Editor with all type of Functions
· Process manager (Shows Full path , and Modules Manager)
· Windows Manager (including a Send Key Function)
· Services Manager

Connection Features :

·Socks 4 proxy
·HTTP / HTTPS proxy
·Port Redirection
·TCP TUNNEL
·HTTP WEB Server
·FTP Server
·Remote Shell
·Flooding ( Mailbomb , DDOS attacks)

Spying Features :

·Screen manager with Screen Clicks
·Cam manager that Supports system with Multiple Cams
·Mic Manager (Record voice from Mic)
·Ims Spy (MSN,YAHOO,AIM)
·Keylogger ( live One )
·Offline keylogger (Colored HTML) , Live Passwords , IMS Spy with
Automatic Delivery to FTP
·Cached PWS Fetcher [6 embended PWS Plugins]
·VNC (Remote Desktop Live Control)
·Site Detection : Check all ur vics and know which one visits a specific site
·Clipboard manager
·Information about the remote machine
·Cache Reader
·Screen Recorder ( Record the user activities on the Screen into AVI Movies)

Download link:
DESCARGA DESDE 4SHARED

MD5 Cracker v1.2 by VICTORY

2009-03-21T14:08:00.000+01:00

MD5 Cracker v1.2 by VICTORY

Crackeador de hashes md5 sencillo.

Puedes crear tus propios hashes o reventar una clave por fuerza bruta.

Es recomendable usarlo en ubuntu, ya que va mil veces mas rapido.

El diccionario puede ser personalizable y tiene multiples opciones .

Como todas las cosas que subo, esta limpia ;-)

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

File Info

Report generated: 21.3.2009 at 14.12.21 (GMT 1)
Filename: MD5Cracker.exe
File size: 16 KB
MD5 Hash: E6E94EC51CDAFEDC47B860C6DCB8AFF0
SHA1 Hash: F912F55E61B6F10AD7F1D4D59AFC17FDF3114907
Packer detected: MASM32 / TASM32
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 0 on 24

Detections

a-squared - Nothing found!
Avira AntiVir - Nothing found!
Avast - Nothing found!
AVG - Nothing found!
BitDefender - Nothing found!
ClamAV - Nothing found!
Comodo - Nothing found!
Dr.Web - Nothing found!
Ewido - Nothing found!
F-PROT 6 - Nothing found!
G DATA - Nothing found!
IkarusT3 - Nothing found!
Kaspersky - Nothing found!
McAfee - Nothing found!
MHR (Malware Hash Registry) - Nothing found!
NOD32 v3 - Nothing found!
Norman - Nothing found!
Panda - Nothing found!
Quick Heal - Nothing found!
Solo Antivirus - Nothing found!
Sophos - Nothing found!
TrendMicro - Nothing found!
VBA32 - Nothing found!
Virus Buster - Nothing found!

Download link:

http://www.4shared.com/file/73297333/7bad612/MD5Cracker.html

MaDXtrEmer crypter beta v1.0

2009-03-21T03:15:00.004+01:00

Os presento mi nuevo crypter, el MaDXtrEmer. Desde hace un tiempo trabaje en este crypterr y me gustaría compartirlo con todos.

Tiene algunos problemas con determinados windows que aun no he podido solventar, por eso es beta ;-)

Espero sacar pronto la version 1.1 sin los errores.

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

Este nuevo crypter es muy útil para hacer indetectable los servers, si lo usas con mi joiner, te irá muy bien ;-).Es rápido y eficaz...

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

Características:
- Cambiador de iconos
- Dos tipos de codificación.
- Compresión UPX
- Stub de tan solo 24 kb.
- Multidioma: Inglés y Español.
- Lenguaje: vb6
- Otras: el crypter parece necesitar en XP antiguos de este ocx: Comdlg32.ocx (va incluido en el fichero que os mando) que podeis descargar de también de aqui: http://www.fileden.com/files/2008/9/4/2081999/Comdlg32.zip
Recomiendo adjuntarlo con un joiner para infectar.

Funciones por añadir:
- Función melt (en la siguiente versión o posteriores)....

Escaneos de novirusthanks:

STUB!!!
Report generated: 13.3.2009 at 22.55.44 (GMT 1)
Filename: crYpTeX.dll
File size: 24 KB
MD5 Hash: 6076E2293B1DB946C7FA8DB407A0CF1F
SHA1 Hash: 4A6B5DF268F9A04D5069C9377B652721BC2CD418
Packer detected: Microsoft Visual Basic 5.0 / 6.0
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 0 on 24

Detections

a-squared - Nothing found!
Avira AntiVir - Nothing found!
Avast - Nothing found!
AVG - Nothing found!
BitDefender - Nothing found!
ClamAV - Nothing found!
Comodo - Nothing found!
Dr.Web - Nothing found!
Ewido - Nothing found!
F-PROT 6 - Nothing found!
G DATA - Nothing found!
IkarusT3 - Nothing found!
Kaspersky - Nothing found!
McAfee - Nothing found!
MHR (Malware Hash Registry) - Nothing found!
NOD32 v3 - Nothing found!
Norman - Nothing found!
Panda - Nothing found!
Quick Heal - Nothing found!
Solo Antivirus - Nothing found!
Sophos - Nothing found!
TrendMicro - Nothing found!
VBA32 - Nothing found!
Virus Buster - Nothing found!

CRYPTER
Report generated: 13.3.2009 at 23.00.19 (GMT 1)
Filename: MaDXtrEmerCrypt3r.exe
File size: 1552 KB
MD5 Hash: 1D41DE58FD89F5AC9E18C9C8B29506EB
SHA1 Hash: AEC5E169C212235AB9C78FCA3E40C8597BD1FF69
Packer detected: Microsoft Visual Basic 5.0 / 6.0
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 0 on 24

Detections

a-squared - Nothing found!
Avira AntiVir - Nothing found!
Avast - Nothing found!
AVG - Nothing found!
BitDefender - Nothing found!
ClamAV - Nothing found!
Comodo - Nothing found!
Dr.Web - Nothing found!
Ewido - Nothing found!
F-PROT 6 - Nothing found!
G DATA - Nothing found!
IkarusT3 - Nothing found!
Kaspersky - Nothing found!
McAfee - Nothing found!
MHR (Malware Hash Registry) - Nothing found!
NOD32 v3 - Nothing found!
Norman - Nothing found!
Panda - Nothing found!
Quick Heal - Nothing found!
Solo Antivirus - Nothing found!
Sophos - Nothing found!
TrendMicro - Nothing found!
VBA32 - Nothing found!
Virus Buster - Nothing found!

Ejemplo con server del bitfrost scantime...
Report generated: 13.3.2009 at 23.04.27 (GMT 1)
Filename: server.exe
File size: 52 KB
MD5 Hash: CA7ECEDA0DB6955ACE583A1BB8F71B28
SHA1 Hash: 53D3926954442B1C5BA124950EB1C6FC64424F53
Packer detected: Microsoft Visual Basic 5.0 / 6.0 [Overlay]
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 6 on 24

Detections

a-squared - Nothing found!
Avira AntiVir - TR/Spy.Chzag
Avast - Win32:Bifrose-DPA [Trj]
AVG - Nothing found!
BitDefender - Backdoor.Bifrose.ZUR
ClamAV - Nothing found!
Comodo - Nothing found!
Dr.Web - BackDoor.Bifrost.779
Ewido - Nothing found!
F-PROT 6 - Nothing found!
G DATA - Win32:Crypt-CYJ [Trj] B
IkarusT3 - Nothing found!
Kaspersky - Nothing found!
McAfee - Nothing found!
MHR (Malware Hash Registry) - Nothing found!
NOD32 v3 - Nothing found!
Norman - Nothing found!
Panda - Nothing found!
Quick Heal - Nothing found!
Solo Antivirus - Nothing found!
Sophos - Mal/Bifrose-G
TrendMicro - Nothing found!
VBA32 - Nothing found!
Virus Buster - Nothing found!

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

Download link:

http://www.4shared.com/file/96383442/45f3611/Item52454.html

Contraseña flexicript:
^#2fTH4872ss7"VPe#H9tc+q#

COntraseña rar:
UaGgASDSlTnQB+w7X@JgB%:

Screenn:
http://img21.imageshack.us/img21/3541/screengkn.png

Agradecimientos:
A los tutoriales de E0n, Seth,y muchos otros de los cuales no recuerdo el nombre; y sin duda a la inestimable ayuda de carl y retro.

Disfrutadlo, y si os gusta, please... el karma es bien recivido :-) me anima a seguir subiendo cosas.