Proteger votre pc quan quelqun d'autre vien dessus

Commenter

Contenu du snippet

voila quan votre gamin ou une personn en qui vous s'aver par tres confiance informatiquement parlant ces quelque ligne de code sont pour vous elle permette de mette des restriction a votre ordinateur en crean des cle dans regedit il ya a moyen tres simple de les enlever une fois lancer c'est de mettre toute les valeur cree a 0 sa les rendra inutil.voila j'espere que sa servira a plein dmonde j'atten vos commentaire.

Source / Exemple :

'SYSTEM

Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\DisableTaskMgr",1,"REG_DWORD" '
'enleve le gestionnaire de tache
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\DisableRegistryTools",1,"REG_DWORD"
  '(desactive l'utilisation de regedit)
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoDispCPL",1,"REG_DWORD"
   '(desactive laccé aux propriété d'affichage)
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoDispAppearancePage",1,"REG_DWORD"
    'cache le panneau "apparence")
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoDispBackgroundPage",1,"REG_DWORD"
  '("cache le panneau" "arriere plan")
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoDispScrSavPage",1,"REG_DWORD"
   ' ("cache le panneau" "ecran de veille")
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoDispSettingsPage",1,"REG_DWORD"
  '("cache le panneau " "parametre")
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoConfigPage",1,"REG_DWORD"
  ' ("cache le panneau " "profils materiel
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoDevMgrPage",1,"REG_DWORD"
  '("cache le panneau " "gestionnaire de periferi
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoFileSysPage",1,"REG_DWORD"
  '("cache le panneau" "systemme fichier
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoVirtMemPage",1,"REG_DWORD"
  '("cache le panneau" "memoir virtuelle
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoAdminPage",1,"REG_DWORD"
  '("cache le panneau" "administrateur distans
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoPwdPage",1,"REG_DWORD"
    ' (cache le panneau modification mot de passe
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoSecCPL",1,"REG_DWORD"
  '(desactive l'accer o mot de passe dans panneau de configuration
  Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoFolderOptions",1,"REG_DWORD"
   '(enleve option de dossier dans demarrer
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoRecentDocsMenu",1,"REG_DWORD"
   'enleve document de demarrer
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\NoFavoritesMenu",1,"REG_DWORD"
   ' enleve favoris de demarrer
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\System\\\\\\\\DisableInHelp",1,"REG_DWORD"
   ' empeche les programme de sexecuter a partir de l'aide en ligne
   
   
   
           'NETWORK
           
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Network\\\\\\\\NoEntireNetwork",1,"REG_DWORD"
    'Masque l'icône Réseau global dans Voisinage réseau
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Network\\\\\\\\NoPrintSharing",1,"REG_DWORD"
    'Désactive le partage de(s) (l') imprimante(s)
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Network\\\\\\\\NoFileSharing",1,"REG_DWORD"
    'Désactive le partage des fichiers
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Network\\\\\\\\NoWorkgroupContents",1,"REG_DWORD"
    'Dans le voisinage Réseau , le nom les autres membres est masqué
     'et il ne reste plus que des liens
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Network\\\\\\\\NoNetSetup",1,"REG_DWORD"
    'Le module Réseau du Panneau de Configuration est masqué mais
    'tout les partages fonctionnent
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Network\\\\\\\\NoNetSetupSecurityPage",1,"REG_DWORD"
    'L'onglet contrôle d'accès du Panneau de configuration est masqué
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Network\\\\\\\\NoNetSetupIDPage",1,"REG_DWORD"
    'L'onglet identification du Panneau de configuration est masqué
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Network\\\\\\\\DistabledPwdCaching",1,"REG_DWORD"
    'Les mots de passe dont on a coché la case enregistrez automatiquement le mot de passe ne sera plus stocké dans la liste
    'des mots de passes et devra être à chaque fois réentré .
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Network\\\\\\\\NoFileSharingControl",1,"REG_DWORD"
    'Le bouton Partage de fichiers et d'imprimantes est masqué dans le
    'Panneau de Configuration et le Partager est masqué du menu contextuel dans l"explorateur .
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Network\\\\\\\\NoPrintSharingControl",1,"REG_DWORD"
    'Les imprimantes ne peuvent plus être partagées .
    
    
    
        'EXPLORER
        
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\ClearRecentDocsOnExit",1,"REG_DWORD"
   'effacer le contenu de document dans le menu demarrer)
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoActiveDesktopChanges",1,"REG_DWORD"
   'nutilise pas activedeskop
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoAddPrinter",1,"REG_DWORD"
   'nenregistre pas les changement pour active deskop
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoDeletePrinter",1,"REG_DWORD"
  'empeche les changemen d'imprimante
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoChangeStartmenu",1,"REG_DWORD"
  ' impossible de changer le contenu du menu demarrer
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoClose",1,"REG_DWORD"
  'empeche de redemarrer le systeme par la commande arreter
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoDestop",1,"REG_DWORD"
  'les icone du bureau ne sopnt plus visible et le clik droit est desactivé
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoDrives",1,"REG_DWORD"
  'les lecteur du poste de travaille ne sont plus visible
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoFileMenu",1,"REG_DWORD"
   'enleve le menu fichier de tout les program
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoFind",1,"REG_DWORD"
    'desactif la fonction rechercher mais est detournable par  raccourci de windows + F
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoLogoff",1,"REG_DWORD"
    'impossible de changer d'utilisateur reseau
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoNetConnectDisconnect",1,"REG_DWORD"
    'bloque internet
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoRun",1,"REG_DWORD"
    'desactive la commande executer
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoSaveSetting",1,"REG_DWORD"
    'les changemen sur le bureau ne sont pas enregistrer
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoSetFolders",1,"REG_DWORD"
    'interdit l'accer o panneau de configuration)
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoSetTaskbar",1,"REG_DWORD"
    'interdit la modification des propriete dans la barre des tache
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoStartMenuSubfolder",1,"REG_DWORD"
    '(desactiv les sous menu du menu demarrer
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\Explorer\\\\\\\\NoTrayContextMenu",1,"REG_DWORD"
    '(desactive le clique drois sur la barre de tache)

               'ACTIVEDESKTOP
               

Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\ActiveDesktop\\\\\\\\NoAddingComponents",1,"REG_DWORD"
    'effacer le contenu de "document" dans le menu demarrer)
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\ActiveDesktop\\\\\\\\NoChangingWallPaper",1,"REG_DWORD"
    'empeche le changement de papier peint
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\ActiveDesktop\\\\\\\\NoCloseDragDropBands",1,"REG_DWORD"
    'je c plus lol
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\ActiveDesktop\\\\\\\\NoClosingComponents",1,"REG_DWORD"
    'helas pareille pour celle la
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\ActiveDesktop\\\\\\\\NoDeletingComponents",1,"REG_DWORD"
    'empeche la delection des icone
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\ActiveDesktop\\\\\\\\NoEditingComponents",1,"REG_DWORD"
    'c plus lol
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\ActiveDesktop\\\\\\\\NoHTMLWallPaper",1,"REG_DWORD"
    '(pas de font d'ecran en html)
Set WS = CreateObject("WScript.Shell")
WS.RegWrite "HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Windows\\\\\\\\CurrentVersion\\\\\\\\Policies\\\\\\\\ActiveDesktop\\\\\\\\NoMovingBands",1,"REG_DWORD"
    'jme rapelle plus de rien lol

Conclusion :

et voila j'ai remis la source a jour la j'ai tout mi il ya encore quelque (enfin quelque lol) que j'ai pas mi parsque j'en pouvais plus de tout taper lol.

A voir également

Proteger votre pc quan quelqun d'autre vien dessus
Comment proteger son idee d application - Forum VB.NET
Protéger son code python - Forum PHP
Buzz pc - Forum C
Comment protéger une idée d'application ✓ - Forum VB.NET
Pocket pc freeware - Forum Visual Basic

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Proteger votre pc quan quelqun d'autre vien dessus

Contenu du snippet

Source / Exemple :

Conclusion :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Du même auteur (kickbar)

Creation et gestion de compte utilisateur (haute securite , verification par hash)

Passer de decimal a hexadecimal sans calculatrice, ni la fonction hex()

Acssi a decimal ; decimal a acssi et d'autre chose ........

Program passan de acsii a decimal de decimal a acsii et de acsii a hexadetimal

Tuto sur la randomization en vbs

Source / Exemple :

Conclusion :

A voir également

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Du même auteur (kickbar)

Creation et gestion de compte utilisateur (haute securite , verification par hash)

Passer de decimal a hexadecimal sans calculatrice, ni la fonction hex()

Acssi a decimal ; decimal a acssi et d'autre chose ........

Program passan de acsii a decimal de decimal a acsii et de acsii a hexadetimal

Tuto sur la randomization en vbs

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !