[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
qzwqzw

Rank: 8Rank: 8

帖子
508 
积分
1490 
技术
87  
捐助
0  
注册时间
2008-7-17 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2012-6-3 18:02 | 只看该作者

[数值计算] [分享]批处理大数的自由进制转换

本帖最后由 qzwqzw 于 2012-6-4 18:39 编辑

由于某一个加解密算法的需要
需要对一串数字进行特殊进制的转换
此前类似的进制转换算法应该已经不少
就是不知道是否可以支持大数(>2^31)
所以参考了网上的一些资料
设计了一个大数的自由进制转换算法
%进制数列%限制了自由进制的支持上限
  1. @echo off & setlocal EnableDelayedExpansion

  2. set 大数=111111111111111111111111111111

  3. set from=2

  4. set to=10

  5. call :XConvert %大数% %from% %to% 结果

  6. echo [%from%进制] %大数% 

  7. echo [%to%进制] %结果%

  8. pause

  9. goto :eof

  10. 

  11. :XConvert - X进制大数N转换为指定Y进制（X/Y不大于62）

  12. :: 参考链接：http://www.cppblog.com/baby-fly/archive/2009/10/24/99362.html

  13. ::           http://www.cnblogs.com/phinecos/archive/2009/09/11/1564975.html

  14. setlocal EnableDelayedExpansion

  15. set 源数=%~1

  16. set 源进制=%~2

  17. set 目标进制=%~3

  18. set 返回值=%~4

  19. set 进制数列=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz

  20. 	:XCloop1

  21. 	set 位号=0

  22. 	set 模=0

  23. 	set 商=

  24. 		:XCloop2

  25. 		set 当前位=!源数:~%位号%,1!

  26. 		set 当前位值=-1

  27. 			:XCLoop3

  28. 			set /a 当前位值+=1

  29. 			if not "%当前位%"=="!进制数列:~%当前位值%,1!" goto :XCLoop3

  30. 		set /a 当前除数=模 * 源进制 + 当前位值

  31. 		set /a 当前商=当前除数 / 目标进制

  32. 		set 商=%商%!进制数列:~%当前商%,1!

  33. 		if "%商%"=="0" set 商=

  34. 		set /a 模=当前除数 %% 目标进制

  35. 		set /a 位号+=1

  36. 		if not "!源数:~%位号%,1!"=="" goto :XCloop2

  37. 	if "%商%"=="" set 商=0

  38. 	set 目标数=!进制数列:~%模%,1!%目标数%

  39. 	set 源数=%商%

  40. 	if not "%源数%"=="0" goto :XCloop1

  41. endlocal & set %返回值%=%目标数%

  42. goto :eof
复制代码
1

评分人数

收藏 分享
天的白色影子

gawk

Rank: 8Rank: 8

帖子
1088 
积分
5421 
技术
98  
捐助
30  
注册时间
2011-10-9 
2楼
发表于 2012-6-4 08:44 | 只看该作者
感谢分享

TOP

terse

Rank: 8Rank: 8

帖子
2339 
积分
9739 
技术
475  
捐助
0  
注册时间
2008-2-25 
3楼
发表于 2012-6-4 14:00 | 只看该作者
曾写的 思路上貌似差不多
http://bbs.bathome.net/viewthrea ... mp;page=1#pid104741

TOP

qzwqzw

Rank: 8Rank: 8

帖子
508 
积分
1490 
技术
87  
捐助
0  
注册时间
2008-7-17 
4楼
发表于 2012-6-4 18:45 | 只看该作者
回复 3# terse

在大数相除的算法上
你我都是模拟人工算法
只是我的算法多了源进制的变换

但是你的for实现
比我的goto loop实现高效的多
这可以归功与理论结合实践吧

另外上次贴出的代码存在两个严重问题
看来大家都没发现悄悄改了
天的白色影子

TOP

neorobin

Rank: 7Rank: 7Rank: 7

帖子
675 
积分
4012 
技术
112  
捐助
0  
注册时间
2009-11-25 
5楼
发表于 2012-6-4 22:24 | 只看该作者
本帖最后由 neorobin 于 2012-6-4 22:34 编辑

找到几篇 其它 算法(主要是转换算法, 未讨论大数)的文章, 未读明白, 所以不知是否有优越性.

矩阵算法:
http://home.ccil.org/~remlaps/AlternateBaseConversionAlgorithms.pdf
http://home.ccil.org/~remlaps/DescribeAlgorithm.pdf
另一篇
http://www.dickgrune.com/Program ... ion/no_div_conv.pdf

TOP

terse

Rank: 8Rank: 8

帖子
2339 
积分
9739 
技术
475  
捐助
0  
注册时间
2008-2-25 
6楼
发表于 2012-6-9 02:28 | 只看该作者
回复 4# qzwqzw
修改下 提升点效率 没完全测试
  1. @echo off&setlocal enabledelayedexpansion

  2. set S=111111111111111111111111111111

  3. set F=10

  4. set H=2

  5. set "str=0123456789abcdefghijklmnopqrstuvwxyz"

  6. echo [%f%进制] %S% 

  7. FOR /L %%i in (0 1 35) do (    

  8.     set _!Str:~%%i,1!=%%i

  9.     set #!Str:~%%i,1!=!Str:~%%i,1!

  10. )

  11. :lp

  12. set Ln=&set R=0&set "Sn=!s!"

  13. for %%i in (4096 2048 1024 512 256 128 64 32 16)do if "!Sn:~%%i!" NEQ "" set/aLn+=%%i&set Sn=!Sn:~%%i!

  14. set Sn=!Sn!FEDCBA9876543210&set/aLn+=0x!Sn:~16,1!

  15. for /l %%i in (0,1,%Ln%) do (

  16.    for %%j in ("!S:~%%i,1!") do set num=!_%%~j!&if "!#%%~j!" neq %%j set /a num+=26

  17.    set/a "N=num+(R*F),R=N%%H,N/=H"

  18.    for %%j in (!N!) do set M=!M!!str:~%%j,1!

  19. )

  20.    set B=!str:~%r%,1!!B!

  21.    for /f "tokens=* delims=0" %%i in ("0!M!") do set "S=%%i"

  22.    if defined S set M=&goto lp

  23.    echo [%H%进制] !B!

  24. pause
复制代码
1

评分人数

    • qzwqzw: 辛苦了！PB + 4 技术 + 1

TOP

返回列表