procedure( NlDecrypt( 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 that doesn'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 an input file!\n") return() ) ; ** if inputFile ** return(t) ) ; ** let ** ) ; ** procedure ** | |
NlDecrypt( "abc.ile" "abc.il") |
欢迎光临 (http://www.51hei.com/bbs/) | Powered by Discuz! X3.1 |