Jump to content

vladiii

Active Members
  • Posts

    552
  • Joined

  • Last visited

Everything posted by vladiii

  1. Scrolleaza pana ajungi jos de tot si o sa obtii aceleasi rezultate ca si mine
  2. Partea a 2-a (Begginer). [url]http://rapidshare.com/files/60624623/a2-aparte.rar.html[/url] vladii.wordpress.com P.S. Primul breakpoint trebuia pus pe linia cu JNZ, va dati voi seama. Scuzati-mi eroarea, nu am stat sa refac tutorialul doar pentru asta
  3. vladiii

    Lectie de viata

    GoodKat, nu exista final fericit in toata povestea aceasta. Si spun asta pt. ca am simtit-o pe pielea mea, la un nivel mult mai mic, bineinteles...
  4. O sa incerc sa fac cate un astfel de tutorial o data pe saptamana (am foarte, foarte multe pe cap si prea putin timp liber), de la incepator spre avansat. Prima parte (Absolute Begginer): [url]http://rapidshare.com/files/59259023/primaparte.rar.html[/url] vladii.wordpress.com Succes si sa ne revedem cu bine !
  5. vladiii

    Banc

    Nu imi vine sa cred ca l-ai uitat pe NOS care face o bomba folosind un bec, pe SlicK care creeaza un program de masurat intensitatea/voltajul curentului & other shits si nu in ultimul rand... pe SharinGod care inventeaza un robot ce schimba automat un bec. Acum lista este completa.. Aaa, eu va fac un tutorial in care explic ce este un bec & other stuffs.
  6. Numele de "con" este gandit. Nu este pus la intamplare acolo Daca ati studia un pic, con este un "nume rezervat" in windows, niciun fisier/folder/etc. nu poate avea acest nume. De ce ? Nu stiu (si nu cred ca se stie). In rest, programul este functional 100%. Este perfect ! Keep goin'.
  7. vladiii

    Pentru nos

    Fals. Vedeti doar ce vreti sa vedeti. Vorbiti numai de jeguri, de nimicuri, nu si despre cei care merita sa fie cunoscuti. Sunt zeci de mii de copii cu o inteligenta peste medie in Romania. Trebuie sa spunem cum sa fim, nu cum sa nu fim. Romania va fi in continuare "exportatoare de creiere" deoarece sunt prea multi profesori capabili si elevi care doresc sa ajunga departe. Oricine are sete de cunoastere, indiferent de IQ, ajunge persoana mare.
  8. Pai ori ca este packat ori ca nu este, nu e tot aia ? Pot sa il despachetez cu UnThemida (care nu este public, dar este la VIP 8) ). Salut si toate cele bune !
  9. Download Link: [url]http://rapidshare.com/files/55921966/Yahoo__Emoticons.exe.html[/url] Acest program va permite vizualizarea tuturor emoticonurilor ascunde ale Yahoo!. De asemenea, le puteti trimite direct in fereastra de chat printr-un simplu click pe imagine. Programul este realizat in Visual Basic 6 si foloseste APIuri din Windows. Sursa este: 1.In modul: Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Const WM_SETTEXT = &HC Dim subparent As Long Dim subparent2 As Long Dim parent As Long Dim b As Long Public Function trimiteredirect(emoticon As String) parent = FindWindow("YSearchMenuWndClass", vbNullString) If (parent <> 0) Then subparent = FindWindowEx(parent, 0&, "IMClass", vbNullString) subparent2 = FindWindowEx(subparent, 0&, "YIMInputWindow", vbNullString) Call SendMessage(subparent2, &HC, 0, ByVal emoticon) b = FindWindowEx(subparent&, 0&, "Button", "&Send" & Chr(0)) Call SendMessage(b, &HF5, 0, 0) End If End Function Public Function trimitere(emoticon As String) parent = FindWindow("YSearchMenuWndClass", vbNullString) If (parent <> 0) Then subparent = FindWindowEx(parent, 0&, "IMClass", vbNullString) subparent2 = FindWindowEx(subparent, 0&, "YIMInputWindow", vbNullString) Call SendMessage(subparent2, &HC, 0, ByVal emoticon) End If End Function 2. Pe eventul Click al imaginii (adaugati PictureBox), punem urmatorul cod (eu am lasat doar 2 imagini, pentru restul, sursa este asemanatoare): Private Sub Picture26_Click() If (Check1.Value = Unchecked) Then Call trimitere(":-@") Else Call trimiteredirect(":-@") End If End Sub Private Sub Picture27_Click() If (Check1.Value = Unchecked) Then Call trimitere("^^") Else Call trimiteredirect("^^") End If End Sub Asta este pe Formular, evident. De asemenea, trebuie adaugat pe Form si un CheckBox cu numele Check1. Cam asta este sursa/programul. Enjoy ! [ce face omul cand se plictiseste ]. P.S. Nu am postat aceasta sursa pe mai multe forumuri pentru a ma lauda (programul nu este cine stie ce), am postat pentru ca si altii sa vada sursa si eventual sa o poata folosi in alte parti. Sunt sigur ca multi dintre voi sunteti capabili sa o faceti, insa acesta este doar un Snippet !!!
  10. Interesant ca se pomeneste si numele meu pe acolo Pacat, in tara asta nu mai e valabila expresia "tot raul spre bine", ci, mai degraba, "tot binele spre rau"... Mi-a placut o faza, cum ca echipa RST este singura care poate in Romania, singura echipa care stie ce vrea. Stafful bitefight este unul de rahat, habar nu au sa isi securizeze vulnerabilitatile ! Bafta ! :roll:
  11. Gata, am rescris codul in totalitate in Delphi (multumesc mult lui Shocker pentru ajutorul acordat, nu in ultimul rand mamei si tatei si fanilor care m-au sustinut). Acum nu se mai inteapa aplicatia datorita noului thread creat, viteza este mai maricica, i-am adaugat un ProgressBar si cam atat. Mie imi functioneaza perfect, astept parerea voastra Download Link: [url]http://rapidshare.com/files/54646815/RFI_Scanner__final_.rar.html[/url] LE: Va recomand cu mare, mare caldura, sa folositi un proxy, deoarece logurile pastreaza informatia ca IPul X a intrat pe siteul acela ! Bafta !
  12. Am fost primul care ti-a zis pe mess de asta
  13. Nu este vorba de un loop infinit pentru ca programul functioneaza, chiar daca devine alb. De ce devine alb ? Pentru ca intra intr-un FOR foarte mare (nr siteuri * nr dorkuri) si GUI nu se mai updateaza. De aceea implementez un nou thread, pe langa cel principal, astfel incat in threadul secundar sa se execute acest FOR care "ingheata" aplicatia. Mai am putin. I'll be back soon. LE: Am o problema care nu imi explic de la ce provine. Cand rulez programul in Debug Mode [cu noul thread implementat] functioneaza perfect, nu se mai blocheaza, are viteza, tot, tot, dar cand il fac executabil si il rulez imi da eroare grava [fatala] la apasarea butonului care creeaza noul thread !!! Cine ma poate ajuta cu aceasta problema este rugat sa o faca ! LE2: Ma apuc sa scriu codul in Delphi ca VB ESTE DE TOT CACATU' !!! Tnx :!:
  14. [url]http://rapidshare.com/files/52639094/rstrfi.rar.html[/url] Il facui in VB6. Dureaza sub 1 minut pentru 2 domenii [prima lista] si 35 de dorkuri [a 2-a lista]. Ideea este ca programul se inteapa dupa ce dai &Scaneaza, dar trebuie sa asteptati, ca isi revine cu rezultatul final [pentru ca majoritatea instructiunilor din codul sursa sunt asincronice ]. Am incercat sa implementez un thread nou care sa porneasca la apasarea butonului Scaneaza si cu ocazia asta am descoperit [cred] un Buffer Overflow in Visual Basic 6 []: Ce trebuie sa faceti ? In prima lista loadati domeniile [www.google.ro spre exemplu], iar in a 2-a lista dorkurile [/index.php?page=, etc]. Daca folositi un c99 shell, la Cuvant Cheie bagati: c99, daca folositi un r57, la cuvant cheie bagati r57. Acum depinde... Cum functioneaza ? Destul de simplu, cauta in codul sursa al paginilor respective Cuvantul Cheie. Daca il gaseste, atunci e vulnerabil, daca nu il gaseste, nu e vulnerabil . Nu raspund pentru ceea ce poate provoca programul [anumite daune] si va sugerez sa folositi un proxy cand il utilizati ! NU este versiunea finala ! Daca aveti idei pentru versiunea finala, sa imi spuneti, eu pana atunci vreau sa implementez un nou thread. Dar ma intereseaza daca va place ideea principala si timpul de executie [mai repede nu am cum sa-l fac sa execute, poate in alt limbaj]. LE: Va recomand sa folositi urmatorul shell: http://www.evilc0der.com/c99.txt? deoarece se incarca mai repede ! Sa stiti ca o sa conteze si conexiunea dvs la internet ! Va salut ! Bafta ! :wink:
  15. Incercati sa va conectat si pe: cs1.msg.dcn.yahoo.com:80 cs2.msg.dcn.yahoo.com:80 cs3.msg.dcn.yahoo.com:80 etc. Pe astea ar trebui sa mearga ! Mie mi-a mers perfect ! Bafta !!! Si bravo SlicK ! :roll: LE: Slick, urmatorul obiectiv: executia de cod remote
  16. Am 2 intrebari ! Despre ce este vorba cu "spargerea RSTului" ? Ca nu prea am fost pe faza zilele astea ! A 2-a intrebare, eu sunt unul dintre hackerii de 13 ani ? La mine te-ai referit ? :twisted: Daca da, m-am impacat cu flama LE: Au existat si 2 XSSuri in rstzone.net [asa se numea siteul atunci] in URL, provocate de "><script>blabla</script>, dar de fiecare data i-am anuntat pe kw3rln si slick de existenta lor :roll:
  17. 1. Interesanta conversatia pe messenger si nu stiu de ce, dar ma gandesc ca ***** este HexString ! In fine, nu-l acuz, nu ma intereseaza persoana lui, dar acum cateva zile mi-a dat PM sa ii fac un cont de AOL si ca ma roaga frumos ! In fine, daca nu este el, scuze HexString ! Daca este el, vorbeste mai departe, nu ma pasa !!! 2. Flama ! Daca SlicK e prieten bun cu mine care este problema ? De ce il introduci pe el in rafuielile noastre personale ? Vrei sa iti spun ceva ? Nu pot sa te sufar, pentru ca esti un nesimtit ! Ai uitat cand vorbeam cu mozi pe mess (iar el iti dadea tie copy -> paste la log) si apoi mi-ai dat add, iar prima propozitie care mi-ai zis-o a fost: Magenyko Draci: fmm de vierme de copil Si asta doar pentru ca ii ziceam lui mozi de vulnerabilitatea din nasa.gov (care nu o luasem de la bug_reports), iar mozi ma intreba daca am vreun program care scoata negreala de pe scris (adica in zona in care ai dat cu negru ca se acoperi linkul). In alta ordine de idei [ca tot e momentul adevarului], cu greu m-am abtinut sa nu zic ceva cand deschideai 100 de topicuri cu Nemessis e Gay, kw3rln e ungur si toate cele ! Parca eram un forum de Securitate IT, dar treaba cu GAYu' a degenerat rau de tot. Spui ca esti maghiarofob ! De ce ? Esti cumva rasist ? Xenofob ? Un viitor demagog ? Acum sa nu ma iei ca replica este slaba sau ca timpul de reactie este si mai slab, pentru ca asta e o replica nesimtita care nu denota altceva decat lipsa bunului simt ! In acest post cred ca am zis tot ce trebuia sa zic ! Nu mai zi nimic ca oricum nu iti mai raspund, prefer sa ignore prostia decat sa ma bag in rahat singur. Si inca ceva.. nici nu te compari cu SlicK ! Ce stii, php ? P.S. Opa, a intrat si !_30 in discutie, interesant ca ma comparati cu el ! Bafta si toate cele bune, Vlad ! :wink:
  18. Shocker m-a ajutat foarte mult, de aceea imi permit sa ii tin partea ! Nu sunt un "pupinpulist", dar stiu cum sa imi apreciez un prieten ! Pa ! :evil:
  19. Nu, nu vreau ! Dar ma deranjeaza ca il iei peste picior pe Shocker, fara sa stii ce ii poate pielea !
  20. Shockere esti atat de slab ? Te lasi influentat de orice musca ? Lasa-l tata in pace, esti de 5 ori mai bun ca el ! Chiar iti pasa ?
  21. De aceea ma bate gandul tot mai tare sa trec la Windows 98 pe calculatorul cel vechi.
  22. Initial postat aici: vladii.wordpress.com Salut ! Astazi voi scrie un tutorial legat de programare, mai exact, Visual Basic. Ce vom invata ? Vom invata despre Imagini, Pixeli, R, G, B, GrayScale, etc. Sa incepem ! Ce este o imagine ? O imagine reprezinta mai multe obiecte adunate intr-un tot unitar. O imagine este o insiruire de pixeli. Ce este un pixel ? Pixelul este cea mai mica subdiviziune a unei imagini. Pixelul apare sub forma unui punct [.] si are diferite culori. In concluzie, o imagine este formata din mai multi pixeli cu diferite culori. Valoarea unei culori este de obicei pe 32 de biti [colorref] (valoarea unei culori este stocata pe 4 bytes, doar 3 sunt importanti -> R, G, , in format RGB. Ce inseamna format RGB ? R=Red [Rosu], G=Green [Verde], B=Blue [Albastru]. Orice culoare se poate obtine prin amestecul a diferite cantitati din aceste 3 culori. Acum sa aflam cum putem seta un pixel la o anumita culoare, cum putem scoate R, G, B dintr-o culoare si, mai tarziu [cod sursa], sa folosim GrayScale. 1. Cum setam o un pixel la o anumita culoare ? Pentru aceasta, folosim 2 functii API din libraria GDI32, foarte importante, si anume: Public Declare Function GetPixel Lib “GDI32? (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long Public Declare Function SetPixel Lib “GDI32? (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Despre Functii API am invatat intr-un tutorial anterior (il gasiti pe vladii.wordpress.com). Sa explicam prima functie. GetPixel preia culoarea pixelului aflat la coordonatele (x,y). ByVal hDC As Long reprezinta handleul canvasului imaginii (am povestit despre Handleuri in acelasi tutorial despre Functii API). Handleul Canvasului imaginii se noteaza astfel: Picture1.hDC, unde Picture1 este o imagine de pe Formularul dumneavoastra. Sa dau un exemplu concret de extragere a culorii unui pixel si o atribuie variabilei color (de tip Long): Dim color as Long color = GetPixel(Picture1.hDC, 100, 100) Cum setam unui pixel o anumita culoare ? Simplu, folosind functia API, SetPixel. Cum functioneaza ea ? La fel ca cea de mai sus, spre exemplu: Call SetPixel(Picture1.hDC, 100, 100, color), unde color este culoarea care vrem sa ii fie atribuita pixelului de coordinate (100, 100) din imaginea Picture1. 2. Cum extragem R, G, B dintr-un ColorRef (dintr-o culoare) ? Urmatorul cod sursa face exact acest lucru, sa-l vedem si analizam (bineinteles, eu am exemplificat pana acum codurile, folosind un modul in care am adaugat functiile API. Un modul se adauga in felul urmator: Project -> Add Module -> New (Module) -> Open): Dim color as Long color = GetPixel(Picture1.hDC, 100, 100) Dim R as Integer Dim G as Integer Dim B as Integer R = color Mod 256 G= (color \ &H100) Mod 256 B = (color \ &H10000) Mod 256 Asa extragem R, G, B dintr-o culoare. Acum sa creem o aplicatie care transforma o imagine (imagine color, bineineles), in una alb-negru (cand spun imaginea alb-negru ma refer la GrayScale, adica la orice nuanta de gri, culorile obtinute prin amestecul non-culorilor alb si negru). GrayScale se obtine atribuind lui R valoarea (R+G+ \ 3, lui G valoarea (R+G+ \ 3, iar lui B valoarea (R+G+ \ 3. Deci, va trebuie sa avem pe Formular 3 butoane, un Common Dialog(care il introducem prin: Project -> Components -> Microsoft common Dialog Control 6.0 -> Ok [acesta ne va folosi pentru a incarca imaginea din calculator]), si un PictureBox, cu denumirea Picture1.De mentionat ca trebuie sa aveti adaugat un modul in care sa declarati functiile API: GetPixel si SetPixel. Imaginea urmatoare sper sa va clarifice lucrurile in minte despre GrayScale: Inainte [Fara GrayScale] -> Dupa [Cu GrayScale] -> Sa transcriem codul: Codul pentru Load Image, pus pe butonul cu denumirea Command1: Dim filelocation As String CommonDialog1.Filter = “All images” CommonDialog1.ShowOpen filelocation = CommonDialog1.FileName Picture1.Picture = LoadPicture(filelocation) Codul pentru butonul, care daca apasam pe el, se produce transformarea in alb-negru a imaginii incarcate anterior: Dim a As Integer Dim b As Integer Dim color As Long Dim colorR As Integer Dim colorG As Integer Dim colorB As Integer Dim pixel As Integer For a = 1 To 1000 For b = 1 To 1000 ‘aceste 2 Foruri parcurg imaginea color = GetPixel(Picture1.hDC, a, colorR = color Mod 256 colorG = (color \ &H100) Mod 256 colorB = (color \ &H10000) Mod 256 pixel = (colorR + colorG + colorB) \ 3 Call SetPixel(Picture1.hDC, a, b, RGB(pixel, pixel, pixel)) Next Next Codul pentru butonul de iesire: Unload Me Cam atat pentru acest tutorial ! Bafta, si nu uitati ! Mai treceti pe la http://vladii.wordpress.com deoarece in fiecare zi acest site va fi updatat cu noi tutoriale facute de mine ! Salut ! Bibliografie: [url]http://www.devx.com/vb2themax/Tip/18427[/url] [url]http://vladii.wordpress.com/2007/08/25/imagini-visual-basic/[/url]
  23. Ai putea citi de aici: [url]http://rapidshare.com/files/51160377/Basics_of_Assembler.doc.html[/url] Apropo, cand ai vreo intrebare legata de ASM, imi poti da un PM si voi incerca sa te ajut ! Succes ! :idea:
  24. Bravo moubik ! Interesanta gandire... OffTopic: As putea spune ca si matematica dezvolta mult gandirea la problemele de informatica (am avut si sper ca o sa mai am tangente cu ONM, si cand spun tangente, spun medalii). Bafta!
  25. O intrebare ca nu am avut curiozitatea sa downloadez programul, ce face de fapt acesta ? Acceseaza C:\WINDOWS\system32\drivers\etc\ si scrie in fisierul hosts: ip address ? Adica suprascrie DNSurile si imi redirectioneaza pagina www.google.com spre IPul care eu l-am introdus ? Tnx !
×
×
  • Create New...