Cheat Engine :: View topic - [Question] Sendin email

Cheat Engine
The Official Site of Cheat Engine

FAQ

Memberlist

Usergroups

Profile

[Question] Sendin email
Goto page Previous 1, 2

Cheat Engine Forum Index -> General programming

View previous topic :: View next topic

Author

Message

stealthy17
Expert Cheater

Reputation: 0

Joined: 10 Apr 2007
Posts: 144
Location: The Netherlands

Posted: Thu Jan 17, 2008 1:43 pm Post subject:

C++ and socks is a bit hard for beginners i think...

NINTENDO
Grandmaster Cheater Supreme

Reputation: 0

Joined: 02 Nov 2007
Posts: 1371

Posted: Thu Jan 17, 2008 1:45 pm Post subject:

stealthy17 wrote:

C++ and socks is a bit hard for beginners i think...

But it is very cool!! I like sockets.
_________________

Intel over amd yes.

stealthy17
Expert Cheater

Reputation: 0

Joined: 10 Apr 2007
Posts: 144
Location: The Netherlands

Posted: Thu Jan 17, 2008 1:50 pm Post subject:

True... Still i prefer .Net for socks

assaf84
Expert Cheater

Reputation: 0

Joined: 03 Oct 2006
Posts: 238

Posted: Thu Jan 17, 2008 1:56 pm Post subject:

stealthy17 wrote:

Winsock and a public open relay SMTP server is all you need.

The SMTP protocol is one of the easiest there is...

Example session from Wiki:

Code:

S: 220 smtp.example.com ESMTP Postfix
C: HELO relay.example.org
S: 250 Hello relay.example.org, I am glad to meet you
C: MAIL FROM:<[email protected]>
S: 250 Ok
C: RCPT TO:<[email protected]>
S: 250 Ok
C: DATA
S: 354 End data with <CR><LF>.<CR><LF>
C: From: "Bob Example" <[email protected]>
C: To: Alice Example <[email protected]>
C: Cc: [email protected]
C: Date: Tue, 15 Jan 2008 16:02:43 -0500
C: Subject: Test message
C:
C: Hello Alice.
C: This is a test message with 5 headers and 4 lines in the body.
C: Your friend,
C: Bob
C: .
S: 250 Ok: queued as 12345
C: QUIT
S: 221 Bye
{The server closes the connection}

In VB6 style;

Winsock1.Connect <server ip>, <port>

Then you Winsock1.SendData("string of text") the data
You receive data with the Winsock_DataArrival event using the returning codes (250, 221 etc, you can validate what the next string to send will be)

Crappy explanation maybe but that's how it is hehe... Think about it and play around a bit...

OK.. So where can I find a public open relay SMTP server?

stealthy17
Expert Cheater

Reputation: 0

Joined: 10 Apr 2007
Posts: 144
Location: The Netherlands

Posted: Thu Jan 17, 2008 2:01 pm Post subject:

Those are pretty hard to find lately since many 'spam companies' scan the internet for them and use them to send mass spams around...

Viano
How do I cheat?

Reputation: 0

Joined: 13 Jan 2008
Posts: 8

Posted: Thu Jan 17, 2008 2:17 pm Post subject:

Code:

Public PyT As Byte, PyR As Byte
Function KodujBase64(ByVal Text As String) As String
Dim AsLit(63) As String
Dim lC&, lIL&, sToKod$, sCiąg$, lV&, lDOD&

For lV = 0 To 25 'ładowanie tablicy
AsLit(lV) = Chr(lV + 65)
Next lV
For lV = 26 To 51
AsLit(lV) = Chr(lV + 71)
Next lV
For lV = 52 To 61
AsLit(lV) = Chr(lV - 4)
Next lV
AsLit(62) = "+": AsLit(63) = "/"

lDOD = 3 - (Len(Text) Mod 3)
If lDOD = 3 Then lDOD = 0
For lV = 1 To lDOD 'uzupełnianie do wielokrotności 3
Text = Text & Chr(0)
Next lV

lIL = Len(Text) / 3
For lC = 1 To lIL
sToKod = Mid$(Text, (lC - 1) * 3 + 1, 3) '1. Pobierane są trzy znaki zbioru wejściowego
For lV = 1 To 3 'znaki na binarny i w jeden ciąg
sCiąg = sCiąg & Lng2Bin(Asc(Mid$(sToKod, lV, 1)))
Next lV
For lV = 1 To 4 'podział na 4, dodanie "00" i odczytanie wart. z tablicy
KodujBase64 = KodujBase64 & AsLit(Bin2Lng("00" & Mid$(sCiąg, (lV - 1) * 6 + 1, 6)))
Next lV
sCiąg = ""
Next lC
KodujBase64 = Left(KodujBase64, Len(KodujBase64) - lDOD) 'zamiana znaków na PADy
For lV = 1 To lDOD
KodujBase64 = KodujBase64 & "="
Next lV

End Function

'własnoręcznie pisane funkcje przetwarzające long na bin i odwrotnie

Function Lng2Bin(ByVal Liczba As Long) As String
Dim lC&
For lC = 8 To 1 Step -1
If (2 ^ (lC - 1)) <= Liczba Then
Lng2Bin = Lng2Bin & "1"
Liczba = Liczba - (2 ^ (lC - 1))
Else
Lng2Bin = Lng2Bin & "0"
End If
Next lC
End Function
Function Bin2Lng(ByVal Binar As String) As Long
Dim lC&
For lC = 1 To 8
Bin2Lng = Bin2Lng + Mid(Binar, lC, 1) * 2 ^ (8 - lC)
Next lC
End Function

Private Sub CommandButton1_Click()
wnsMle.Connect "poczta.interia.pl", "25"
PyT = 1: PyR = 1
End Sub

Private Sub wnsMle_DataArrival(ByVal bytesTotal As Long)
Dim sD As String, sKod As String, sDane$

wnsMle.GetData sD
PyR = PyR + 1

sKod = Left(sD, 3)
If sKod = "220" Or sKod = "354" Or sKod = "250" Or sKod = "334" Or sKod = "235" Then
Select Case PyT
Case 1 'wysyłka helo
sDane = "HELO [email protected]" & vbCrLf
Case 2 'wysłanie auth
sDane = "AUTH LOGIN" & vbCrLf
Case 3: sDane = KodujBase64("youlogin") & vbCrLf 'wysłanie zhaszowanego loginu
Case 4: sDane = KodujBase64("youpassword") & vbCrLf 'wysłanie zhaszowanego hasła
Case 5: sDane = "MAIL FROM: [email protected]" & vbCrLf 'nadawca
Case 6: sDane = "RCPT TO: [email protected]" & vbCrLf 'odbiorca
Case 7: sDane = "DATA" & vbCrLf 'szykowanie do treści
Case 8: sDane = "Subject: Temat" & vbLf & _
"To: Adresat" & vbLf & (txtMsg) & vbCrLf & "." & vbCrLf
Case 9: sDane = "QUIT"
Case 10: wnsMle.Close
End Select
If PyT = 10 Then MsgBox "Gotowe": Exit Sub
wnsMle.SendData sDane
Debug.Print sDane
PyR = PyR + 2
PyT = PyT + 1
Else
MsgBox sD
wnsMle.Close
End If
End Sub

wnsMle <--- Name of winsock control.
txtMsg <--- Name of TextBox control.

Sorry for other langue in code. I write code for my poland ppl on forum.

Sorry, my english is bad Razz

_________________

Remember computer is for you ! No You for computer !

Display posts from previous:

	Cheat Engine Forum Index -> General programming	All times are GMT - 6 Hours Goto page Previous 1, 2
Page 2 of 2

Jump to:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum