Bonjour,
Je cherche a crypter puis decrypter via une cles par exemple un fichier texte en vbs...
Je sais vraiment pas par ou commencer... sur le net j ai pas reussit a trouvé quelque chose dans se genre. Besoin d'un ptit coup de main svp
Bonjour,
Je cherche a crypter puis decrypter via une cles par exemple un fichier texte en vbs...
Je sais vraiment pas par ou commencer... sur le net j ai pas reussit a trouvé quelque chose dans se genre. Besoin d'un ptit coup de main svp
J'ai trouvé un ptit code qui permet de comprendre et d'avancer sur se problème
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 «Encrypt.vbs set x = WScript.CreateObject("WScript.Shell") x = WScript.CreateObject ("WScript.Shell") txt = inputbox("enter text to be encoded") txt = inputbox ("saisir du texte à coder") msgbox encode(txt) encoder msgbox (txt) x.Run "%windir%\notepad" x.Run "% windir% \ notepad" wscript.sleep 1000 WScript.Sleep 1000 x.sendkeys encode(txt) encoder x.sendkeys (txt) function encode(s) coder la fonction (s) For i = 1 To Len(s) Pour i = 1 To Len (s) newtxt = Mid(s, i, 1) newtxt = Mid (s, i, 1) newtxt = Chr(Asc(newtxt)+3) newtxt = Chr (Asc (newtxt) +3) coded = coded & newtxt code = code & newtxt Next Prochain encode = coded encoder = codé End Function End Function «Decrypt.vbs set x = WScript.createobject("wscript.shell") x = WScript.CreateObject ("WScript.Shell") txt = inputbox("enter text to be decoded") txt = inputbox ("saisir du texte à décoder") msgbox encode(txt) encoder msgbox (txt) x.Run "%windir%\notepad" x.Run "% windir% \ notepad" wscript.sleep 1000 WScript.Sleep 1000 x.sendkeys encode(txt) function encode(s) encoder x.sendkeys (txt) codent fonction (s) For i = 1 To Len(s) Pour i = 1 To Len (s) newtxt = Mid(s, i, 1) newtxt = Mid (s, i, 1) newtxt = Chr(Asc(newtxt)-3) newtxt = Chr (Asc (newtxt) -3) coded = coded & newtxt code = code & newtxt Next Prochain encode = coded encoder = codé End Function End Function
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager