Tera Term のススメ

パスワードファイル暗号化（7zip 利用版）

マクロの目的

利用可能環境

Windows (7zip)

Teraterm

マクロの使い方

実行タイミング

マクロの指定方法

ttpmacro.exe を利用する場合

ttermpro.exe を利用する場合

メニューから実行する場合

コード

著作権情報

著作権者

ライセンス

関連情報

サンプルコード

ファイルダウンロード

コピペ用

; 7zip Archive macro of Tera Term
; ----------------------------------------------------------
; File: PasswdCnf.ttl
; Description: PasswdArc.ttl および PasswdExt.ttl の共通設定
; Environment: generic
; Update: 2019/6/21
; Author: Kazuya Jimba
; Site: http://ttm.jimba.ddo.jp/adiary.cgi/teraterm
; Special Thanks
;       https://sevenzip.osdn.jp/chm/cmdline/syntax.htmx
; ----------------------------------------------------------

;; ディレクトリ関係

; 7zip 実行ファイルの格納ディレクトリ
_7zipDir = 'C:\7za920'

; パスワードファイルの格納ディレクトリ
getdir _pwdir


;; ファイル名関係

; 7zip 実行ファイル名
_7zipExe = '7za.exe'

; getpasswd で使用するパスワードファイル名
_pwfile = 'password.dat'

; 圧縮ファイル名
_pwArchive = 'passwd.zip'

;; パス生成
makepath _7zip  _7zipDir _7zipExe
makepath _pwdat _pwdir   _pwfile
makepath _pwzip _pwdir   _pwArchive

; 7zip Archive macro of Tera Term
; ----------------------------------------------------------
; File: PasswdArc.ttl
; Description: getpasswd で作成したパスワードファイルを、
;              指定したパスワードでアーカイブするマクロ。
;              アーカイバには 7zip を利用する。
; Environment: generic
; Update: 2019/6/21
; Author: Kazuya Jimba
; Site: http://ttm.jimba.ddo.jp/adiary.cgi/teraterm
; Special Thanks
;       https://sevenzip.osdn.jp/chm/cmdline/syntax.htmx
; ----------------------------------------------------------

;;; 変数設定 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

includePath = 'PasswdCnf.ttl'

;;; メイン処理 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; 暗号化処理共通ファイルを読み込む。
include includePath

;; 対象が存在するか確認する。
filesearch _pwdat
if result = 1 then
    foldersearch _pwdat
    if result = 1 then
        sprintf2 msg '%s はフォルダであるため終了します。' _pwdat
        messagebox msg 'Error'
        end
    endif
else
    sprintf2 msg 'ファイル %s が存在しないため終了します。' _pwdat
    messagebox msg 'Error'
    end
endif

;; パスワード情報取得
_msgtitle = 'パスワード入力'
_msgline = 'パスワードファイルを暗号化します。\n暗号化用パスワードを入力してください。\n'
strspecial _msgline

passwordbox _msgline _msgtitle 1
_filepassword = inputstr

;; 圧縮コマンドの生成
sprintf2 _ArcCmd "%s a -tzip -p%s %s %s" _7zip _filepassword _pwzip _pwdat

; 暗号化処理コマンドラインを実行する。
exec _ArcCmd 'hide' 1

; 元ファイルを削除する。
filedelete _pwdat
if result = 1 then
    sprintf2 msg 'ファイル %s が削除できませんでした。' _pwdat
    end
endif

;;; 終了処理 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

end

; 7zip Archive macro of Tera Term
; ----------------------------------------------------------
; File: PasswdExt.ttl
; Description: getpasswd で作成したパスワードファイルを、
;              指定したパスワードで解凍するマクロ。
;              アーカイバには 7zip を利用する。
; Environment: generic
; Update: 2019/6/21
; Author: Kazuya Jimba
; Site: http://ttm.jimba.ddo.jp/adiary.cgi/teraterm
; Special Thanks
;       https://sevenzip.osdn.jp/chm/cmdline/syntax.htmx
; ----------------------------------------------------------

;;; 変数設定 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

includePath = 'PasswdCnf.ttl'

;;; メイン処理 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; 暗号化処理共通ファイルを読み込む。
include includePath

;; 対象が存在するか確認する。
filesearch _pwzip
if result = 1 then
    foldersearch _pwzip
    if result = 1 then
        sprintf2 msg '%s はフォルダであるため終了します。' _pwzip
        messagebox msg 'Error'
        end
    endif
else
    sprintf2 msg 'ファイル %s が存在しないため終了します。' _pwzip
    messagebox msg 'Error'
    end
endif

;; パスワード情報取得
_msgtitle = 'パスワード入力'
_msgline = 'パスワードファイルを復号化します。\n復号化用パスワードを入力してください。\n'
strspecial _msgline

passwordbox _msgline _msgtitle 1
_filepassword = inputstr

;; 解凍コマンドの生成
sprintf2 _ExtractCmd "%s x -tzip -p%s %s -o%s" _7zip _filepassword _pwzip _pwdir

; 暗号化処理コマンドラインを実行する。
exec _ExtractCmd 'hide' 1

; 元ファイルを削除する。
filedelete _pwzip
if result = 1 then
    sprintf2 msg 'ファイル %s が削除できませんでした。' _pwzip
    end
endif

;;; 終了処理 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

end

備考