HackStuff...
Aici veti gasi o gama larga de metode de hack atat pe Windows cat si pe platforme Linux/Unix , programe , tutoriale etc. In acelasi timp veti avea si asistenta help . Precizam ca tot ce se gaseste pe acest site este doar in scop de dezvoltare iar voi va asumati intreaga raspundere pt actiunile savarsite.ENJoY --- by andreony ---
|
Lista Forumurilor Pe Tematici
|
HackStuff... | Reguli | Inregistrare | Login
POZE HACKSTUFF...
Nu sunteti logat.
|
Nou pe simpatie:
Alyoana pe Simpatie
 | Femeie
24 ani
Hunedoara
cauta Barbat
24 - 55 ani |
|
andreony
[admin]
 Din: bucharest
Inregistrat: acum 18 ani
Postari: 1062
|
|
'Enable Registry Editing'
'© andreony - 3/11/2006
'This code may be freely distributed/modified
On Error Resume Next
'Prevents errors from values that don't exist
Set WshShell = WScript.CreateObject("WScript.Shell")
'Delete DisableRegistryTools registry values
WshShell.RegDelete "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools"
WshShell.RegDelete "HKLMSOFTWAREMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools"
'display message
Message = "You should have access to Regedit now"
X = MsgBox(Message, vbOKOnly, "Done")
Set WshShell = Nothing
Set fso = Nothing
Scrieti tot in notepad apoi salavti fisierul cu extensia .vbs , apoi executati fisierul
_______________________________________
------ eVoLuTiOn ------
|
|
| pus acum 18 ani |
|
andreony
[admin]
Din: bucharest
Inregistrat: acum 18 ani
Postari: 1062
|
|
' Enable/Disable the Registry editor (RegEdit.exe)
' NOTE: this routine requires the SetRegistryValue,
' DeleteRegistryValue and CheckRegistryValue routines,
' that you can find in the CodeBank under the Windows section.
'
' Example:
' ' disable Regedit
' EnableRegistryTools False
' ' enable it again
' EnableRegistryTools
Public Sub EnableRegistryTools(Optional ByVal bEnable As Boolean = True)
Dim sKey As String
Const HKEY_CURRENT_USER = &H80000001
sKey = "SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem"
If bEnable Then
' delete the value whose setting disables the registry
DeleteRegistryValue HKEY_CURRENT_USER, sKey, "DisableRegistryTools"
Else
' if the Key doesn not exist
If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
' create the key
CreateRegistryKey HKEY_CURRENT_USER, sKey
End If
' create and set the value to disable the Registry
SetRegistryValue HKEY_CURRENT_USER, sKey, "DisableRegistryTools", 1
End If
End Sub
_______________________________________
------ eVoLuTiOn ------
|
|
| pus acum 18 ani |
|
andreony
[admin]
Din: bucharest
Inregistrat: acum 18 ani
Postari: 1062
|
|
'Enable/Disable Registry Editing tools
'© andreony
Option Explicit
'Declare variables
Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype
Set WSHShell = WScript.CreateObject("WScript.Shell"
p = "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem"
p = p & "DisableRegistryTools"
itemtype = "REG_DWORD"
mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the changes"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Registry Editing Tools are now "
'This section tries to read the registry key value. If not present an
'error is generated. Normal error return should be 0 if value is
'present
t = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number
if errnum <> 0 then
'Create the registry key value for DisableRegistryTools with value 0
WSHShell.RegWrite p, 0, itemtype
End If
'If the key is present, or was created, it is toggled
'Confirmations can be disabled by commenting out
'the two MyBox lines below
If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If
_______________________________________
------ eVoLuTiOn ------
|
|
| pus acum 18 ani |
|
|
reflex
Junior
Inregistrat: acum 16 ani
Postari: 27
|
|
|
| pus acum 16 ani |
|
|
reflex
Junior
Inregistrat: acum 16 ani
Postari: 27
|
|
ee toate la timpul lor
|
|
| pus acum 16 ani |
|
biletari
Membru Junior
 Inregistrat: acum 17 ani
Postari: 143
|
|
evident,cu rabdarea treci marea 
Modificat de biletari (acum 16 ani)
_______________________________________
biletari
|
|
| pus acum 16 ani |
|
