GMLscripts.com

Expand/*
** Usage:
**     my_str = crypt(str)
**
** Arguments:
**     str        String to encrypt, string
**
** Returns:
**     my_str     Result of encryption, string
**
** Notes:
**     This script works for both encryption and decryption.
**
** GMLscripts.com
*/
{
    var str, str2, i;
    str = argument0;
    str2 = '';
    for(i = 1; i <= string_length(str); i += 1) {
        str2 += chr(~ord(string_char_at(str, i)));
    }
    return str2;
}

Expand/*
** Usage:
**     file_crypt(file)
**
** Arguments:
**     file       String to encrypt, file ID
**
** Returns:
**     1          Returns a value to avoid odd behaviour described by Xot.
**
** Notes:
**     This script works for both encryption and decryption.
**
** GMLscripts.com
*/
{
    var buffer, buffer2, fp, fn, i;
    buffer = "";
    buffer2 = "";
    fn = argument0;
    fp = file_bin_open(fn, 2);
    while(file_bin_position(fp) != file_bin_size(fp)){
        buffer += chr(file_bin_read_byte(fp));
    }
    file_bin_close(fp);
    for(i = 1; i <= string_length(buffer); i += 1) {
        buffer2 += chr(~ord(string_char_at(buffer, i)));
    }
    fp = file_text_open_write(fn);
    file_text_write_string(fp, buffer2);
    file_text_close(fp);
    return 1;
}