其他分享
首页 > 其他分享> > 解密 Skill 脚本

解密 Skill 脚本

作者:互联网

https://www.cnblogs.com/yeungchie/

procedure(Decrypt(inputFile @optional outputFile "tt")
	prog((inp out line)
		if(inputFile then
			unless(outputFile
				outputFile = sprintf(nil"%s.dec" inputFile)
			)
			when(isFile(outputFile)
				print("You must specify a file thatdoesn't exist!!!\n")
				hiGetAttention()
				return()
			)
			unless(inp = infile(inputFile)
				printf("Unable to open input file:%s\n" inputFile)
				return()
			)
			unless(out = outfile(outputFile"w")
				printf("Unable to open output file:%s\n" outputFile)
				return()
			)
			while(line = lineread(inp)
				when(line != t
					pprint(line out)
				)
			)
			close(inp)
			close(out)
		else
			printf("You must at least specify aninput file!\n")
			return()
		)
		return(t)
	)
);Decrypt


标签:脚本,outputFile,return,inp,解密,file,Skill,out,inputFile
来源: https://www.cnblogs.com/yeungchie/p/13593674.html