编辑代码

% escript will ignore the first line
%%----------------------------------------------------
%  解码处理
%% @author quickgame
%%----------------------------------------------------
-module(quickAsy).

-export([main/1,encode/2, decode/2]).



encode(String, Key) ->
	KeyLen = length(Key),
	KeyTuple = list_to_tuple(Key),
	encode(String, KeyTuple, [], 1, KeyLen).

encode([], _KeyTuple, AccString, _Idx, _KeyLen) -> lists:reverse(lists:append(AccString));
encode([Chat|TString], KeyTuple, AccString, Idx, KeyLen) ->
	KeyIdx = Idx rem KeyLen + 1,
	KeyChat = element(KeyIdx, KeyTuple),
	EncodeChat = Chat + KeyChat,
	encode(TString, KeyTuple, [lists:reverse(integer_to_list(EncodeChat)),"@"|AccString], Idx+1, KeyLen).

decode(String, Key) ->
	KeyLen = length(Key),
	KeyTuple = list_to_tuple(Key),
	decode(string:tokens(String, "@"), KeyTuple, [], 1, KeyLen).

decode([], _KeyTuple, AccString, _Idx, _KeyLen) -> lists:reverse(AccString);
decode([Str|TStrList], KeyTuple, AccString, Idx, KeyLen) ->
	KeyIdx = Idx rem KeyLen + 1,
	KeyChat = element(KeyIdx, KeyTuple),
	DecodeChat = list_to_integer(Str) - KeyChat,
	decode(TStrList, KeyTuple, [DecodeChat|AccString], Idx+1, KeyLen).

main(_) ->
    Strlist = decode("@117@120@176@161@165@80@171@150@164@171@160@162@164@116@83@99@102@96@84@82@150@158@149@160@152@156@167@160@110@84@138@133@127@102@112@86@89@163@169@146@160@156@152@159@165@165@150@111@90@158@161@84@112@110@110@162@169@156@156@164@144@159@154@164@172@154@159@153@119@108@162@150@165@171@152@154@155@117@109@167@161@148@112@99@106@99@103@99@108@104@113@113@109@97@170@154@157@119@116@160@168@151@158@159@145@166@152@160@155@117@171@162@107@97@104@106@103@99@107@105@112@98@165@168@152@155@163@144@167@154@165@153@119@108@164@166@166@151@166@165@154@156@163@145@166@159@112@110@96@159@167@165@147@162@171@157@150@164@148@159@168@119@116@163@171@148@154@163@145@166@166@113@102@104@99@98@106@100@99@100@97@100@99@101@104@99@106@114@103@105@106@103@105@109@116@99@168@162@153@150@164@151@165@162@116@115@161@147@177@143@166@155@158@149@112@99@100@101@109@102@98@100@98@97@109@89@105@104@115@100@101@107@100@111@115@98@166@152@170@145@172@153@159@151@111@108@147@158@163@168@167@173@111@99@99@97@105@117@103@149@166@159@170@159@166@118@115@166@170@152@165@167@171@110@98@110@96@163@166@146@168@168@172@119@109@151@173@165@171@154@171@147@169@145@167@146@159@171@117@101@106@107@85@86@153@156@155@171@166@158@86@85@100@87@93@170@166@155@152@156@160@154@165@153@93@84@104@97@99@92@91@100@283@188@180@281@220@236@279@190@182@84@86@109@99@152@177@173@163@147@168@144@169@154@170@149@166@163@115@109@97@165@156@166@169@152@152@151@118@108@97@163@166@153@149@156@147@160@158@172@164@147@156@150@119","99849051287367128022102143991251"),
    io:format("-----------backpay--kk------==~s~n", [Strlist]),
    io:format("Hello world!     -  erlang.jsrun.net").