erlang 之简单密码加密

最新推荐文章于 2024-12-12 21:38:41 发布

原创最新推荐文章于 2024-12-12 21:38:41 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

Erlang 专栏收录该内容

15 篇文章

订阅专栏

本文深入探讨了来自连城翻译书籍内的编码程序，详细解析了其工作原理及核心逻辑，包括如何通过Pin和Password进行编码操作，并对编码过程中的关键步骤进行了细致讲解。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

-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.