Foi meu primeiro code em C e agora esta sendo em Perl acabei de passar de C para Perl logo logo faço algumas modificações...
C:
#include <stdio.h>
#include <windows.h>
unsigned long pontos = 0;
int opcao;
void fase1();
void fase2();
int main ()
{
printf ("Coded by _Dr4k0_\n");
printf ("Escolha a opção desejada\n");
printf ("1)Jogar\n");
printf ("2)Sair\n");
scanf ("%d",&opcao);
if(opcao==2) exit (0);
if (opcao==1)printf ("C");Sleep(100);printf ("a");Sleep(100);printf ("r");Sleep(100);printf ("r");Sleep(100);printf ("e");Sleep(100);printf ("g");Sleep(100);printf ("a");Sleep(100);printf ("n");Sleep(100);printf ("d");Sleep(100);printf ("o");Sleep(100);printf (".");Sleep(100);printf (".");Sleep(100);printf (".");Sleep(100);printf (".");Sleep(100);printf (".\n");Sleep(100);
void fase1();
printf ("Quantos MB tem um GB?\n");
printf ("1)512\n");
printf ("2)654\n");
printf ("3)1000\n");
printf ("4)1024\n");
scanf ("%d",&opcao);
if (opcao==4){ printf ("Voce acertou!!\n");
pontos+=2;}
if (opcao !=4) {printf ("Voce errou!!\n");
pontos+=0;}
printf ("Atualmente qual a melhor maneira de se pegar senhas em um computador doméstico:\n");
printf ("1)Keylogger\n");
printf ("2)Trojan\n");
printf ("3)Exploit\n");
printf ("4)Sniffer\n");
scanf ("%d",&opcao);
if(opcao==1) {printf ("Voce acertou!!\n");
pontos+=2;}
if (opcao !=1){ printf ("Voce errou!!\n");
pontos+=0; }
printf ("O numero de pontos que vc fez foi %lu\n",pontos);
if (pontos <4){
printf ("Voce não passou,voce precisa de 4 pontos para avançar de fase\n");
exit (0);}
else{ printf ("Voce passou para a 2ªfase\n");printf ("C");Sleep(100);printf ("a");Sleep(100);printf ("r");Sleep(100);printf ("r");Sleep(100);printf ("e");Sleep(100);printf ("g");Sleep(100);printf ("a");Sleep(100);printf ("n");Sleep(100);printf ("d");Sleep(100);printf ("o");Sleep(100);printf (".");Sleep(100);printf (".");Sleep(100);printf (".");Sleep(100);printf (".");Sleep(100);printf (".\n");Sleep(100);
fase2();
}
}
void fase2 (){
printf ("Quantos bytes tem em 1 bit?\n");
printf ("1)0.125\n");
printf ("2)8\n");
printf ("3)1024\n");
printf ("4)0\n");
scanf ("%d",&opcao);
if (opcao == 1){ printf ("Voce acertou!!\n"); pontos +=4;}
if (opcao != 1) { printf ("Voce errou!!\n");}
printf ("Quais a sigla do conjunto das 3 cores padrões exibidas no monitor?\n");
printf ("1)FSB\n");
printf ("2)RGB\n");
printf ("3)Plug and Play\n");
printf ("4)SSH\n");
scanf ("%d",&opcao);
if (opcao == 2) {printf ("Voce acertou!!\n"); pontos += 4;}
if (opcao != 2) {printf ("Voce errou!!\n");}
printf ("Voce fez %lu pontos\n", pontos);
if (pontos == 12) {printf ("Voce zerou o jogo!!Parabéns!!\n");}
if (pontos != 12) {printf ("Treine mais e tente novamente,Voce não zerou o jogo!!\n");}
}
Perl:
#!usr/bin/perl
print "Coded by _Dr4k0_\n";
print "Escolha a opção desejada\n";
print "1)Jogar\n";
print "2)Sair\n";
$opcao=<STDIN>;
chomp $opcao;
if($opcao==2){exit;}
if($opcao==1){&fase1;}
sub fase1{
print "Quantos MB tem um GB?\n";
print "1)512\n";
print "2)654\n";
print "3)1000\n";
print "4)1024\n";
$opcao=<STDIN>;
chomp $opcao;
if ($opcao==4){ print "Voce acertou!!\n";
$pontos+=2;}
if ($opcao !=4) {print "Voce errou!!\n";}
print "Atualmente qual a melhor maneira de se pegar senhas em um computador doméstico:\n";
print "1)Keylogger\n";
print "2)Trojan\n";
print "3)Exploit\n";
print "4)Sniffer\n";
$opcao=<STDIN>;
chomp $opcao;
if($opcao==1) {print "Voce acertou!!\n";
$pontos+=2;}
if ($opcao !=1){ print "Voce errou!!\n";}}
print "O numero de pontos que vc fez foi ",$pontos, "\n\n";
if ($pontos <4){
printf ("Voce não passou,voce precisa de 4 pontos para avançar de fase\n");
exit (0);}
else {print "##Voce passou para a 2ªfase##\n\n";&fase2;}
sub fase2{
print "Quantos bytes tem em 1 bit?\n";
print "1)0.125\n";
print "2)8\n";
print "3)1024\n";
print "4)0\n";
$opcao=<STDIN>;
chomp $opcao;
if ($opcao == 1){ print "Voce acertou!!\n"; $pontos +=4;}
if ($opcao != 1) { print "Voce errou!!\n";}
print "Quais a sigla do conjunto das 3 cores padrões exibidas no monitor?\n";
print "1)FSB\n";
print "2)RGB\n";
print "3)Plug and Play\n";
print "4)SSH\n";
$opcao=<STDIN>;
chomp $opcao;
if ($opcao == 2) {print "Voce acertou!!\n"; $pontos += 4;}
if ($opcao != 2) {print "Voce errou!!\n";}}
print "O numero de pontos que vc fez foi ",$pontos, "\n";
if ($pontos == 12) {print "Voce zerou o jogo!!Parabéns!!\n";}
if ($pontos != 12) {print "Treine mais e tente novamente,Voce não zerou o jogo!!\n";}
O que achei muito interessante no seu código é que você tentou colocar grande parte do conhecimento básico nele. Pode-se ver várias matérias relacionado a C ali contidos. Parabéns, um bom código concerteza.
Quote from: "vuln"O que achei muito interessante no seu código é que você tentou colocar grande parte do conhecimento básico nele. Pode-se ver várias matérias relacionado a C ali contidos. Parabéns, um bom código concerteza.
É mais uma ou menos uma síntese de tudo que voce aprende em C até ponteiros e de tudo que vc aprende em Perl no início...
Só que em C demorei muito mais do que em Perl (perl eu to achano mto fácil.. só nao to achano material de sockets se alguem tive ai..)
Ao menos eu, sem sombra de dúvidas acho C uma linguagem exepcional. Principalmente pelo amplo Suporte que achamos. Já Perl apesar de ser uma linguagem de alto nível e interpretada o que facilita muito as coisas, temos uma certa dificuldade quando passamos do básico pois não temos uma boa quantidade de materiais de qualidade para estudar. Principalmente depois dos artigos desse ano, indicando Perl como uma linguagem ultrapassada.
:(
Quote from: "vuln"Ao menos eu, sem sombra de dúvidas acho C uma linguagem exepcional. Principalmente pelo amplo Suporte que achamos. Já Perl apesar de ser uma linguagem de alto nível e interpretada o que facilita muito as coisas, temos uma certa dificuldade quando passamos do básico pois não temos uma boa quantidade de materiais de qualidade para estudar. Principalmente depois dos artigos desse ano, indicando Perl como uma linguagem ultrapassada.
:(
e ta foda de acha material de perl aqui..
sockets etc.. soh to achano material simples..
Ai ai ai, meu perl tá enferrujado, mas acho que eu me lembro ainda, acho que é assim:use IO::Socket;
my $socket = new IO::Socket::INET (PeerAddr => www.google.com.br, PeerPort => 80, Proto => TCP,);
print "\nO que deseja enviar? ";
$tosend = <STDIN>;
$socket->send("$tosend");
print "\nEnviando \"$tosend\"";
print "\nAté mais!";
exit(1);
Ae ficou legal Dr4k0, viu, nem foi dificil portar pra perl né? Parabêns!
Flws...
ai galera bem que podiam estar copilados esses codes, ja que quem naum programa naum vai saber como ficou..