「暗号」の編集履歴（バックアップ）一覧はこちら

「暗号」(2010/07/15 (木) 23:26:54) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

#asciiart(blockquote){
/***********************************************************
	crypt.c -- 暗号
***********************************************************/
#N88BASIC
'Declare Sub srand CDECL Lib"msvcrt" (seed As DWord)
'Declare Function rand CDECL Lib"msvcrt" () As DWord


Dim c As Long, r As Long
Dim infile As HANDLE, outfile As HANDLE
Dim re As Long
infile  = CreateFile("in.txt",  GENERIC_READ,  0, ByVal 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
outfile = CreateFile("out.txt", GENERIC_WRITE, 0, ByVal 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)

Dim tane As Long

Input "乱数の種", tane
srand(tane)

Do
	c = ReadFile(infile, c, 1, VarPtr(re), ByVal 0)
	If c = 0 Then Exit Do
	Do
		r = rand() / (32768 / 256)
	Loop while r >= 256
	WriteFile(outfile, c Xor r, 1, VarPtr(re), ByVal 0)
Loop

CloseHandle(infile):CloseHandle(outfile)
}