مطالبی برای شماها

برگرفته از كتاب انديشه هاي يك هكر

براي كار بايد كامپوننت Registry controler را فراخواني كنيد

 Dim f As String 'اين يك متغير عمومي است كه در تمام برنامه قابليت فراخواني را دارد'

 

 

Private Sub Command1_Click() 'كليد ورود'

 

f = GetSetting("pass", "Setting", "value", "nothing")

'كلمه رمز از رجيستري خوانده مي شودو در متغير قرار مي گيرد'

 

'اگر مرز با عبارت وارد شده كاربر برابر بود شرط اجرا مي شود'

If f = Text1.Text Then

 

Reg1.hKey = HKEY_LOCAL_MACHINE

Reg1.Path = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"

Reg1.ValueName = "shell"

Reg1.Data = "explorer.exe"

Reg1.SetValue

'برنامه explorer را در كليد Shell قرار مي دهيم'

'''''''''''''''''''''''''''

Shell "explorer.exe"

'دستور Explorer.exe را اجرا مي كنيم تا سيستم بالا بيايد'

'''''''''''''''''''''''''''

Reg1.hKey = HKEY_LOCAL_MACHINE

Reg1.Path = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"

Reg1.ValueName = "shell"

Reg1.Data = "c:\myprog.exe"

Reg1.SetValue

'باز مسير برنامه خودمان را در Shell قرار مي دهيم'

 

End If

 

End Sub

 

Private Sub Command2_Click() 'ورود كلمه عبور'

 

Call SaveSetting("pass", "Setting", "value", Text2)

'رمز تعريف شده كاربر را در رجيستري ذخيره مي كنيم'

'''''''''''''''''''''''''''''''''

Reg1.hKey = HKEY_LOCAL_MACHINE

Reg1.Path = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"

Reg1.DataType = REG_SZ

Reg1.ValueName = "shell"

Reg1.CreateKey

Reg1.Data = "c:\myprog.exe"

Reg1.SetValue

' مسير برنامه خودمان را در Shell قرار مي دهيم'

 

End Sub

 

 

Private Sub Form_Load() 'هنگام لود صفحه اين كدها اجرا مي شود'

 

f = GetSetting("pass", "Setting", "value", "nothing")

 

If f <> "nothing" Then

 

Command2.Visible = False

Text2.Visible = False

 

End If

f = ""

 

' اگر قبلاً رمزي براي سيستم تعريف شده بود command2 و Text2 نمايش داده نخواهند شد'

 

End Sub