2019/06/15(土)passwordbox ファイル解析

2021/05/22 16:08 Macro::macro サンプル

passwordbox ファイル解析

このサンプルマクロは、以下の仕様を満たすものとします。

マクロの目的

getpassword コマンドで作成したファイルの暗号化部分を復号化し、同等構成のファイルを生成します。
Tera Term の接続状況に拠らず実行可能です。

利用可能環境

Teraterm
依存する Tera Term バージョン：バージョン4.67以降
種別：制御Ver機能の簡易説明
break4.53以降ループから抜ける。
if,then,elseif,else,endif条件分岐
while,endwhile繰り返す。
種別：文字列操作Ver機能の簡易説明
sprintf24.62以降フォーマットされた出力を返す。
strlen文字列の長さを返す。
strscan部分文字列の位置を返す。
strspecial4.67以降特殊文字を変換する。
strsplit4.67以降文字列を分割する。
strtrim4.67以降前後の文字を削除する。
種別：ファイル操作Ver機能の簡易説明
filecloseファイルハンドルを閉じる。
fileopenファイルを開く。
filereadlnファイルから一行読む。
filesearchファイルまたはフォルダがあるか確かめる。
filewritelnファイルに文字列を改行付きで書き込む。
種別：パスワードコマンドVer機能の簡易説明
getpasswordパスワードを読み出す。
種別：その他Ver機能の簡易説明
inputbox文字列を入力するためのダイアログボックスを開く。
4.53以降デフォルト入力文字を設定するオプションの追加。
4.54以降特殊文字の解釈を制御するオプションの追加。
messageboxダイアログボックスを開き、ユーザーにメッセージを知らせる。
4.54以降特殊文字の解釈を制御するオプションの追加。
4.60以降キャンセル時にマクロ停止を確認する機能の追加。

マクロの使い方

まず、メモ帳等の起動したテキストエディタへサンプルコードをコピペして「pw解析.ttl」等の適当な名前で保存します。
.ttl が ttpmacro.exe に関連付けされている場合は、そのままダブルクリックしてマクロを起動します。

getpassword コマンドで作成したファイルのパスを入力すると、マクロを保存したフォルダに「パスワード解析結果.txt」が作成されます。

コード

著作権情報

著作権者
jing さん
ライセンス
著作権フリー
関連情報
公開先サイト：https://ja.osdn.net/projects/ttssh2/ticket/38222

サンプルコード

ファイルダウンロード
teraterm-pw-analyze.zip

※ 解凍してご利用ください。
項目内容
文字コードShift JIS
実行確認バージョンTera Term Ver 4.102
備考上記公開先サイトから転載したものです。
コピペ用
以下のソースコードをファイルに保存のうえご利用ください。
wfile =    'パスワード解析結果.txt'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; ファイル定義
:FileInput
inputbox 'パスワード DAT のパスを入力してください。' 'Path input'
pwdat = inputstr

strlen pwdat
if result = 0 then
	goto FileInput
endif

; ファイルの存在確認
filesearch pwdat
if result = 0 then
	sprintf2 msg 'ファイル %s がありません\n終了します' pwdat
	strspecial msg
	messagebox msg 'Error'
	exit
endif

; Passowrd file Open (ファイルハンドラ：fhPWDAT 読み取り専用)
fileopen fhPWDAT pwdat 0 1

; Write file open (ファイルハンドラ：fhWrDat)
fileopen fhWrDat wfile 0 0

; 上から順に変数へ格納
while 1
	filereadln fhPWDAT line
	if result = 1 then
		break
	endif

	;; 解析開始
	strscan line '='
	if result = 0 then
		; [定義部分]
		strscan line '['
		if result then
			pLpw = line
			strtrim pLpw '['
			strscan pLpw ']'
			if result then
				strtrim pLpw ']'
			endif
		endif
		filewriteln fhWrDat line
	else
		; パスワード識別子
		strsplit line '='
		PassName = groupmatchstr1 

		getpassword pwdat PassName pLpw

		sprintf2 msg '%s=%s' PassName pLpw
		filewriteln fhWrDat msg
	endif
endwhile

; File Clese
fileclose fhWrDat
fileclose fhPWDAT