Danaに暗号化を組み込む

@SAngou
37518713d607b600ee8748cf99f2c9b43f7e2a919f92c7387b3ca49a3b9b8975969652
c9d74e362d1a574b6187e0e383f8818c5182af346e8a8d5fd08340f277253ed7c5bb05
7d48f13ac457d1e519b45e67090f9ace42e2075a34201f700f927b7c4424b814861f4c
・・・

'
' 暗号化スクリプト for Dana
'

Const STATE_INIT        = 0
Const STATE_WHO_ARE_YOU = 14
Const STATE_CALL_MENU   = 13
Const STATE_BEFORE_SAVE = 4
Const STATE_AFTER_SAVE  = 5
Const STATE_TIMER       = 11

Const T_SET_ANGOU = 100
Const T_RESET_ANGOU = 101
Const T_EXIT     = 999

Const ANGOU_TOPLINE = "@SAngou"

Dim hMenu%
Dim plain$
Dim angouFlg%
Dim initialized%

Dim ENCRYPT_PROGRAM$
Dim DECRYPT_PROGRAM$
Dim TMPFILE$

Main ()
	Select Case .DanaState
	Case STATE_INIT
		' 暗号化/復号化外部プログラムのフルパス
		' 暗号化/復号化外部プログラムは，以下の仕様を満たす必要がある
		'  %1 : 秘密鍵文字列
		'  %2 : 入力ファイル名
		'  %3 : 出力ファイル名 (処理に失敗した場合は，作成してはいけない)
		ENCRYPT_PROGRAM = "perl.exe " + Chr(34) + .HomePath + "Angou.pl" + Chr(34) + " E"
		DECRYPT_PROGRAM = "perl.exe " + Chr(34) + .HomePath + "Angou.pl" + Chr(34) + " D"

		TMPFILE = Environ("TEMP") + "\Angou_das.tmp"

		hMenu% = NewMenu()
		AddMenuItem(hMenu%, "ファイルを暗号化に設定する(&E)", T_SET_ANGOU)
		AddMenuItem(hMenu%, "ファイルの暗号化を解除する(&D)", T_RESET_ANGOU)
		AddMenuItem(hMenu%, "暗号化ｱﾄﾞｲﾝの終了(&X)", T_EXIT)

		StayResident()

	Case STATE_WHO_ARE_YOU
		.ParmStrA = "Angou Script ver1.00/by kamoland.com"

	Case STATE_CALL_MENU
		OnCallMenu()

	Case STATE_BEFORE_SAVE
		OnBeforeSave(.ParmStrA)

	Case STATE_AFTER_SAVE
		OnAfterSave(.ParmStrA)

	Case STATE_TIMER
		OnTimer()

	Case Else
	End Select

End

' Before save file Event
Proc OnBeforeSave(strName$)
	angouFlg% = isAngouFile()

	if angouFlg% = TRUE then
		' 暗号化フラグがONの場合は，暗号化して保存する
		FKill(TMPFILE)
		Command("SelectAll")
		plain$ = GetSelected()
		ShellCmd(ENCRYPT_PROGRAM + " %I %T " + TMPFILE, "I")

		if Dir(TMPFILE) <> "" then
			PasteFromFile(TMPFILE)
			Command("TextTop")
			InsertString(ANGOU_TOPLINE + Chr(&H0D) + Chr(&H0A))
			FKill(TMPFILE)
		else
			' tmpfileが作成されなかった場合は，プロンプトでキャンセルされたので
			' 保存してはいけない
			.ParmA = 0
			return
		end if
	end if
End Proc

' After save file Event
Proc OnAfterSave(strName$)
	if angouFlg% = TRUE then
		' 平文に戻す
		Command("SelectAll")
		DelSelect()
		Command("TextTop")
		InsertString(plain$)
		' 編集フラグをOFFにする
		SetModified(False)
	end if
End Proc

' 1 second interval Event
Proc OnTimer()
	if initialized% = FALSE then
		OpenWithDecrypt()
	end if

End Proc

' Menu call Event
Proc OnCallMenu()
	Dim nRC%
	nRC = DoMenu(hMenu%)
	Select Case nRC
	Case T_SET_ANGOU
		if isAngouFile() = FALSE then
			Command("TextTop")
			InsertString(ANGOU_TOPLINE + "[PLAIN]" + Chr(&H0D) + Chr(&H0A))
		else
			msgbox("このファイルは既に暗号化モードです")
		end if

	Case T_RESET_ANGOU
		if isAngouFile() = TRUE then
			Command("TextTop")
			Command("DeleteLine")
		else
			msgbox("このファイルは暗号化モードではありません")
		end if

	Case T_EXIT
		DiscardMenu(hMenu%)
		Terminate()
	End Select
End Proc

' 開いたファイルが暗号化ファイルの場合は，復号化する
Proc OpenWithDecrypt()
	if initialized% = TRUE then
		return
	end if
	initialized% = TRUE

	if isAngouFile() = TRUE then
		' 先頭行は，識別用なので削除する
		Command("TextTop")
		Command("DeleteLine")

		' ファイルを復号化する
		FKill(TMPFILE)
		Command("SelectAll")
		ShellCmd(DECRYPT_PROGRAM + " %I %T " + TMPFILE, "I")

		' 復号化に成功した場合は，結果を貼り付ける
		if Dir(TMPFILE) <> "" then
			PasteFromFile(TMPFILE)
			FKill(TMPFILE)
		end if

		' 編集フラグをOFFに戻す
		SetModified(False)

		Command("TextTop")
	end if

End Proc

' ファイルの先頭行を調べて，暗号化ファイルかどうかを判定する
Proc isAngouFile()
	Dim angou%
	Dim top$

	top$ = LoadThisLine(GetTopLine())
	if InstrMB(top$, ANGOU_TOPLINE) > 0 then
		angou% = TRUE
	else
		angou% = FALSE
	end if

	return angou%
End Proc

#!/usr/bin/perl

use strict;
use Crypt::RC4;

my($mode, $pass, $in_fname, $out_fname) = @ARGV;

my $in = '';
open(IN, $in_fname) or die "Can't open $in_fname $!\n";
while (<IN>) {
	$in .= $_;
}
close(IN);

my $out = '';
if (lc $mode eq 'e') {
	my $hex = RC4_hex($pass, $in);
	my $width = 70;
	for (my $i = 0; $i < length($hex); $i += $width) {
		$out .= substr($hex, $i, $width)."\n";
	}
} elsif (lc $mode eq 'd') {
	$in =~ s/\r//g;
	$in =~ s/\n//g;
	$out = RC4_dec_hex($pass, $in);
} else {
	die "Invalid mode\n";
}

open(OUT, ">$out_fname") or die "Can't open $out_fname $!\n";
print OUT $out;
close(OUT);

sub RC4_hex {
	my($pass, $plain) = @_;

	my $encbin = RC4($pass, $plain);
	my(@enchex) = ();
	foreach (split(//,$encbin)) {
		push(@enchex, unpack("h2",$_));
	}
	return join('',@enchex);
}

sub RC4_dec_hex {
	my($pass, $enchex) = @_;

	my(@encbin) = ();
	while (length($enchex) > 0) {
		push(@encbin, pack("h2", $enchex));
		$enchex = substr($enchex, 2);
	}

	my $dec = RC4($pass, join('', @encbin));
	return $dec;
}