Merhaba muritler bir veriyi regeditte HKEY_USERS altında \S-1-5-18\Console bunun gibi kullanıcının değişken oldugu (S-1-5-18) kısmına ekliyecegim ancak kullanıcının kim oldugu değişken ve S-1-5-18 bu şekilde şifrelenmiş bunun bir kısayolu varmı S-1-5-18 ve kullanıcı kısmını bilmeden kayıtı regedite ekliyecegim visualbasic veya msdos dandan olabilir Aslında hepimiz eksiğiz biraz Leylası olmayan mecnunlarız Ne sıcacık bir ismail abimiz var. Nede ktü zamanda Yanımızda olan İskender babamız Ne mahellemizi mahalle yapan Erdal bakkalımız ne her kapıyı açan yavuz abimiz nede bize doğru yolu gsteren dedemiz.

Teşekkürler hocam Aslında hepimiz eksiğiz biraz Leylası olmayan mecnunlarız Ne sıcacık bir ismail abimiz var. Nede ktü zamanda Yanımızda olan İskender babamız Ne mahellemizi mahalle yapan Erdal bakkalımız ne her kapıyı açan yavuz abimiz nede bize doğru yolu gsteren dedemiz.

nce registryi okuyoruz sonra işlem yapıyoruz Private Sub Command1_Click On Error Resume Next Kill App. Path & "\ . reg" Dim reg Set reg = CreateObject For i = 0 To runanahtarlari. ListCount - 1 reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\SocketConnect", "00000001", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\AutoPortSelect", "00000001", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\InputsEnabled", "00000001", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\LocalInputsDisabled", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\IdleTimeout", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\LocalInputsPriorityTime", "00000003", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\QuerySetting", "00000002", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\QueryTimeout", "00000030", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\QueryAccept", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\QueryAllowNoPass", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\LockSetting", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\RemoveWallpaper", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\BlankScreen", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\EnableFileTransfers", "00000001", "REG_DWORD" 'reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\Password", "a7, f8, fc,86,73,15, b7, ff", "REG_BINARY" 'TEST 'reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\PasswordViewOnly", "a7, f8, fc,86,73,15, b7, ff", "REG_BINARY" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\PollUnderCursor", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\PollForeground", "00000001", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\PollFullScreen", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\OnlyPollConsole", "00000001", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\OnlyPollOnEvent", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\PollingCycle", "00000300", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\DontSetHooks", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\DontUseDriver", "00000000", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\DriverDirectAccess", "00000001", "REG_DWORD" reg. RegWrite "HKEY_USERS\" & runanahtarlari. List & "\Software\ORL\WinVNC3\LocalInputsPriority", "00000000", "REG_DWORD" Open App. Path & "\" & i & "_hexicin. reg" For Output As #1 Print #1, "Windows Registry Editor Version 5.00" Print #1, " " Print #1, Text1. Text Close #1 Next i MsgBox "Program klasrüne reg dosyaları oluşturuldu, onlarıda çalıştır" End Sub Private Sub Form_Load Dim RegArray As String Dim intLoop As Integer RegArray = EnumRegKey If (RegArray(0) <> "Nothing") Then For intLoop = 0 To UBound runanahtarlari. AddItem RegArray Next intLoop End If End Sub Modül dosyası: Public Enum Hive = &H80000000 = &H80000001 = &H80000002 = &H80000003 End Enum Public Enum DataType = 1 = 4 End Enum Global Const ERROR_NONE = 0 Global Const ERROR_BADDB = 1 Global Const ERROR_BADKEY = 2 Global Const ERROR_CANTOPEN = 3 Global Const ERROR_CANTREAD = 4 Global Const ERROR_CANTWRITE = 5 Global Const ERROR_OUTOFMEMORY = 6 Global Const ERROR_INVALID_PARAMETER = 7 Global Const ERROR_ACCESS_DENIED = 8 Global Const ERROR_INVALID_PARAMETERS = 87 Global Const ERROR_NO_MORE_ITEMS = 259 Global Const KEY_ALL_ACCESS = &H3F Global Const REG_OPTION_NON_VOLATILE = 0 Declare Function RegCloseKey Lib "advapi32. dll" As Long Declare Function RegCreateKeyEx Lib "advapi32. dll" Alias "RegCreateKeyExA" _ As Long Declare Function RegOpenKeyEx Lib "advapi32. dll" Alias "RegOpenKeyExA" _ As Long Declare Function RegQueryValueExString Lib "advapi32. dll" Alias "RegQueryValueExA" _ As Long Declare Function RegQueryValueExLong Lib "advapi32. dll" Alias "RegQueryValueExA" _ As Long Declare Function RegQueryValueExNULL Lib "advapi32. dll" Alias "RegQueryValueExA" _ As Long Declare Function RegSetValueExString Lib "advapi32. dll" Alias "RegSetValueExA" _ As Long Declare Function RegSetValueExLong Lib "advapi32. dll" Alias "RegSetValueExA" _ As Long Declare Function RegDeleteKey& Lib "advapi32. dll" Alias "RegDeleteKeyA" Declare Function RegDeleteValue& Lib "advapi32. dll" Alias "RegDeleteValueA" Declare Function RegOpenKey Lib "advapi32. dll" Alias "RegOpenKeyA" As Long Declare Function RegEnumKeyEx Lib "advapi32. dll" Alias "RegEnumKeyExA" As Long Declare Function RegEnumValue Lib "advapi32. dll" Alias "RegEnumValueA" As Long Public Function EnumRegKey As String Dim hKey As Long Dim Cnt As Long Dim sSave As String Dim strKeys As String RegOpenKey lPredefinedKey, sKeyName, hKey Do sSave = String(255, 0) If RegEnumKeyEx(hKey, Cnt, sSave, 255, 0, vbNullString, ByVal 0&, ByVal 0&) <> 0 Or sSave = vbNullString Then Exit Do Else ReDim Preserve strKeys strKeys = StripTerminator Cnt = Cnt + 1 End If Loop RegCloseKey hKey EnumRegKey = strKeys End Function Private Function StripTerminator As String Dim ZeroPos As Integer ZeroPos = InStr(1, sInput, vbNullChar) If ZeroPos > 0 Then StripTerminator = Left$(sInput, ZeroPos - 1) Else StripTerminator = sInput End If End Function http://www.multiupload.com/V49VP3VD0H

up Aslında hepimiz eksiğiz biraz Leylası olmayan mecnunlarız Ne sıcacık bir ismail abimiz var. Nede ktü zamanda Yanımızda olan İskender babamız Ne mahellemizi mahalle yapan Erdal bakkalımız ne her kapıyı açan yavuz abimiz nede bize doğru yolu gsteren dedemiz.