ホーム
>
RPGツクール
>
テクニック集
>
VX一覧
>
テクニック

セーブファイル圧縮（VX専用）

CompressSaveFile (For VX)

概要

Summary

セーブファイルの圧縮機能を追加します。
暗号化スクリプトを併用することで、セーブファイルを暗号化することもできます。

暗号化には【応用機能】≪ファイル暗号化２≫ が必要です。
『TCrypt.dll』も忘れずに用意してください。
（詳細は ≪ファイル暗号化２≫ 参照）

↑目次

更新履歴

History

2008/02/14

新規作成。

↑目次

スクリプト

Script

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/    ◆ セーブファイル圧縮 - KGC_CompressSaveFile ◆ VX ◆
#_/    ◇ Last update : 2008/02/14 ◇
#_/----------------------------------------------------------------------------
#_/  セーブファイルの圧縮・暗号化機能を追加します。
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

#==============================================================================
# ★ カスタマイズ項目 - Customize ★
#==============================================================================

=begin
********************************************************************************
  導入後にセーブファイルを作成したら、以降は暗号化キーを変更しないでください。
  キー変更前のセーブファイルが読めなくなります。
  （これを逆手に取って「体験版のファイルは流用不可」とかやっても構いませんが）
********************************************************************************
=end

module KGC
module CompressSaveFile
  # ◆ 暗号化を行う
  #  暗号化には ≪ファイル暗号化２≫ と『TCrypt.dll』が必要。
  ENABLE_CRYPT = true
  # ◆ 暗号化キー
  #  でたらめな文字列を推奨。
  #  ただし、あまりにも長いとダメ。
  #  とりあえず画面からはみ出るほど書かなければOK。
  CRYPT_KEY = "ネギブレード"
end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

$imported = {} if $imported == nil
$imported["CompressSaveFile"] = true

module KGC::CompressSaveFile
  # 文字列バッファサイズ
  BUFSIZE = 256
  # 一時ファイル名の接頭辞
  TEMP_PREFIX = "kgc"

module_function
  #--------------------------------------------------------------------------
  # ○ 一時ファイルを作成
  #    作成した一時ファイルのパスを返す
  #--------------------------------------------------------------------------
  def create_temp_file
    return Win32API.get_temp_filename(Win32API.get_temp_path)
  end
  #--------------------------------------------------------------------------
  # ○ ファイルのコピー
  #     src  : コピー元
  #     dest : コピー先
  #     keep_time_stamp : タイムスタンプ保持
  #--------------------------------------------------------------------------
  def copy_file(src, dest, keep_time_stamp = true)
    infile = File.open(src, "rb")
    time = infile.mtime
    buf = infile.read
    infile.close

File.open(dest, "wb") { |f| f.write(buf) }

File.utime(time, time, dest) if keep_time_stamp
  end
  #--------------------------------------------------------------------------
  # ○ ファイルのエンコード
  #     filename : ファイル名
  #--------------------------------------------------------------------------
  def encode_file(filename)
    compress_file(filename)
    encrypt_file(filename)
  end
  #--------------------------------------------------------------------------
  # ○ ファイルの圧縮
  #     filename : ファイル名
  #--------------------------------------------------------------------------
  def compress_file(filename)
    buf = nil
    File.open(filename, "rb") { |f| buf = f.read }
    Zlib::GzipWriter.open(filename) { |gz| gz.write(buf) }
  end
  #--------------------------------------------------------------------------
  # ○ ファイルの暗号化
  #     filename : ファイル名
  #--------------------------------------------------------------------------
  def encrypt_file(filename)
    return 0 unless ENABLE_CRYPT      # 暗号化無効
    return 0 unless defined?(TCrypt)  # 暗号化未導入

return TCrypt.encrypt(filename, filename, CRYPT_KEY, TCrypt::MODE_MKERS)
  end
  #--------------------------------------------------------------------------
  # ○ ファイルのデコード
  #     filename : ファイル名
  #--------------------------------------------------------------------------
  def decode_file(filename)
    decrypt_file(filename)
    decompress_file(filename)
  end
  #--------------------------------------------------------------------------
  # ○ ファイルの展開
  #     filename : ファイル名
  #--------------------------------------------------------------------------
  def decompress_file(filename)
    buf = nil
    File.open(filename, "rb") { |f|
      begin
        # 展開
        gz = Zlib::GzipReader.new(f)
        buf = gz.read
      rescue
        # 展開に失敗したら生データを使用
        f.rewind
        buf = f.read
      ensure
        gz.finish if gz != nil
      end
    }
    File.open(filename, "wb") { |f| f.write(buf) }
  end
  #--------------------------------------------------------------------------
  # ○ ファイルの復号
  #     filename : ファイル名
  #--------------------------------------------------------------------------
  def decrypt_file(filename)
    return 0 unless defined?(TCrypt)  # 暗号化未導入

return TCrypt.decrypt(filename, filename, CRYPT_KEY, TCrypt::MODE_MKERS)
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ Win32API
#==============================================================================

class Win32API
  #--------------------------------------------------------------------------
  # ○ 一時ファイルのパスを取得
  #--------------------------------------------------------------------------
  def self.get_temp_path
    size = KGC::CompressSaveFile::BUFSIZE
    buf = "\0" * size

api = Win32API.new('kernel32', 'GetTempPathA', %w(l p), 'l')
    api.call(size, buf)
    return buf.delete!("\0")
  end
  #--------------------------------------------------------------------------
  # ○ 一時ファイル名の取得
  #     path : 一時ファイルを作成するパス
  #--------------------------------------------------------------------------
  def self.get_temp_filename(path)
    size = KGC::CompressSaveFile::BUFSIZE
    buf = "\0" * size
    prefix = KGC::CompressSaveFile::TEMP_PREFIX

api = Win32API.new('kernel32', 'GetTempFileNameA', %w(p p l p), 'l')
    api.call(path, prefix, 0, buf)
    return buf.delete!("\0")
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ Window_SaveFile
#==============================================================================

class Window_SaveFile < Window_Base
  #--------------------------------------------------------------------------
  # ● ゲームデータの一部をロード
  #    スイッチや変数はデフォルトでは未使用 (地名表示などの拡張用) 。
  #--------------------------------------------------------------------------
  alias load_gamedata_KGC_CompressSaveFile load_gamedata
  def load_gamedata
    original_filename = @filename
    original_file_exist = FileTest.exist?(original_filename)
    if original_file_exist
      # オリジナルのタイムスタンプを取得
      time = nil
      File.open(original_filename) { |f| time = f.mtime }
      # 一時ファイルを作成
      @filename = KGC::CompressSaveFile.create_temp_file
      KGC::CompressSaveFile.copy_file(original_filename, @filename)
      KGC::CompressSaveFile.decode_file(@filename)
      # 一時ファイルのタイムスタンプをオリジナルと同一にする
      File.utime(time, time, @filename)
    end

load_gamedata_KGC_CompressSaveFile

if original_file_exist
      # 一時ファイルを削除
      File.delete(@filename)
      # ロードに失敗したらタイムスタンプを初期化
      @time_stamp = Time.at(0) unless @file_exist
      Graphics.frame_reset
    end
    @filename = original_filename
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ Scene_File
#==============================================================================

class Scene_File < Scene_Base
  #--------------------------------------------------------------------------
  # ● セーブの実行
  #--------------------------------------------------------------------------
  alias do_save_KGC_CompressSaveFile do_save
  def do_save
    do_save_KGC_CompressSaveFile

filename = @savefile_windows[@index].filename
    KGC::CompressSaveFile.encode_file(filename)
  end
  #--------------------------------------------------------------------------
  # ● ロードの実行
  #--------------------------------------------------------------------------
  alias do_load_KGC_CompressSaveFile do_load
  def do_load
    filename = @savefile_windows[@index].filename
    tempfilename = KGC::CompressSaveFile.create_temp_file

# オリジナルファイルを退避
    KGC::CompressSaveFile.copy_file(filename, tempfilename)
    KGC::CompressSaveFile.decode_file(filename)

do_load_KGC_CompressSaveFile

# オリジナルファイルを復元
    KGC::CompressSaveFile.copy_file(tempfilename, filename)
    File.delete(tempfilename)
    Graphics.frame_reset
  end
end

↑目次

使用法

圧縮

スクリプトを導入するだけで、次回のセーブ時から自動的に圧縮が行われます。
無圧縮の（スクリプト導入前の）セーブファイルも使用できます。

スクリプトを削除すると、圧縮したセーブファイルはそのままでは読めなくなります。

暗号化

# ◆ 暗号化を行う
ENABLE_CRYPT = true

ここをtrueにすると、セーブファイルに圧縮と暗号化の両方を施します。
falseにした場合、圧縮のみになります。

暗号化を行う場合は、【応用機能】≪ファイル暗号化２≫ も導入してください。
>> ファイル暗号化２
『TCrypt.dll』をダウンロードしてコピーする所まで行えばOKです。

# ◆ 暗号化キー
CRYPT_KEY = "ネギブレード"

ここで暗号化に用いるキーを指定します。
暗号化キーには、なるべくでたらめな文字列を使用してください。
ただし、あまりにも長いとDLL側で処理できないので、スクリプトエディタから
はみ出ない程度にした方が良いでしょう。

暗号化したセーブファイルを作成したら、以降は暗号化キーを変更しないでください。
キー変更前のセーブファイルが読めなくなります。

キーが変わると読めなくなる仕様を逆手に取って、
　体験版公開 → 通常版完成、キー変更 → これで体験版のファイルは流用不可
ということもできます。
ただし、これを実行する場合は自己責任でお願いします。

↑目次

注意事項

Notes

暗号化はオマケ機能です。
スクリプトを公開している以上、キーさえ分かれば簡単に復号できてしまいます。
あくまで安易な改造防止程度と考えてください。
（シェアウェアなどには不向きです）

↑目次

セーブファイル圧縮（VX専用）

CompressSaveFile (For VX)

目次

Outline

概要

Summary

更新履歴

History

スクリプト

Script

使用法

Usage

圧縮

暗号化

注意事項

Notes