comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Delphi] Una inocente broma xD

  • 3 Respuestas
  • 1757 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Diciembre 06, 2013, 10:14:33 am »
Siempre quize hacer la tipica broma donde te mandan un programa donde aparece la foto de una mina en tetas y cuando queres cerrar la ventana en vez de cerrarse se multiplica.
Si la victima no quiere cerrar la ventana puse un timer cada 1 segundo para que se multiplique de todas formas.

Hice algo asi en delphi , pondria una captura del programa en accion pero me borrarian la imagen xDD.

El codigo.

Código: Delphi
  1. // Joke : Big Tits
  2. // (C) Doddy Hackman 2013
  3.  
  4. unit big;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, acPNG, ExtCtrls, Math;
  11.  
  12. type
  13.   TForm1 = class(TForm)
  14.     Image1: TImage;
  15.     Timer1: TTimer;
  16.     procedure Timer1Timer(Sender: TObject);
  17.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  18.     procedure nomepiensoir();
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   Form1: TForm1;
  27.  
  28. implementation
  29.  
  30. {$R *.dfm}
  31.  
  32. procedure TForm1.nomepiensoir;
  33.  
  34. // Based on : http://delphi.about.com/od/adptips2006/qt/formclone.htm
  35. // Thanks to Zarko Gajic
  36.  
  37. var
  38.  
  39.   parte1: TMemoryStream;
  40.   acatoy: TForm;
  41.  
  42. const
  43.   dimensiones: array [1 .. 5] of string = ('100', '200', '300', '400', '500');
  44.  
  45. begin
  46.  
  47.   parte1 := TMemoryStream.Create;
  48.   parte1.WriteComponent(Form1);
  49.  
  50.   parte1.Position := 0;
  51.  
  52.   acatoy := TFormClass(Form1.ClassType).CreateNew(Application);
  53.   parte1.ReadComponent(acatoy);
  54.  
  55.   acatoy.Left := Form1.Left + StrToInt(dimensiones[RandomRange(1, 5)]);
  56.   acatoy.Top := Form1.Top + StrToInt(dimensiones[RandomRange(1, 5)]);
  57.  
  58.   acatoy.Show;
  59.  
  60. end;
  61.  
  62. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  63. begin
  64.   nomepiensoir();
  65.   Abort;
  66. end;
  67.  
  68. procedure TForm1.Timer1Timer(Sender: TObject);
  69. begin
  70.   nomepiensoir();
  71. end;
  72.  
  73. end.
  74.  
  75. // The End ?
  76.  

Si lo quieren bajar lo pueden hacer de aca.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5409
  • Actividad:
    20%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #1 en: Diciembre 06, 2013, 10:23:37 am »
Muy bueno Doddy! recuerdo hace tiempo que vi un virus similar!
En que linea le pasas el path de la imagen?

Saludos!


Desconectado 79137913

  • *
  • Co Admin
  • Mensajes: 636
  • Actividad:
    6.67%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« Respuesta #2 en: Diciembre 06, 2013, 12:48:57 pm »
HOLA!!!

Claramente la tiene directamente en el formulario.-

P.D: podrias poner un enlace de desacarga doddy

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   DOORS.PARTY

Desconectado Krapermors

  • *
  • Underc0der
  • Mensajes: 53
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #3 en: Diciembre 07, 2013, 06:56:36 pm »
estaria bueno que se multiplicara pero no en la misma venta o sea en diferente posicion o cordenada para joderlo mas

 

¿Te gustó el post? COMPARTILO!



[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2049
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3258
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3490
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Creacion de un Troyano de conexion inversa

Iniciado por BigBear

Respuestas: 4
Vistas: 3763
Último mensaje Mayo 05, 2017, 09:10:55 am
por _inicio_cerrarsesión
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 1477
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon