Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

_4ndr3

Usar um ciclo infinito como falso vírus!

Mensagens Recomendadas

_4ndr3    0
_4ndr3

Bem pessoal, com este programa já enganei muitos! Tiveram cá um susto xD

Edit: Notifico que este tópico só tem o objectivo de promover a boa disposição e que isto não é realmente um vírus, apenas uma enfatização do mesmo

__________________________________

Program virus_lol;
Var num,cont:integer;
Begin
      cont:=0;
      num:=0;
 repeat
 cont:=cont+1;
      writeln(cont*cont*cont,'Reading hard disk sectores ',cont*cont*cont,' injecting virus...',cont*cont);
      until num<>0;
 readln;
End.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
_4ndr3    0
_4ndr3

Código ocm apito:

Program virus_lol;
Var num,cont:integer;
Begin
      cont:=0;
      num:=0;
 repeat
 cont:=cont+1;
      writeln(cont*cont*cont,'Reading hard disk sectores ',cont*cont*cont,' injecting virus...',cont*cont,chr(7));
      until num<>0;
 readln;
End.

O que eu vou rir hoje! :cheesygrin:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
R0t3nSkull    0
R0t3nSkull

ja agora, alguem me pode arranjar algum compilador para pascal?? eu tenho o Turbo Pascal 7 mas so da para correr se tiver a correr o pascal, n ha nenhum programa para converter em *.exe??

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
fnds    2
fnds

Um bocado inútil...

Como o _4ndr3 disse foi uma brincadeira, não tem de ter utilidade, ao mesmo tempo que se divertiu aprendeu alguma coisa.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Guest tsenart   
Guest tsenart

Como o _4ndr3 disse foi uma brincadeira, não tem de ter utilidade, ao mesmo tempo que se divertiu aprendeu alguma coisa.

Aprendeu o quê? A fazer um ciclo e a escrever uns números?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
turkis    0
turkis

Aprendeu o quê? A fazer um ciclo e a escrever uns números?

nem que seja a fazer asneiras...heheheh também se aprende =) nada contra, até porque este tipo de cenas não fazem mal a ninguém...era pior se ele arranje-se uma forma de formatar mesmo um disco ou apagar cenas importantes....

é uma brincadeira saudável...

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
TheGlorious    0
TheGlorious

Eu fiz uma parecida em Pascal, mas melhorada. Segunda feira posto aí, porque está no pc da escola, já fiz à uns tempos também :X

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
sergio_1992    0
sergio_1992

LOOOOOL  :)

exelente  :D

tenho de mandar a um colega meu que quer aprender programação ©

só para ele ver as cenas que o pessoal do forum faz

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
_4ndr3    0
_4ndr3

Viva,

Falta agora a versão em Visual Basic, alguém sabe como fazer um bip no Vb 6? Disseram-me que existe igualmente a função Chr mas exprimentei o chr(7) e não funcionou.

Cumprimentos.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
GoncaloMendes    0
GoncaloMendes

Viva,

Falta agora a versão em Visual Basic, alguém sabe como fazer um bip no Vb 6? Disseram-me que existe igualmente a função Chr mas exprimentei o chr(7) e não funcionou.

Cumprimentos.

Tanto em VB6 como .NET existe uma instrução Beep que faz isso mesmo.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade