加密脚本 脚本
jilcky 发表于 2018-03-19 03:57:23 917

/// @description  crypt_string(str,key)
/// @function  crypt_string
/// @param str
/// @param key
{
    var str, key, out, len, i, S, j, temp, pos, t;
    str = argument0;
    key = argument1;
    out = "";
    len = string_length(key);
    for (i=0; i<256; i+=1) S[i] = i;
    j = 0;
    for (i=0; i<256; i+=1) {
        j = (j + S[i] + ord(string_char_at(key,(i mod len)+1))) mod 256;
        temp = S[i];
        S[i] = S[j];
        S[j] = temp;
    }
    i = 0;
    j = 0;
    for (pos=0; pos<string_length(str); pos+=1) {
        i = (i + 1) mod 256;
        j = (j + S[i]) mod 256;
        temp = S[i];
        S[i] = S[j];
        S[j] = temp;
        t = (S[i] + S[j]) mod 256;
        out += chr(ord(string_char_at(str,pos+1)) ^ S[t]);
    }
    return out;
}
/// @description crypt_file(file_name,password)
/// @function crypt_file
/// @param file_name
/// @param password
_str=""
if !file_exists(argument0)
{
    _________f=file_text_open_append(argument0)
    file_text_close(_________f)
}
_file=file_text_open_read(argument0)
while !file_text_eof(_file)
{
    _str+=file_text_read_string(_file)
    file_text_readln(_file)
}
return(crypt_string(_str,argument1))
file_text_close(_file)


https://marketplace.yoyogames.com/assets/2091/crypt-string-and-file

最新回复 (1)