Advertisement
Guest User

Untitled

a guest
Jun 24th, 2019
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.32 KB | None | 0 0
  1. echo off
  2. title UnLocker PRO
  3. cls
  4. :Login
  5. echo Wpisz login
  6. set/p "login=>"
  7. cls
  8. if exist Urzytkownicy\%login% goto Password
  9. echo Nie ma takiego urzytkownika
  10. echo.
  11. if not exist Urzytkownicy\%login% goto Login
  12. :Password
  13. echo Wpisz haslo
  14. set/p "haslo=>"
  15. cls
  16. if exist Urzytkownicy\%login%\%haslo% goto MENU
  17. echo Zle haslo
  18. echo.
  19. if not exist Urzytkownicy\%login%\%haslo% goto Password
  20. :MENU
  21. echo Aby wybrac dana opcje wcisnij cyfre
  22. echo jej odpowiadajaca
  23. echo.
  24. echo 1) Rejestracja nowego urzytkownika
  25. echo 2) Nadaj prawa administratora
  26. set/p "menu=>"
  27. cls
  28. if %menu%==1 goto Rejestracja
  29. if %menu%==2 goto Prawa
  30. if %menu%==3 goto logaut
  31. if %menu%==x goto leave
  32. if %menu%==X goto leave
  33. echo Wybierz jedna z opcji
  34. echo.
  35. goto MENU
  36. :Rejestracja
  37. if not exist Urzytkownicy\%login%\Admin.txt goto RejestracjaPrawaLose
  38. echo Podaj login do nowego konta
  39. set/p "RejestracjaLogin=>"
  40. cls
  41. if exist Urzytkownicy\%RejestracjaLogin% goto RejestracjaLoginLose
  42. echo Podaj haslo do nowego konta
  43. set/p "RejestracjaHaslo=>"
  44. cls
  45. echo Tworzenie nowego konta.
  46. echo.
  47. echo [ ]
  48. timeout 2 /nobreak >nu
  49. md Urzytkownicy\%RejestracjaLogin%
  50. cls
  51. echo Tworzenie nowego konta..
  52. echo.
  53. echo [* ]
  54. timeout 2 /nobreak >nul
  55. cls
  56. echo Tworzenie nowego konta...
  57. echo.
  58. echo [** ]
  59. timeout 2 /nobreak >nul
  60. cls
  61. echo Nowe konto zostalo utworzone
  62. echo.
  63. echo [***]
  64. timeout 5 /nobreak >nul
  65. md Urzytkownicy\%RejestracjaLogin%\%RejestracjaHaslo%
  66. cls
  67. goto MENU
  68. :RejestracjaPrawaLose
  69. cls
  70. echo Nie masz praw administratora
  71. echo.
  72. goto MENU
  73. :RejestracjaLoginLos
  74. echo Istnieje juz konto o takim loginie
  75. echo.
  76. goto Rejestracja
  77. :Prawa
  78. if not exist Urzytkownicy\%login%\Admin.txt goto PrawaLose1
  79. goto Prawa1
  80. :Prawa1
  81. echo Podaj nazwe urzytkownika któremu chcesz
  82. echo nadac prawa administratora
  83. set/p "Prawa=>"
  84. if not exist Urzytkownicy\%Prawa% goto PrawaLose2
  85. if exist Urzytkownicy\%Prawa%\Admin.txt goto PrawaLose3
  86. echo Admin> Urzytkownicy\%Prawa%\Admin.txt
  87. cls
  88. echo Nadano prawo administratora dla
  89. echo urzytkownika %Prawa%
  90. echo.
  91. goto MENU
  92. :PrawaLose1
  93. cls
  94. echo Nie masz praw administratora
  95. echo.
  96. goto MENU
  97. :PrawaLose2
  98. cls
  99. echo Nie ma takiego urzytkownika
  100. echo.
  101. goto Prawa1
  102. :PrawaLose3
  103. cls
  104. echo ten urzytkownik ma juz administratora
  105. echo.
  106. goto MENU
  107. :leave
  108. cls
  109. echo Zapraszamy ponownie!
  110. timeout 5 /nobreak >nul
  111. :logaut
  112. cls
  113. goto Login
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement