Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Humor (https://www.clubdelphi.com/foros/forumdisplay.php?f=31)
-   -   ¡No hagáis esto en casa! (https://www.clubdelphi.com/foros/showthread.php?t=49677)

ixMike 26-10-2007 19:11:03

¡No hagáis esto en casa!
 
Hola ;)


Código Delphi [-]
while 1=1 do WriteLn('Hola');

y la versión en C...

Código Delphi [-]
while (1==1) printf("Hola");


Saludos

ixMike 26-10-2007 19:14:51

¡ah!

Este me lo envió un "amigo" (bueno, el código no, sólo el ejecutable). Me costó lo mío acabar con él sin tener que cerrar sesión ni reiniciar.

Código Delphi [-]
while 1=1 do
  begin
  Beep(440,5);
  WinExec(ParamStr(0), SW_SHOWNORMAL);
  end;

el original en C (#include <windows.h> y <stdlib.h>)

Código Delphi [-]

while (1==1)
 {
  Beep(440,5);
  system("start programa.exe"); //programa.exe es el propio ejecutable
}


La cuestión es.... ¡que yo le enseñé a hacer eso! Cría cuervos y te sacarán los ojos.


Saludos de nuevo.

ixMike 26-10-2007 19:41:46

¿A alguien se le ocurre algo para cuando el programa termine?

jeje ;)

cHackAll 26-10-2007 23:33:40

Ahh pues es sencillo: El ejecutable abre una nueva instancia de si mismo y llega un momento en el que el sistema colapsa... si detectas tal suceso lo primero es detener la ejecución de nuevas instancias... cómo? simplemente localiza el ejecutable (Ej. c:\windows\amigoviruloso.exe), y simplemente lo renombras, con ello cada una de las copias del programa (troyano¿?) intentarán correr un ejecutable que ya no existe.

Finalmente utilizas el Administrador de tareas para finalizar los procesos "amigables"...

Si deshabilitan el Administrador de Tareas debes usar la linea de comandos (CMD) y usar tasklist /f /im amigoviruloso.exe

Si ninguno funciona debes intentar abrir el regedit y buscar la linea "DisableTaskManager" y eliminarlo...

Finalmente dejo una copia del TaskManager que NO obedece su bloqueo (osea que si algun virus o algo lo deshabilita, ésta copia modificada por mi corre sin problemas, creo que tambien la modifique para que elimine procesos de sistema asi que mucho cuidado). Si algún Moderador lo ve pertinente puede quitar el enlace.

Saludos

cHackAll 26-10-2007 23:56:25

MOMENTO que no me di cuenta que este hilo estaba en la sección de humor! es el lugar correcto y fui vilmente engañado o es que alguien debe moverlo?

fide 27-10-2007 12:21:25

jajajajajajjaaa
 
Estan de madre estos muchachos de clubdelphi jejejeje!

Nunca vi tantos programadores con tan buen Humor...

xD.

Sigan asi que eso es bueno okas!!!!

:D:D:D

Ha, que creen de esto???

El nuevo service pack de microsoft trae algunas cosas veneficiosas, aqui estan algunas jeje...

Código Delphi [-]
 Microsoft.CollapsableWindows := True;
 Microsoft.AllowHackOnWindows := True;
 Microsoft.AllowFalseLogin := True;
 Microsoft.DisableSecurity := True;
 BillGates.Death := True;

ixMike 29-10-2007 23:27:17

¿A nadie más se le ocurre un ejemplo a evitar?

format c:

Venga, si están facilitos...

while (c>1)
{
printf("Introduzca una caracter valido: ");
c=getch();
}


Son los típicos absurdos de la programación


Código Delphi [-]

if WindowsRunningCentPerCentProperly then ShowMessage("Windows funcionando correctamente");

//Este programa no devuelve ninguna salida

ixMike 29-10-2007 23:29:17

Cita:

Empezado por ixMike (Mensaje 241469)
¿A alguien se le ocurre algo para cuando el programa termine?


Creo que no lo habéis pillado (cuando el while 1=1 termine...)

fide 30-10-2007 00:39:14

jejejejeje
 
Oyeme, mira que tu eres gracioso mijitoooooo!!!!


La franja horaria es GMT +2. Ahora son las 19:39:18.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi