okay after this
id like to explain how sending a fake mail
with telnet it would be somthing like (dont know if some1 has already written this tutorial)
1) you connect to an smtp server (you need to find one that lets you send emails without havin to deal with the login)
2)RSET
3)HELO <an ip\host\ you want>
4) MAIL FROM: <[email protected]>
5)RCPT TO: <[email protected]>
6) DATA
7) subject: test
the body of the email here9) . ( a dot and then hit ENTER)
------------the end------------
thats how it would be like with TELNET but wat we want its to do it with VB
before we can go on, we should deal with a problem
when you do it with VB you should...find somehow to make ur application (we're making) to wait that will prevent the ur application to send MAIL TO: when its supposed to send "HELO" (if you know what i mean)
so we'll make one
--------
Private sub Delay(x)
T= timer
Do while Timer < T + x
Doevents
loop
end sub
-------
so if we have Delay(6) this will Pause the application for 6 secs okay
lets say 6 secs are enough for us
lets draw our form
-------------------------------------------------
|label1"server"| | text1 |
|label2"Your fake identity"| |text2 |
|label3"MAIL FROM:"| | text3 |
|label4"MAIL TO: " | | text4 |
|label5"Subject:"| | text5 |
|label6 "Body:" | | text6 |
____________
| COMMAND 1|
---------------
--------------------------------- END OF THE FORM -------------------------
okay heres how our form would loook like
and the code is as simple as its in TELNET
before we can even think bout how to code this we gotta add the
winsck.ocx to our application
its called Netmanage Winsock control (winsck.ocx)
or microsoft control mswinsck.ocx (better the first one)
once you add it choose the TCP one(its shown as a couple of socks...one its for udp and one for tcp)
okay heres our code (we'll add the delay thing we coded previously)
---------------CODE--------------------
Private sub text1_keypress(k as integer)
if k=13 then
server=text1
text2.setfocus
end if
end sub
Private sub Text2_keypress(k as integer)
if k=13 then
fake=text2
text3.setfocus
end if
end sub
Private sub text3_keypress(k as integer)
if k=13 then
from=text3
text3.setfocus
end if
end sub
Private sub text4_keypress(k as integer)
if k=13 then
to=text4
text4.setfocus
end if
end sub
Private sub text5_keypress(k as integer)
if k=13 then
subj=text5
text5.setfocus
end if
end sub
Private sub text6_keypress(k as integer)
if k=13 then
body=text6
command1.setfocus
end if
end sub
Private sub Delay(x)
'change the 6 to another number if u want to set a diffrent delay time
x= 6
T= timer
Do while Timer < T + x
Doevents
loop
end sub
Private sub Command1_click()
TCP1.CONNECT server,25
DELAY(X)
TCP1.SendData "RSET" & VBCRLF
delay(X)
TCP1.SendData "HELO " & FAKE & VBCRLF
delay(x)
TCP1.SENDATA "mail from: " & FROM & VBCRLF
delay(x)
TCP1.SendData "RCTP TO: " & TO & VBCRLF
delay(x)
TCP1.SendData "DATA" & VBCRLF
delay(x)
TCP1.SENDATA "DATA" & VBCRLF
delay(x)
TCP1.SENDATA "Subject: " & subj & VBCRLF
delay(x)
TCP1.SENDATA Body & VBCRLF
delay(x)
TCP1.SendData "." & VBCRLF
delay(x)
TCP1.CLOSE
END SUB
------------------------------- END OF THE CODE -------------------
okay hopefully its all working anyway holla back if i made some mistakes
good luck
