Title: [AJUDA]"Sistema de Buscas" no Perl
Post by: Ch1p5 on 30 de October , 2006, 02:55:29 PM
Post by: Ch1p5 on 30 de October , 2006, 02:55:29 PM
olá, estou fazendo um programa, um tipo de busca, pra qndo a pessoa escrever o q desejar, tipo: xss
aparecer algo sobre o xss(q eu colocarei)...mas naum sei como fazer pra pegar em alguma variavel, por enquanto ta um tipo d sistema d senha, eu coloco as senhas(topicos) no until, e qndo for digitar no programa, se colocar o q naum tiver no until, da erro, pedindo pra digitar outro, e se ta no until, ele fecha
agora, quero saber como faz pra aparecer algo q colocarei na variavel antes de fechar...
peço a ajuda d vcs, e enquanto isso, continuarei procurando...
Sem +
Grato
(desculpe se repeti a minha duvida, mas eu to na pressa)
Ch1p5
aparecer algo sobre o xss(q eu colocarei)...mas naum sei como fazer pra pegar em alguma variavel, por enquanto ta um tipo d sistema d senha, eu coloco as senhas(topicos) no until, e qndo for digitar no programa, se colocar o q naum tiver no until, da erro, pedindo pra digitar outro, e se ta no until, ele fecha
agora, quero saber como faz pra aparecer algo q colocarei na variavel antes de fechar...
peço a ajuda d vcs, e enquanto isso, continuarei procurando...
Sem +
Grato
(desculpe se repeti a minha duvida, mas eu to na pressa)
Ch1p5
Title: Re: [AJUDA]"Sistema de Buscas" no Perl
Post by: _Dr4k0_ on 30 de October , 2006, 03:13:26 PM
Post by: _Dr4k0_ on 30 de October , 2006, 03:13:26 PM
bota o source acho que fica mais fácil
Title: Re: [AJUDA]"Sistema de Buscas" no Perl
Post by: Ch1p5 on 30 de October , 2006, 03:56:44 PM
Post by: Ch1p5 on 30 de October , 2006, 03:56:44 PM
ta aew _Dr4k0_
aguardando + resposta
Code Select
#!/usr/local/bin/perl
#Programa:Glossário Underground
#Versão: 1.0
#Coded By: Ch1p5
$ver="v. 1.0";
print "Qual assunto do seu interesse? ";
$assunto = <STDIN>;
chop $assunto;
until ($assunto eq "xss" || $assunto eq "seing" || $assunto eq "defaces" || $assunto eq "vulnerabilidades" || $assunto eq "exploits" || $assunto eq "programação" )
{
print "Assunto naum disponivel.\nQual assunto do seu interesse? ";
$assunto = <STDIN>;
chop $assunto;
}
print "assunto localizado\n";
system pause
aguardando + resposta
Title: Re: [AJUDA]"Sistema de Buscas" no Perl
Post by: _Dr4k0_ on 30 de October , 2006, 04:16:29 PM
Post by: _Dr4k0_ on 30 de October , 2006, 04:16:29 PM
Ueh..Não sei se entendi direito..Mais não vi lógica alguma em seu code..Por exemplo você quer usar socket para ele se conectar ao google ou algum site??Ou quer pegar ele do seu code mesmo?Se for dentro do code faça uma função para ele..
por exemplo
sub_xss{
print "explica o xss ai..";
}
sub_deface{print "deface é o ato..";}
ai invez de usar until eu prefiro usar if
ai faz if($assunto eq "xss") {&sub_xss}
eh mais ou menos assim.. pq || quer dizer ou.. ai do jeito que vc ta fazeno se o cara digita xss,defaceou seing vai dar sempre a mesma coisa...
espero ter ajudado acho que eh mais ou menos isso
por exemplo
sub_xss{
print "explica o xss ai..";
}
sub_deface{print "deface é o ato..";}
ai invez de usar until eu prefiro usar if
ai faz if($assunto eq "xss") {&sub_xss}
eh mais ou menos assim.. pq || quer dizer ou.. ai do jeito que vc ta fazeno se o cara digita xss,defaceou seing vai dar sempre a mesma coisa...
espero ter ajudado acho que eh mais ou menos isso
Title: Re: [AJUDA]"Sistema de Buscas" no Perl
Post by: Ch1p5 on 30 de October , 2006, 11:12:36 PM
Post by: Ch1p5 on 30 de October , 2006, 11:12:36 PM
vlw, dpois eu vejo isso, axo q vai resolver meu problema...
ow, enquanto a falta d logica...kkk
eh q esse eh o primeiro code(to fazendo sozinho) e naum está completo, claro...
(detalhe: qnto ao if, eu coloco um em baixo do outro?tipo:
if($assunto eq "xss") {&sub_xss}
if($assunto eq "deface") {&sub_deface}
etc...
ou eu tenho q por um na frente do outro, separando por virgura:
if($assunto eq "xss") {&sub_xss},($assunto eq "deface") {&sub_deface}
fuii
ow, enquanto a falta d logica...kkk
eh q esse eh o primeiro code(to fazendo sozinho) e naum está completo, claro...
(detalhe: qnto ao if, eu coloco um em baixo do outro?tipo:
if($assunto eq "xss") {&sub_xss}
if($assunto eq "deface") {&sub_deface}
etc...
ou eu tenho q por um na frente do outro, separando por virgura:
if($assunto eq "xss") {&sub_xss},($assunto eq "deface") {&sub_deface}
fuii
Title: Re: [AJUDA]"Sistema de Buscas" no Perl
Post by: _Dr4k0_ on 31 de October , 2006, 01:06:39 PM
Post by: _Dr4k0_ on 31 de October , 2006, 01:06:39 PM
da maneira que preferir.. um embaixo do outro fica mais organizado..
e só lembrano que da na mesma.. em compiladores/interpretadores ele não consideram uma quebra de linha[ENTER] e sim um ;(ponto e virgula) como o final da linha/comando..
se fizer o code intero em uma linha separano apenas com ; da na mesma soh fica desorganizado.. e tem que fecha o sub comando com ; eu esqueci
e só lembrano que da na mesma.. em compiladores/interpretadores ele não consideram uma quebra de linha[ENTER] e sim um ;(ponto e virgula) como o final da linha/comando..
se fizer o code intero em uma linha separano apenas com ; da na mesma soh fica desorganizado.. e tem que fecha o sub comando com ; eu esqueci