[Perl] Ejemplo de Cifrado Murcielago

en: Noviembre 21, 2014, 10:11:36 am

Un simple ejemplo en Perl sobre como realizar el cifrado Murcielago.

Código: Perl

# !usr/bin/perl
# Cifrado Murcielago
# Coded By Doddy Hackman in the year 2014
 
head();
menu();
copyright();
 
# Functions
 
sub head {
    print "\n-- == Cifrado Murcielago == --\n";
}
 
sub copyright {
    print "\n\n-- == (C) Doddy Hackman 2014 == --\n";
}
 
sub menu {
    print qq(
===============
= Menu        =
===============
1 - Cifrar    =
2 - Descifrar =
3 - Exit      =
===============
);
 
    print "\n<ul class="bbc_list"><li type="square"> Option : ";[/li][/list]
    chomp( my $op = <stdin> );
 
    if ( $op eq "3" ) {
        copyright();
        <stdin>;
        exit(1);
    }
 
    print "\n</li><li type="square"> Enter text : ";[/li][/list]
    chomp( my $text = <stdin> );
 
    print "\n</li><li type="square"> Result ...\n\n";[/li][/list]
 
    if ( $op eq "1" ) {
        print cifrado_murcielago($text);
        <stdin>;
        menu();
    }
    elsif ( $op eq "2" ) {
        print descifrado_murcielago($text);
        <stdin>;
        menu();
    }
    else {
        menu();
    }
 
}
 
sub cifrado_murcielago {
    my $texto = shift;
    $texto =~ tr/murcielagoMURCIELAGO/01234567890123456789/;
    return $texto;
}
 
sub descifrado_murcielago {
    my $texto = shift;
    $texto =~ tr/01234567890123456789/murcielagoMURCIELAGO/;
    return $texto;
}
 
# The End ?
 

en: Noviembre 24, 2014, 02:51:54 pm

De 70 líneas a 22 y hace exactamente lo mismo.

Código: Perl

#!/usr/bin/perl
 
print "\n-- == Cifrado Murcielago == --\n";
 
menu:
 
print qq(===============\n= Menu        =\n===============\n1 - Cifrar    =\n2 - Descifrar =\n3 - Exit      =\n===============\n);
 
print "\n<ul class="bbc_list"><li type="square"> Option : ";[/li][/list]
chomp( my $op = <stdin> );
 
exit if ( $op eq "3");
 
print "\n</li><li type="square"> Enter text : ";[/li][/list]
chomp($_ = <stdin>);
 
$_ =~ tr/murcielagoMURCIELAGO/01234567890123456789/ and print if ($op eq "1");
$_ =~ tr/01234567890123456789/murcielagoMURCIELAGO/ and print if ($op eq "2");
     
print "\n\n-- == (C) Doddy Hackman 2014 == --\n";
        
goto menu;

en: Noviembre 24, 2014, 04:08:47 pm

en ningun momento busque la reduccion de codigo en el script , igual gracias por comentar.

en: Noviembre 24, 2014, 04:18:06 pm

Pero... hacer hacer algo tan simple es un poco absurdo que lo hagas con funciones $:-\$

en: Noviembre 24, 2014, 04:23:37 pm

no le veo absurdo solo le agregue funciones de mas al script porque quize , es un simple ejemplo no estamos en una competencia de codigos xD.

en: Noviembre 24, 2014, 04:24:40 pm

A mi parecer mejor programar bien que por programar... el codigo de Doddy es obviamente mas organizado y legible para quienes inician en la prog, ademas el uso de goto? naaaaa. Juan a veces no es tanto lo simple que sea, sino lo que pueda aportar para otras cosas, y aunque el código en si, hasta en 1 sola linea en bash lo haces si lo necesitaras. Lo que importa es que quien lo tome (me imagino mas por practica o por ejemplo) al menos vaya aprendiendo de funciones y esas cosas....

Saludos

en: Noviembre 24, 2014, 05:04:27 pm

Citar

"Cualquier tonto puede escribir código que un ordenador entiende. Los buenos programadores escriben código que los humanos pueden entender." Martin Fowler

Citar

"Los programas deben ser escritos para que la gente los lea y sólo incidentalmente, para que las máquinas los ejecuten." Abelson / Sussman

Citar

"Medir el progreso de la programación por líneas de código es como medir el progreso en la construcción de aviones por el peso." Bill Gates

en: Noviembre 24, 2014, 05:12:25 pm

No creo que mi código sea ilegible, de hecho lo veo mas leigle que el otro, ya que lo puedes leer y entender sin dar vueltas por el código.

en: Noviembre 25, 2014, 11:05:42 am

pensa lo que quieras Juan nadie se opone xD , igual si tan legible es tu codigo la proxima vez identalo y evita estos chorizos largos :

Código: Perl

print qq(===============\n= Menu        =\n===============\n1 - Cifrar    =\n2 - Descifrar =\n3 - Exit      =\n===============\n);
$_ =~ tr/murcielagoMURCIELAGO/01234567890123456789/ and print if ($op eq "1");

Espero que sea el fin de esta discusion sin sentido xD.

Saludos.

Tutorial perl desde cero By: Black Poision & Painboy Iniciado por ProcessKill	Respuestas: 2 Vistas: 5313	Septiembre 02, 2011, 09:43:36 pm por blozzter
[Perl] Verificando si es root para correr un script Iniciado por c1st	Respuestas: 1 Vistas: 3469	Octubre 07, 2012, 06:01:39 pm por ANTRAX
[Perl] Half Life Servers List 0.1 Iniciado por BigBear	Respuestas: 0 Vistas: 2603	Noviembre 12, 2012, 07:31:50 pm por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL] Iniciado por SkillmaX	Respuestas: 0 Vistas: 2595	Julio 04, 2010, 10:14:31 am por SkillmaX
Funciones más utilizadas en la programación de un perl script Iniciado por Dragora	Respuestas: 0 Vistas: 4361	Enero 06, 2019, 01:01:06 am por Dragora

Underc0de - Hacking y seguridad informática

[Perl] Ejemplo de Cifrado Murcielago

BigBear