erlang 之简单密码加密

这些程序主要是来之 连城 翻译的一个书里面的代码

-module(encode).
-export([encode/2]).
encode(Pin.Password)	->
	Code = {nil,nil,nil,nil,nil,nil,nil,nil,nil,
		nil,nil,nil,nil,nil,nil,nil,nil,nil,
		nil,nil,nil,nil,nil,nil,nil,nil},
	encode(Pin,Password,Code).
encode([],_,Code)	->
	Code ;
encode(Pin,[],code)	->
	io:format("Out of Letters~n",[]);

encode(H|T,[Letter|T1],Code)	->
	Arg = index(Letter) +1 ,
	case element(Arg,Code) of 
		nil ->
			encode (T,T1,setelement(Arg,Code,index(H)));
	_->
		encode ([H|T],T1,Code)
	end.

index(X)	when X >= $0 ,X =< $9 ->
		X - $0;
index(X)	when X>=$A , X =< $Z	->
		X -	$A.