API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 2nd, 2011
92
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 14.19 KB | None | 0 0
raw download clone embed print report
  1. #cs ----------------------------------------------------------------------------
  2.  
  3.  AutoIt Version: 3.3.6.1
  4.  Software Version: 2.0.0
  5.  Author:         bad
  6.  
  7.  Script Function:
  8.     Programma per la sicurezza del PC
  9.  
  10. #ce ----------------------------------------------------------------------------
  11. ;~ #NoTrayIcon
  12.  
  13. #include <GUIConstantsEx.au3>
  14. #include <WindowsConstants.au3>
  15. #include <String.au3>
  16.  
  17. Global $Lock = 0
  18. Global $Admin = 0
  19.  
  20. Global $Code, $ReadUser, $RegOnAdminList, $DelOnAdminList, $Refresh
  21.  
  22. If RegRead("HKEY_CURRENT_USER\Software\bad's Security Software", 'Welcome') <> 'badregna' Then
  23.     IniWrite('Settings.ini', 'Color', 'label', '0xFF0000')
  24.     IniWrite('Settings.ini', 'Color', 'user-input', '0x00FFFF')
  25.     IniWrite('Settings.ini', 'Color', 'password-input', '0x0000FF')
  26.     IniWrite('Settings.ini', 'Color', 'code-input', '0xFFFF00')
  27.     IniWrite('Settings.ini', 'Color', 'button', '0xFFFF00')
  28.    
  29.     RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'Welcome', "REG_SZ", 'badregna')
  30.    
  31.     MsgBox(64, 'Benvenuto', "Questa è la prima volta che utilizzi bad's Security Software, questo programma è stato creato per essere sicuri che nessuno, oltre alle persone a conoscenza degli account e delle loro password, accedano al computer." & @CRLF & "Beh, che altro dire, buon utilizzo =D" & @CRLF & @CRLF & "bad")
  32.     MsgBox(48, 'Inserisci i dati', "Ora ti verrano chiesti i dati (user, password, codice di criptazione) per configurare bad's Security Software")
  33.    
  34.     Do
  35.         Do
  36.             $User = InputBox('User', "Inserisci l' user che vuoi utilizzare per creare il tuo account admin", "root")
  37.            
  38.             If $User = '' Then
  39.                 MsgBox(48, 'Errore!', "Non puoi lasciare vuoto il campo per inserire il tuo user!")
  40.             EndIf
  41.         Until $User <> ''  
  42.        
  43.         $UserSplit = StringSplit($User, '.')
  44.        
  45.         If $UserSplit[0] > 1 Then
  46.             MsgBox(48, 'Errore!', "Nel tuo user non puoi utilizzare questo carattere: .")
  47.         EndIf
  48.     Until $UserSplit[0] = 1    
  49.    
  50.     $Password = InputBox('Password', "Inserisci la password che vuoi utilizzare per " & $User, "12345")
  51.     $Code = InputBox('Code', "Inserisci il codice che servirà per criptare le informazioni degli account", "badregna")
  52.    
  53.     RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", $User, "REG_SZ", _StringEncrypt(1, $Password, $Code, 10))
  54.     RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'admin_list', "REG_SZ", _StringEncrypt(1, $User & '.', $Code, 10))
  55.     RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'user_list', "REG_SZ", '')
  56.    
  57.     MsgBox(64, 'Info', "Per modificare/aggiungere/eliminare account dovrete entrare come admin durante il login (con l'account che avete appena creato)")
  58. EndIf  
  59.  
  60. If FileExists(@MyDocumentsDir & '/bad') Then $Lock = 1 
  61.    
  62. MsgBox(64, 'Info', 'Per attivare il sistema di protezione premere F6') 
  63.  
  64. Init() 
  65.  
  66. Func Init()
  67.     Do
  68.         HotKeySet('{F6}', 'Lock')
  69.     Until $Lock = 1
  70.  
  71.     IsLock()
  72. EndFunc
  73.  
  74. Func IsLock()
  75.     FileWrite(@MyDocumentsDir & '/bad', Random(1111111111111, 999999999999999))
  76.    
  77.     $PrincipalGUI = GUICreate("bad's Security Software", @DesktopWidth, @DesktopHeight, 0, 0, 0x80000000)
  78.     WinSetOnTop("bad's Security Software", '', 1)
  79.     GUISetCursor(3)
  80.     GUISetBkColor(0x000000)
  81.    
  82.     $Label = GUICtrlCreateLabel("bad's Security Software", (@DesktopWidth / 2) - 350, (@DesktopHeight / 2) - 180, 800, 100)
  83.     GUICtrlSetFont(-1, 40)
  84.     GUICtrlSetColor(-1, IniRead('Settings.ini', 'Color', 'label', '0xFF0000'))
  85.     GUICtrlSetCursor(-1, 3)
  86.    
  87.     $UserInput = GUICtrlCreateInput('', (@DesktopWidth / 2) - 150, (@DesktopHeight / 2) - 30, 300, 20)
  88.     GUICtrlSetBkColor(-1, 0x000000)
  89.     GUICtrlSetColor(-1, IniRead('Settings.ini', 'Color', 'user-input', '0x00FFFF'))
  90.     GUICtrlSetCursor(-1, 3)
  91.    
  92.     $PasswordInput = GUICtrlCreateInput('', (@DesktopWidth / 2) - 150, (@DesktopHeight / 2), 300, 20, 0x0020)
  93.     GUICtrlSetBkColor(-1, 0x000000)
  94.     GUICtrlSetColor(-1, IniRead('Settings.ini', 'Color', 'password-input', '0x0000FF'))
  95.     GUICtrlSetCursor(-1, 3)
  96.    
  97.     $CodeInput = GUICtrlCreateInput('', (@DesktopWidth / 2) - 150, (@DesktopHeight / 2) + 30, 300, 20)
  98.     GUICtrlSetBkColor(-1, 0x000000)
  99.     GUICtrlSetColor(-1, IniRead('Settings.ini', 'Color', 'code-input', '0xFFFF00'))
  100.     GUICtrlSetCursor(-1, 3)
  101.    
  102.     $GoButton = GUICtrlCreateButton('Unlock', (@DesktopWidth / 2) - 150, (@DesktopHeight / 2) + 70, 50, 20)
  103.     GUICtrlSetBkColor(-1, 0x000000)
  104.     GUICtrlSetColor(-1, IniRead('Settings.ini', 'Color', 'button', '0xFFFF00'))
  105.     GUICtrlSetCursor(-1, 15)
  106.  
  107.     GUISetState(@SW_SHOW)
  108.    
  109.     Do
  110.         Switch GUIGetMsg()
  111.             Case $GoButton         
  112.                 $UserRegRead = RegRead("HKEY_CURRENT_USER\Software\bad's Security Software", GUICtrlRead($UserInput))
  113.  
  114.                 If _StringEncrypt(0, $UserRegRead, GUICtrlRead($CodeInput), 10) = GUICtrlRead($PasswordInput) And $UserRegRead <> '' Then
  115.                     FileDelete(@MyDocumentsDir & '/bad')
  116.                     $Lock = 0
  117.                 Else
  118.                     GUICtrlSetFont($Label, 30)
  119.                     GUICtrlSetData($Label, "Username o/e Password Errato/i")
  120.                    
  121.                     Sleep(2500)
  122.                    
  123.                     GUICtrlSetFont($Label, 40)
  124.                     GUICtrlSetData($Label, "bad's Security Software")
  125.                 EndIf
  126.         EndSwitch  
  127.        
  128.         If ProcessExists('taskmgr.exe') Then ProcessClose('taskmgr.exe')
  129.         If WinActive("bad's Security Software") = 0 Then WinActivate("bad's Security Software", "")
  130.         Until $Lock = 0
  131.        
  132.     $AdminListRegRead = RegRead("HKEY_CURRENT_USER\Software\bad's Security Software", 'admin_list')
  133.     $AdminList = StringSplit(_StringEncrypt(0, $AdminListRegRead, GUICtrlRead($CodeInput), 10), '.')
  134.     For $i = 1 To UBound($AdminList) -1
  135.         If $AdminList[$i] = GUICtrlRead($UserInput) Then
  136.             $Admin = 1
  137.            
  138.             ExitLoop
  139.         EndIf  
  140.     Next   
  141.    
  142.     $ReadUser = GUICtrlRead($UserInput)
  143.     $Code = GUICtrlRead($CodeInput)
  144.    
  145.     If $Admin = 1 Then
  146.         GUIDelete($PrincipalGUI)
  147.         MsgBox(48, 'Login', 'Benvenuto admin ' & $ReadUser)
  148.        
  149.         AdminPannel()
  150.     Else
  151.         GUIDelete($PrincipalGUI)
  152.         MsgBox(48, 'Login', 'Benvenuto ' & $ReadUser)
  153.        
  154.         Init()
  155.     EndIf  
  156. EndFunc    
  157.  
  158. Func Lock()
  159.     $Lock = 1
  160. EndFunc
  161.  
  162. Func AdminPannel() 
  163.     $AdminGUI = GUICreate('Admin Pannel', 300, 226, -1, -1)
  164.     GUISetBkColor(0xFFFFFF)
  165.    
  166.     $Input = GUICtrlCreateInput('', 2, 182, 296, 20)
  167.    
  168.     $RunButton = GUICtrlCreateButton('Run', 2, 204, 60, 20)
  169.     $HelpButton = GUICtrlCreateButton('Help', 64, 204, 60, 20)
  170.    
  171.     $List = GUICtrlCreateListView('user|password|admin', 0, 0, 300, 180)
  172.    
  173.     $UserListRegRead = _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\bad's Security Software", 'user_list'), $Code, 10)
  174.     $UserList = StringSplit($UserListRegRead, '.')
  175.    
  176.     $AdminListRegRead = _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\bad's Security Software", 'admin_list'), $Code, 10)
  177.     $AdminList = StringSplit($AdminListRegRead, '.')
  178.    
  179.     If $AdminList[0] > 1 Then
  180.         For $i = 1 To UBound($AdminList) -1
  181.             GUICtrlCreateListViewItem($AdminList[$i] & '|' & _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\bad's Security Software", $AdminList[$i]), $Code, 10) & '|si', $List)   
  182.        
  183.             If $AdminList[0] - $i = 1 Then ExitLoop
  184.         Next   
  185.     EndIf  
  186.    
  187.     If $UserList[0] > 1 Then
  188.         For $i = 1 To UBound($UserList) - 1
  189.             GUICtrlCreateListViewItem($UserList[$i] & '|' & _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\bad's Security Software", $UserList[$i]), $Code, 10) & '|no', $List) 
  190.        
  191.             If $UserList[0] - $i = 1 Then ExitLoop
  192.         Next
  193.     EndIf
  194.    
  195.     GUISetState(@SW_SHOW)
  196.    
  197.     While 1
  198.         Switch GUIGetMsg()
  199.             Case -3
  200.                 MsgBox(48, 'Ciao', 'Ciao ' & $ReadUser & ' =)')
  201.                 $Refresh = 0
  202.                 ExitLoop
  203.                
  204.             Case $HelpButton
  205.                 MsgBox(64, 'Help', "Benvenuto nell' help di bad's Security Software!" & @CRLF & "Qui sotto riporterò i vari comandi dispobili da runnare:" & @CRLF & @CRLF & @TAB & "add = Aggiunge un account" & @CRLF & @TAB & "Sintassi: add nome_utente password si[per creare un account admin]/no[per creare un account normale]" & @CRLF & @CRLF & @TAB & "del = Elimina un account" & @CRLF & @TAB & "Sintassi: del nome_utente" & @CRLF & @CRLF & @TAB & "mun = Modifica Username" & @CRLF & @TAB & "Sintassi: mun vecchio_user nuovo_user" & @CRLF & @CRLF & @TAB & "mpw = Modifica password" & @CRLF & @TAB & "Sintassi: mpw nome_utente nuova_password")
  206.            
  207.             Case $RunButton
  208.                 $ReadInput = GUICtrlRead($Input)
  209.  
  210.                 Switch StringLeft($ReadInput, 3)
  211.                     Case 'add' ;aggiunge account
  212.                         $SplitDate = StringSplit($ReadInput, ' ');$SplitDate[2] = user; $SplitDate[3] = pwd; $SplitDate[4] = admin si o no
  213.                        
  214.                         If $SplitDate[0] = 4 Then
  215.                             If $SplitDate[4] = 'si' Then
  216.                                 RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", $SplitDate[2], "REG_SZ", _StringEncrypt(1, $SplitDate[3], $Code, 10))
  217.                                 RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'admin_list', "REG_SZ", _StringEncrypt(1, $AdminListRegRead & $SplitDate[2] & '.', $Code, 10))
  218.                            
  219.                                 MsgBox(48, 'Ok', 'Nuovo account admin: ' & $SplitDate[2] & ' aggiunto con successo')
  220.                             ElseIf $SplitDate[4] = 'no' Then
  221.                                 RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", $SplitDate[2], "REG_SZ", _StringEncrypt(1, $SplitDate[3], $Code, 10))
  222.                                
  223.                                 If $UserListRegRead <> 0 Then
  224.                                     RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'user_list', "REG_SZ", _StringEncrypt(1, $UserListRegRead & $SplitDate[2] & '.', $Code, 10))
  225.                                 Else
  226.                                     RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'user_list', "REG_SZ", _StringEncrypt(1, $SplitDate[2] & '.', $Code, 10))
  227.                                 EndIf
  228.                                
  229.                                 MsgBox(48, 'Ok', 'Nuovo account: ' & $SplitDate[2] & ' aggiunto con successo')
  230.                                
  231.                                 $Refresh = 1
  232.                                 ExitLoop
  233.                             Else
  234.                                 MsgBox(48, 'Errore!', "Leggi bene l'help! Hai commesso un errore nella sintassi del comando!")
  235.                             EndIf  
  236.                         Else
  237.                             MsgBox(48, 'Errore!', "Leggi bene l'help! Hai commesso un errore nella sintassi del comando!")
  238.                         EndIf
  239.                        
  240.                     Case 'del' ;elimina account
  241.                         $SplitDate = StringSplit($ReadInput, ' ');$SplitDate[2] = user;
  242.                        
  243.                         If $SplitDate[0] = 2 Then
  244.                             If $ReadUser = $SplitDate[2] Then
  245.                                 MsgBox(48, 'Errore!', "Non puoi eliminare l' account admin con cui sei loggato!")
  246.                             ElseIf $ReadUser <> $SplitDate[2] Then
  247.                                 RegDelete("HKEY_CURRENT_USER\Software\bad's Security Software", $SplitDate[2])
  248.                                
  249.                                 For $i = 1 To UBound($AdminList) -1
  250.                                     If $AdminList[$i] = $SplitDate[2] Then
  251.                                         $DelOnAdminList = 1
  252.                                        
  253.                                         ExitLoop
  254.                                     EndIf  
  255.                                 Next   
  256.                                
  257.                                 $UserListReplace = StringReplace($UserListRegRead, $SplitDate[2] & '.', '')
  258.                                 $AdminListReplace = StringReplace($AdminListRegRead, $SplitDate[2] & '.', '')
  259.                                
  260.                                 If $DelOnAdminList = 1 Then
  261.                                     RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'admin_list', "REG_SZ", _StringEncrypt(1, $AdminListReplace, $Code, 10))
  262.                                 Else
  263.                                     RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'user_list', "REG_SZ", _StringEncrypt(1, $UserListReplace, $Code, 10))
  264.                                 EndIf
  265.                                
  266.                                 $DelOnAdminList = 0
  267.                                    
  268.                                 MsgBox(48, 'Ok', 'Eliminato Account: ' & $SplitDate[2])
  269.                                
  270.                                 $Refresh = 1
  271.                                 ExitLoop
  272.                             EndIf  
  273.                         Else
  274.                             MsgBox(48, 'Errore!', "Leggi bene l'help! Hai commesso un errore nella sintassi del comando!")
  275.                         EndIf  
  276.                
  277.                     Case 'mun' ;modifica username
  278.                         $SplitDate = StringSplit($ReadInput, ' ');$SplitDate[2] = vecchio user; $SplitDate[3] = nuovo user;
  279.                        
  280.                         If $SplitDate[0] = 3 Then
  281.                             $Password = RegRead("HKEY_CURRENT_USER\Software\bad's Security Software", $SplitDate[2])
  282.                        
  283.                             $UserListReplace = StringReplace($UserListRegRead, $SplitDate[2], $SplitDate[3])
  284.                            
  285.                             For $i = 1 To UBound($AdminList) -1
  286.                                 If $AdminList[$i] = $SplitDate[3] Then
  287.                                     $RegOnAdminList = 1
  288.                                    
  289.                                     ExitLoop
  290.                                 EndIf  
  291.                             Next   
  292.                                
  293.                             If $RegOnAdminList = 1 Then
  294.                                 MsgBox(48, 'Errore!', "Puoi modificare l' Username solo ad account non admin")
  295.                             Else   
  296.                                 RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'user_list', "REG_SZ", _StringEncrypt(1, $UserListReplace, $Code, 10))
  297.                                 RegDelete("HKEY_CURRENT_USER\Software\bad's Security Software", $SplitDate[2])
  298.                                 RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", $SplitDate[3],  "REG_SZ", $Password)
  299.                             EndIf
  300.                            
  301.                             $RegOnAdminList = 0
  302.                            
  303.                             MsgBox(48, 'Ok', 'Nuovo Username: ' & $SplitDate[3])
  304.                            
  305.                             $Refresh = 1
  306.                             ExitLoop
  307.                         Else
  308.                             MsgBox(48, 'Errore!', "Leggi bene l'help! Hai commesso un errore nella sintassi del comando!")
  309.                         EndIf  
  310.                        
  311.                     Case 'mpw' ;modifica password
  312.                         If $SplitDate[0] = 3 Then
  313.                             $SplitDate = StringSplit($ReadInput, ' ');$SplitDate[2] = user; $SplitDate[3] = nuova pwd;
  314.                             RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", $SplitDate[2], "REG_SZ", _StringEncrypt(1, $SplitDate[3], $Code, 10))
  315.                        
  316.                             MsgBox(48, 'Ok', 'Nuova password: ' & $SplitDate[3])
  317.                            
  318.                             $Refresh = 1
  319.                             ExitLoop
  320.                         Else
  321.                             MsgBox(48, 'Errore!', "Leggi bene l'help! Hai commesso un errore nella sintassi del comando!")
  322.                         EndIf      
  323.                            
  324. ;~                      Case 'aad' ;aggiungi admin 
  325. ;~                          $SplitDate = StringSplit($ReadInput, ' ');$SplitDate[2] = user;
  326. ;~                          ConsoleWrite($AdminListRegRead)
  327. ;~                         
  328. ;~                          If $AdminListRegRead <> 0 Then
  329. ;~                              RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'admin_list', "REG_SZ", _StringEncrypt(1, $AdminListRegRead & $SplitDate[2] & '.', $Code, 10))
  330. ;~                          Else
  331. ;~                              RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'admin_list', "REG_SZ", _StringEncrypt(1, $SplitDate[2] & '.', $Code, 10))
  332. ;~                          EndIf
  333. ;~                         
  334. ;~                          MsgBox(48, 'Ok', 'Aggiunto Admin: ' & $SplitDate[2])
  335. ;~                         
  336. ;~                      Case 'dad' ;togli admin
  337. ;~                          $SplitDate = StringSplit($ReadInput, ' ');$SplitDate[2] = user;
  338. ;~                          $AdminListReplace = StringReplace($AdminListRegRead, $SplitDate[2] & '.', '')
  339. ;~                         
  340. ;~                          RegWrite("HKEY_CURRENT_USER\Software\bad's Security Software", 'admin_list', "REG_SZ", _StringEncrypt(1, $AdminListReplace, $Code, 10))
  341. ;~                 
  342. ;~                          MsgBox(48, 'Ok', 'Eliminato Admin: ' & $SplitDate[2])
  343.                 EndSwitch      
  344.         EndSwitch  
  345.     WEnd
  346.    
  347.     GUIDelete($AdminGUI)
  348.    
  349.     If $Refresh = 1 Then
  350.         AdminPannel()
  351.     Else
  352.         $Admin = 0
  353.         Init()
  354.     EndIf  
  355. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!