[Cryptage] file_bin_XOR

Invité

après avoir consulté quelques documents sur le cryptage et tout ça, j'ai décidé de faire une petite fonction qui permet de crypter les fichier par algorithme xor + inversion des octets.
enfin ce n'est pas vraiment epic comme fonction et puis je suis pas le premier a le faire alors bon. Mr. Green

le script :

Code:: //file_bin_XOR(File,Key)
var File,Size,ByteLst,EncKey,Ind, Rd, Wr;
if file_exists(argument0) {File=file_bin_open(argument0,2)} else {show_message('Fichier inexistant') exit;}
Size=file_bin_size(File)
ByteLst=ds_list_create()
EncKey=argument1
Ind=0 Rd=0 Wr=0
do {ds_list_add(ByteLst,file_bin_read_byte(File)) Rd+=1} until (Rd>=Size)
file_bin_rewrite(File)
do {file_bin_write_byte(File,~(ds_list_find_value(ByteLst,Wr)^ord(string_char_at(EncKey,Ind))))
if (Ind<string_length(EncKey)) {Ind+=1} else {Ind=0} Wr+=1} until (Wr>=Size)
ds_list_destroy(ByteLst)
file_bin_close(File)

exemple pour les noobs :

Lol pas mal Very Happy

T'as déjà fait des speed test ?

_________________
Suivez la timeline ! The PacWars Timeline
C# .NET, Web & Sound Design.
---
Oldies: http://livegallery.lescigales.org/
Lawl :

Spoiler:

» Cryptage xor
» cryptage sténographique-ouate ?
» System de cryptage de fichier
» [Fonctionnel] Cryptage de string par l'algorythme XOR
» Script de cryptage d'un fichier par XOr avec choix de la clé