易飞登录密码

最新推荐文章于 2023-10-17 14:29:22 发布
最新推荐文章于 2023-10-17 14:29:22 发布
阅读量1.8k 收藏 1
点赞数

        [易飞]用户密码加密解密       

        分类：            ERP-易飞 2013-10-30 08:38 36人阅读 评论(0) 收藏 举报

经常我们在做外挂为了统易飞ERP的用户和密码。

查看用户表：


密码经过加密：

福州小兵提供了D7版本的加密和解密函数：

[delphi] view plain copy print ?
  1. unit EnCode_New; 
  2.  
  3. interface 
  4. uses SysUtils, Classes ,Dialogs ; 
  5.  
  6. const 
  7.   FNIL  = '''(&.&!''%&$"''&)" ",&)$(%#$-$#$$" ' ; //NIL值 
  8.   PS1 = '&''$%"# !./,-*+()' ; //密码符 
  9.   FF1 = ' !"#$%&''()*+,-./'; //符号集 
  10.  
  11.   Function EnUser(s:String):string; 
  12.   //Function DeUser(s:String):string; 
  13.   Function Encode7(EnStr,s:string):string ; 
  14.   Function Decode7(EnStr,s:string):string ; 
  15. implementation 
  16.  
  17. Function EnUser(s:String):string; 
  18. var n,i,d:integer; 
  19.  
  20. begin 
  21.   Result := '' ; 
  22.   i := length(s) ; 
  23.   if i<=0 then exit ; 
  24.   Result := Copy(FNIL,(i-1)*2+1, 30-((i-1)*2)) ; 
  25.  
  26.   for n:=i Downto 1 do 
  27.   begin 
  28.     //if n>1 then 
  29.     //  Result := Copy(Result, 3, 30) ; 
  30.     //else 
  31.     //  Result := Copy(Result, 1, 30) 
  32.  
  33.     i := ((Ord(s[n])-32) Mod 16) ; 
  34.     d := ((Ord(s[n])-32) div 16)+1 ; 
  35.     Result := Result + CHR(32+d+1) + FF1[i+1] ; 
  36.   end; 
  37. end; 
  38.    
  39. Function Encode7(EnStr,s:string):string ; 
  40. var i,n1,n2:integer; 
  41.     FStr1,FStr2,FStr3:Char ; 
  42.     Fchar1:Char; 
  43. begin 
  44.   Result := EnStr ; 
  45.   IF Length(s)=0 then Exit ; 
  46.   For i:=1 to Length(s) do 
  47.   begin 
  48.     case i of 
  49.       1..4: 
  50.       begin 
  51.         FStr1 := s[i] ;  //密码符 
  52.         FStr2 := Result[i] ;         //加密位置1 
  53.         FStr3 := Result[32-4+i] ;    //加密位置2 
  54.         n1 := ((Ord(s[i])-32) mod 8) ; 
  55.         n2 := ((Ord(s[i])-32) div 16) ; 
  56.         Fchar1 := Chr(n2*16+32) ; //加密是什么类，数字或字母等 
  57.         //这方法错误 正确的是 两个字符异或，再取其底阶字符+20H 
  58.         n2 := Ord(FStr2) xor Ord(FStr1) ; 
  59.         {Asm
  60.           mov eax, n2
  61.           mov al, 0
  62.           mov n2, eax
  63.         end; } 
  64.         n2 := (n2 AND $0F) + $20 ;  //$20= 32 
  65.         FStr2 := Chr(n2) ; 
  66.         FStr3 := Chr(Ord(Fchar1) + ((Ord(FStr3)+Ord(Fchar1)) Mod 16)) ; 
  67.         Result := COPY(Result,1,i-1)+FStr2+COPY(Result,i+1,32-i) ; 
  68.         Result := COPY(Result,1,32-4+i-1)+FStr3+COPY(Result,32-4+i+1,4-i) ; 
  69.       end; 
  70.       else 
  71.       begin 
  72.         FStr1 := s[i] ;  //密码符 
  73.         FStr2 := Result[i] ;         //加密位置1 
  74.         FStr3 := Result[i-4] ;    //加密位置2 
  75.         n1 := ((Ord(s[i])-32) mod 16) ; 
  76.         n2 := ((Ord(s[i])-32) div 16) ; 
  77.         Fchar1 := Chr(n2*16+32) ; //加密是什么类，数字或字母等 
  78.         n2 := Ord(FStr2) xor Ord(FStr1) ; 
  79.         n2 := (n2 AND $0F) + $20 ; //$20= 32 
  80.         FStr2 := Chr(n2) ; 
  81.         FStr3 := Chr(Ord(Fchar1) + ((Ord(FStr3)+Ord(Fchar1)) Mod 16)) ; 
  82.         Result := COPY(Result,1,i-1)+FStr2+COPY(Result,i+1,32-i) ; 
  83.         Result := COPY(Result,1,i-4-1)+FStr3+COPY(Result, i-4+1, 32-i+4) ; 
  84.       end; 
  85.     end; 
  86.   end; 
  87. end; 
  88.  
  89.  
  90. Function Decode7(EnStr,s:string):string ; 
  91. var KeyLen,i,n1,n2:integer; 
  92.     FStr1,FStr2,FStr3,FStr4:Char ; 
  93.     Fchar1:Char; 
  94. begin 
  95.   Result := '' ; 
  96.   IF EnStr='' then Exit ; 
  97.   if Length(s)<32 then //少于32位，错误 
  98.   begin 
  99.     Result := 'ERROR!' ; 
  100.     EXIT; 
  101.   END ; 
  102.   IF s=EnStr then //NIL值 
  103.     EXIT ; 
  104.  
  105.   //检查密码有几位 
  106.   KeyLen:=0 ; 
  107.   for i:=10 downto 1 do 
  108.     if s[i]<>EnStr[i] then 
  109.     begin 
  110.       KeyLen:=i ; 
  111.       Break ; 
  112.     end; 
  113.   if KeyLen=0 then Exit ; 
  114.  
  115.   for i:=KeyLen Downto 1 do 
  116.   begin 
  117.     case i of 
  118.     1..4: begin 
  119.             FStr1 := EnStr[i] ;  //密码符 
  120.             FStr2 := EnStr[32-4+i] ;         //加密位置1 
  121.  
  122.             FStr3 := s[i] ;    //加密位置2 
  123.             FStr4 := s[32-4+i] ;         //加密位置1 
  124.  
  125.             //n2*16+32 + (ord(FStr2) + (n2*16+32)) mod 16 ; 
  126.  
  127.             n1 := ((Ord(s[i])-32) mod 8) ; 
  128.             n2 := ((Ord(s[i])-32) div 16) ; 
  129.             Fchar1 := Chr(n2*16+32) ; //加密是什么类，数字或字母等 
  130.  
  131.             //这方法错误 正确的是 两个字符异或，再取其底阶字符+20H 
  132.  
  133.             n2 := Ord(FStr2) xor Ord(FStr1) ; 
  134.  
  135.             n2 := (n2 AND $0F) + $20 ; //$20= 32 
  136.             FStr2 := Chr(n2) ; 
  137.  
  138.             FStr3 := Chr(Ord(Fchar1) + ((Ord(FStr3)+Ord(Fchar1)) Mod 16)) ; 
  139.  
  140.             Result := COPY(Result,1,i-1)+FStr2+COPY(Result,i+1,32-i) ; 
  141.             Result := COPY(Result,1,32-4+i-1)+FStr3+COPY(Result,32-4+i+1,4-i) ; 
  142.           end; 
  143.     else begin 
  144.  
  145.          end 
  146.     end; 
  147.   end; 
  148. end; 
  149.  
  150. end.  
unit EnCode_New;

interface
uses SysUtils, Classes ,Dialogs ;

const
  FNIL  = '''(&.&!''%&$"''&)" ",&)$(%#$-$#$$" ' ; //NIL值
  PS1 = '&''$%"# !./,-*+()' ; //密码符
  FF1 = ' !"#$%&''()*+,-./'; //符号集

  Function EnUser(s:String):string;
  //Function DeUser(s:String):string;
  Function Encode7(EnStr,s:string):string ;
  Function Decode7(EnStr,s:string):string ;
implementation

Function EnUser(s:String):string;
var n,i,d:integer;

begin
  Result := '' ;
  i := length(s) ;
  if i<=0 then exit ;
  Result := Copy(FNIL,(i-1)*2+1, 30-((i-1)*2)) ;

  for n:=i Downto 1 do
  begin
    //if n>1 then
    //  Result := Copy(Result, 3, 30) ;
    //else
    //  Result := Copy(Result, 1, 30)

    i := ((Ord(s[n])-32) Mod 16) ;
    d := ((Ord(s[n])-32) div 16)+1 ;
    Result := Result + CHR(32+d+1) + FF1[i+1] ;
  end;
end;
  
Function Encode7(EnStr,s:string):string ;
var i,n1,n2:integer;
    FStr1,FStr2,FStr3:Char ;
    Fchar1:Char;
begin
  Result := EnStr ;
  IF Length(s)=0 then Exit ;
  For i:=1 to Length(s) do
  begin
    case i of
      1..4:
      begin
        FStr1 := s[i] ;  //密码符
        FStr2 := Result[i] ;         //加密位置1
        FStr3 := Result[32-4+i] ;    //加密位置2
        n1 := ((Ord(s[i])-32) mod 8) ;
        n2 := ((Ord(s[i])-32) div 16) ;
        Fchar1 := Chr(n2*16+32) ; //加密是什么类，数字或字母等
        //这方法错误 正确的是 两个字符异或，再取其底阶字符+20H
        n2 := Ord(FStr2) xor Ord(FStr1) ;
        {Asm
          mov eax, n2
          mov al, 0
          mov n2, eax
        end; }
        n2 := (n2 AND $0F) + $20 ;  //$20= 32
        FStr2 := Chr(n2) ;
        FStr3 := Chr(Ord(Fchar1) + ((Ord(FStr3)+Ord(Fchar1)) Mod 16)) ;
        Result := COPY(Result,1,i-1)+FStr2+COPY(Result,i+1,32-i) ;
        Result := COPY(Result,1,32-4+i-1)+FStr3+COPY(Result,32-4+i+1,4-i) ;
      end;
      else
      begin
        FStr1 := s[i] ;  //密码符
        FStr2 := Result[i] ;         //加密位置1
        FStr3 := Result[i-4] ;    //加密位置2
        n1 := ((Ord(s[i])-32) mod 16) ;
        n2 := ((Ord(s[i])-32) div 16) ;
        Fchar1 := Chr(n2*16+32) ; //加密是什么类，数字或字母等
        n2 := Ord(FStr2) xor Ord(FStr1) ;
        n2 := (n2 AND $0F) + $20 ; //$20= 32
        FStr2 := Chr(n2) ;
        FStr3 := Chr(Ord(Fchar1) + ((Ord(FStr3)+Ord(Fchar1)) Mod 16)) ;
        Result := COPY(Result,1,i-1)+FStr2+COPY(Result,i+1,32-i) ;
        Result := COPY(Result,1,i-4-1)+FStr3+COPY(Result, i-4+1, 32-i+4) ;
      end;
    end;
  end;
end;


Function Decode7(EnStr,s:string):string ;
var KeyLen,i,n1,n2:integer;
    FStr1,FStr2,FStr3,FStr4:Char ;
    Fchar1:Char;
begin
  Result := '' ;
  IF EnStr='' then Exit ;
  if Length(s)<32 then //少于32位，错误
  begin
    Result := 'ERROR!' ;
    EXIT;
  END ;
  IF s=EnStr then //NIL值
    EXIT ;

  //检查密码有几位
  KeyLen:=0 ;
  for i:=10 downto 1 do
    if s[i]<>EnStr[i] then
    begin
      KeyLen:=i ;
      Break ;
    end;
  if KeyLen=0 then Exit ;

  for i:=KeyLen Downto 1 do
  begin
    case i of
    1..4: begin
            FStr1 := EnStr[i] ;  //密码符
            FStr2 := EnStr[32-4+i] ;         //加密位置1

            FStr3 := s[i] ;    //加密位置2
            FStr4 := s[32-4+i] ;         //加密位置1

            //n2*16+32 + (ord(FStr2) + (n2*16+32)) mod 16 ;

            n1 := ((Ord(s[i])-32) mod 8) ;
            n2 := ((Ord(s[i])-32) div 16) ;
            Fchar1 := Chr(n2*16+32) ; //加密是什么类，数字或字母等

            //这方法错误 正确的是 两个字符异或，再取其底阶字符+20H

            n2 := Ord(FStr2) xor Ord(FStr1) ;

            n2 := (n2 AND $0F) + $20 ; //$20= 32
            FStr2 := Chr(n2) ;

            FStr3 := Chr(Ord(Fchar1) + ((Ord(FStr3)+Ord(Fchar1)) Mod 16)) ;

            Result := COPY(Result,1,i-1)+FStr2+COPY(Result,i+1,32-i) ;
            Result := COPY(Result,1,32-4+i-1)+FStr3+COPY(Result,32-4+i+1,4-i) ;
          end;
    else begin

         end
    end;
  end;
end;

end.

模板写个C#版本加密类：

[csharp] view plain copy print ?
  1. <pre class="csharp" name="code">using System; 
  2. using System.Collections.Generic; 
  3. using System.Linq; 
  4. using System.Text; 
  5.  
  6. namespace Utility 
  7. { 
  8.     public class DCENCode 
  9.     { 
  10.         public  string EnUser(char[] s) 
  11.         { 
  12.  
  13.             string fnil = "'(&.&!'%&$\"'&)\" \",&)$(%#$-$#$$\" "; 
  14.             string FF1 = " !\"#$%&'()*+,-./"; 
  15.             int n, i, d; 
  16.             string Result; 
  17.             i = s.Length; 
  18.             Result = fnil.Substring((i - 1) * 2, 30 - (i - 1) * 2); 
  19.             for (n = i - 1; n >= 0; n--) 
  20.             { 
  21.                 i = (Convert.ToInt32(s[n]) - 32) % 16; 
  22.                 d = ((Convert.ToInt32(s[n]) - 32) / 16) + 1; 
  23.                 Result = Result + Convert.ToChar(32 + d + 1) + FF1[i]; 
  24.             } 
  25.             return Result; 
  26.         } 
  27.         unsafe public  string Encode7(string EnStr, char[] s) 
  28.         { 
  29.             int i, n1, n2; 
  30.             char FStr1, FStr2, FStr3, Fchar1; 
  31.             string Result = EnStr; 
  32.             for (i = 0; i < s.Length; i++) 
  33.             { 
  34.                 if (i <= 3) 
  35.                 { 
  36.                     FStr1 = s[i]; 
  37.                     FStr2 = Result[i]; 
  38.                     FStr3 = Result[28 + i]; 
  39.                     n1 = ((Convert.ToInt32(s[i]) - 32) % 8); 
  40.                     n2 = ((Convert.ToInt32(s[i]) - 32) / 16); 
  41.                     Fchar1 = Convert.ToChar(n2 * 16 + 32); 
  42.                     n2 = Convert.ToInt32(FStr2) ^ Convert.ToInt32(FStr1); 
  43.                     n2 = (n2 & 0x0F) + 0x20; 
  44.                     FStr2 = Convert.ToChar(n2); 
  45.                     FStr3 = Convert.ToChar(Convert.ToInt32(Fchar1) + ((Convert.ToInt32(FStr3) + Convert.ToInt32(Fchar1)) % 16)); 
  46.                     Result = Result.Substring(0, i) + FStr2 + Result.Substring(i + 1, 31 - i); 
  47.                     Result = Result.Substring(0, 28 + i) + FStr3 + Result.Substring(29 + i, 3 - i); 
  48.                 } 
  49.                 else 
  50.                 { 
  51.                     FStr1 = s[i]; 
  52.                     FStr2 = Result[i]; 
  53.                     FStr3 = Result[i - 4]; 
  54.                     n1 = ((Convert.ToInt32(s[i]) - 32) % 16); 
  55.                     n2 = ((Convert.ToInt32(s[i]) - 32) / 16); 
  56.                     Fchar1 = Convert.ToChar(n2 * 16 + 32); 
  57.                     n2 = Convert.ToInt32(FStr2) ^ Convert.ToInt32(FStr1); 
  58.                     n2 = (n2 & 0x0F) + 0x20; 
  59.                     FStr2 = Convert.ToChar(n2); 
  60.                     FStr3 = Convert.ToChar(Convert.ToInt32(Fchar1) + ((Convert.ToInt32(FStr3) + Convert.ToInt32(Fchar1)) % 16)); 
  61.                     Result = Result.Substring(0, i) + FStr2 + Result.Substring(i + 1, 31 - i); 
  62.                     Result = Result.Substring(0, i - 4) + FStr3 + Result.Substring(i - 3, 35 - i); 
  63.                 } 
  64.             } 
  65.  
  66.             return Result; 
  67.         } 
  68.     } 
  69. } 
  70. </pre><br> 
sadleaflzh
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
[易飞]密码加密解密函数
德仔
06-02 3436
-- =============================================-- SQL 加密用户密码-- =============================================CREATE FUNCTION EncodePwd( @user nvarchar(32), @userPwd nvarchar(32))RETURNS nvarchar(128)A
[易飞]用户密码加密解密
德仔
10-30 7106
经常我们在做外挂为了统易飞ERP的用户和密码。 查看用户表： 密码经过加密： 福州小兵提供了D7版本的加密和解密函数： unit EnCode_New; interface uses SysUtils, Classes ,Dialogs ; const FNIL = '''(&.&!''%&$"''&)" ",&)$(%#$-$#$$" ' ; //NIL值 PS1
易飞用户名加密（非数据库加密方法）
redhat588的博客
08-14 724
网上常用方法一： 易飞登录的用户和密码网上最常用的一种加密方法：数据库函数的加密和解密方法。如图： 对应的数据库中存的密文： SELECT MA001,MA002,MA003 FROM DSCMA WHERE MA001='DS' 今天要讲的方法二： 看是否和方法一的结果一致。方法二不需要连接数据库、不需要有易飞的客户端，完全可以单机使用。 自己写第三方程序时做登录验证...
查询易飞用户密码工具
01-21
查询密码使用的工具，连接数据库，直接查询密码
易飞登录密码函数
08-19
易飞登录密码函数,可供写外挂的同行使用 将文档里的函数写入DSCSYS数据库，然后就可以调用了
易飞ERP用户密码加密 解密 清除工具
12-31
1,易飞ERP用户密码加密 解密 清除工具 2,亲自测试可以使用
易飞ERP数据库密码获取工具
redhat588的博客
08-14 1522
一、使用环境 必须是安装过易飞ERP的电脑，而且能正常登录（不需要登录状态）。 二、如图：
易飞用户加密解密
08-05
易飞用户加密解密
易飞数据库读取工具
08-05
易飞数据库读取
系统用户密码恢复工具
01-14
声明：这个软件我测试后发现是不能用在DOS下的。 有很多朋友就说了，不能在DOS下用，我能进系统就能修改了。那这软件有什么用呢？ 是的，事实上情况就是这样的。 但是，这个软件主要是搭配PE使用。进入PE后经过测试可以修改 Windows NT/2000/XP/2003/Vista 系统用户的密码的。 而且可以提升账户权限，这个功能是很好的很实用的。 DOS下修改密码的软件稍后发上，正在制作当中。
易飞ERP接口调用DEMO.rar
10-10
1、需要开放ERP数据给第三方系统对接，如APP手机端开发，MES，OA等； 2、接口按现在主流开发，restful风格，传JSON数据，跨平台，不限开发工具； 3、不限易飞ERP，支持大部分主流数据库，包括Microsoft SQL Server、Oracle、MySQL、MariaDB、PostgreSQL、DB2、SQL Anywhere、Firebird、SQLite等
易飞审核元(9.X)
04-11
易飞ERP 9.0版本出现审核失败。修复
易飞9.08-9.0.12安装及算号
boyun36801的博客
06-10 3349
软件下载链接：https://pan.baidu.com/s/1iHKoc-nwkd6Ro_m1e4zseg 提取码：w8ym 易飞升级说明：http://www.chuanqi.press/dow/%E5%8D%87%E7%BA%A7%E8%AF%B4%E6%98%8E.pdf 易飞安装说明：http://www.chuanqi.press/dow/%E5%AE%89%E8%A3%85%E6%89%8B%E5%86%8C.pdf 易飞9.08的安装过程 测试下配置是否正然后下一步 ...
【易飞】加密解密算法
lbhere的博客
06-18 897
写在前面 能搜索到本文章的同学，也真算是缘分。 本人在刚开始接触ERP时，到处寻找解密加密算法。 发现明明在顾问眼里都是随便可以提供的东西，却成为某些博主盈利的工具。 但是向顾问要对于某些要做二开的个人来说是很困难的，于是本人无偿放出（向顾问要的），只要到SQL里运行下，即可调用函数。 例如： SELECT MA001,dbo.DecodePwd(MA001,MA003) from D...
[易飞]易飞-日常管理小工具
德仔
08-05 4466
1.易飞9.X审核元,    作用：审核元件异常替换组件    下载：http://download.csdn.net/detail/david_520042/71772952.数据库管理工具。   作用：触发器，存储过程，视图，函数批量查询，批量禁用启用。   下载：http://download.csdn.net/detail/david_520042/77163953.easyflow表单提
易飞通用审核接口+生成单据
s01896的博客
04-26 731
易飞通用审核
易飞9审核员接口分析
最新发布
东枫落定的专栏
10-17 583
易飞审核员接口分析
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值