C#函数转换成Delphi函数

nbwzw 2010-03-26 11:32:15
哪位高的能将下面的代码转换成Delphi代码

using System;
using System.IO;
using System.Text;
using System.Security.Cryptography;

namespace MYEncryption
{
public class Encryption
{
public static string Encrypt(string plainText,
string passPhrase,
string saltValue,
string hashAlgorithm,
int passwordIterations,
string initVector,
int keySize)
{
byte[] initVectorBytes = Encoding.ASCII.GetBytes(initVector);
byte[] saltValueBytes = Encoding.ASCII.GetBytes(saltValue);

byte[] plainTextBytes = Encoding.UTF8.GetBytes(plainText);

PasswordDeriveBytes password = new PasswordDeriveBytes(
passPhrase,
saltValueBytes,
hashAlgorithm,
passwordIterations);

byte[] keyBytes = password.GetBytes(keySize / 8);

RijndaelManaged symmetricKey = new RijndaelManaged();

symmetricKey.Mode = CipherMode.CBC;

ICryptoTransform encryptor = symmetricKey.CreateEncryptor(
keyBytes,
initVectorBytes);

MemoryStream memoryStream = new MemoryStream();

CryptoStream cryptoStream = new CryptoStream(memoryStream,
encryptor,
CryptoStreamMode.Write);
cryptoStream.Write(plainTextBytes, 0, plainTextBytes.Length);

cryptoStream.FlushFinalBlock();

byte[] cipherTextBytes = memoryStream.ToArray();

memoryStream.Close();
cryptoStream.Close();

string cipherText = Convert.ToBase64String(cipherTextBytes);

return cipherText;
}

public static string Decrypt(string cipherText,
string passPhrase,
string saltValue,
string hashAlgorithm,
int passwordIterations,
string initVector,
int keySize)
{
byte[] initVectorBytes = Encoding.ASCII.GetBytes(initVector);
byte[] saltValueBytes = Encoding.ASCII.GetBytes(saltValue);

byte[] cipherTextBytes = Convert.FromBase64String(cipherText);

PasswordDeriveBytes password = new PasswordDeriveBytes(
passPhrase,
saltValueBytes,
hashAlgorithm,
passwordIterations);

byte[] keyBytes = password.GetBytes(keySize / 8);

RijndaelManaged symmetricKey = new RijndaelManaged();

symmetricKey.Mode = CipherMode.CBC;

ICryptoTransform decryptor = symmetricKey.CreateDecryptor(
keyBytes,
initVectorBytes);

MemoryStream memoryStream = new MemoryStream(cipherTextBytes);

CryptoStream cryptoStream = new CryptoStream(memoryStream,
decryptor,
CryptoStreamMode.Read);

byte[] plainTextBytes = new byte[cipherTextBytes.Length];

int decryptedByteCount = cryptoStream.Read(plainTextBytes,
0,
plainTextBytes.Length);

memoryStream.Close();
cryptoStream.Close();

string plainText = Encoding.UTF8.GetString(plainTextBytes,
0,
decryptedByteCount);

return plainText;
}

public static string Encrypt(string plainText, string passPhrase)
{
string saltValue = "s@1tYADDNS"; // can be any string
string hashAlgorithm = "SHA1"; // can be "MD5"
int passwordIterations = 2; // can be any number
string initVector = "@1Y2A3D4D5N6S7F8"; // must be 16 bytes
int keySize = 256; // can be 192 or 128

return Encrypt(plainText, passPhrase, saltValue, hashAlgorithm, passwordIterations, initVector, keySize);
}

public static string Decrypt(string cipherText, string passPhrase)
{
string saltValue = "s@1tYADDNS"; // can be any string
string hashAlgorithm = "SHA1"; // can be "MD5"
int passwordIterations = 2; // can be any number
string initVector = "@1Y2A3D4D5N6S7F8"; // must be 16 bytes
int keySize = 256; // can be 192 or 128

return Decrypt(cipherText, passPhrase, saltValue, hashAlgorithm, passwordIterations, initVector, keySize);
}
}
}
...全文
178 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
wliaoc 2010-07-16
  • 打赏
  • 举报
 回复
看了头晕，jf了
话说楼上的好甜蜜
kye_jufei 2010-07-12
  • 打赏
  • 举报
 回复
Delphi加、解密函數：

function Enc(Str:String):String;

var

 i,j:Integer;

begin

 Result:='';

 j:=0;

 for i:=1 to Length(Str) do

   begin

     Result:=Result+IntToHex(Byte(Str[i]) xor XorKey[j],2);

     j:=(j+1) mod 8;

   end;

end;



function Dec(Str:String):String;

var

 i,j:Integer;

begin

 Result:='';

 j:=0;

 for i:=1 to Length(Str) div 2 do

   begin

     Result:=Result+Char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);

     j:=(j+1) mod 8;

   end;

end;
iamduo 2010-04-02
  • 打赏
  • 举报
 回复
肯定是不对的。
但是细节调整一下也可以用。
iamduo 2010-04-02
  • 打赏
  • 举报
 回复 


// RemObjects CS to Pascal 0.2



namespace MYEncryption;



interface

uses

  System,

  System.IO,

  System.Text,

  System.Security.Cryptography;

type

  Encryption = public class

  public

    class method Encrypt(plainText: String; passPhrase: String; saltValue: String; hashAlgorithm: String; passwordIterations: Integer; initVector: String; keySize: Integer): String;

    class method Decrypt(cipherText: String; passPhrase: String; saltValue: String; hashAlgorithm: String; passwordIterations: Integer; initVector: String; keySize: Integer): String;

    class method Encrypt(plainText: String; passPhrase: String): String;

    // can be any string

    // can be "MD5"

    // can be any number

    // must be 16 bytes

    // can be 192 or 128

    

    class method Decrypt(cipherText: String; passPhrase: String): String;

  end;





implementation



class method Encryption.Encrypt(plainText: String; passPhrase: String; saltValue: String; hashAlgorithm: String; passwordIterations: Integer; initVector: String; keySize: Integer): String;

begin

  var initVectorBytes: array of Byte := Encoding.ASCII.GetBytes(initVector);

  var saltValueBytes: array of Byte := Encoding.ASCII.GetBytes(saltValue);

  var plainTextBytes: array of Byte := Encoding.UTF8.GetBytes(plainText);

  var password: PasswordDeriveBytes := new PasswordDeriveBytes(passPhrase, saltValueBytes, hashAlgorithm, passwordIterations);

  var keyBytes: array of Byte := password.GetBytes(keySize / 8);

  var symmetricKey: RijndaelManaged := new RijndaelManaged();

  symmetricKey.Mode := CipherMode.CBC;

  var encryptor: ICryptoTransform := symmetricKey.CreateEncryptor(keyBytes, initVectorBytes);

  var memoryStream: MemoryStream := new MemoryStream();

  var cryptoStream: CryptoStream := new CryptoStream(memoryStream, encryptor, CryptoStreamMode.&Write);

  cryptoStream.&Write(plainTextBytes, 0, plainTextBytes.Length);

  cryptoStream.FlushFinalBlock();

  var cipherTextBytes: array of Byte := memoryStream.ToArray();

  memoryStream.Close();

  cryptoStream.Close();

  var cipherText: String := Convert.ToBase64String(cipherTextBytes);

  exit cipherText

end;



class method Encryption.Decrypt(cipherText: String; passPhrase: String; saltValue: String; hashAlgorithm: String; passwordIterations: Integer; initVector: String; keySize: Integer): String;

begin

  var initVectorBytes: array of Byte := Encoding.ASCII.GetBytes(initVector);

  var saltValueBytes: array of Byte := Encoding.ASCII.GetBytes(saltValue);

  var cipherTextBytes: array of Byte := Convert.FromBase64String(cipherText);

  var password: PasswordDeriveBytes := new PasswordDeriveBytes(passPhrase, saltValueBytes, hashAlgorithm, passwordIterations);

  var keyBytes: array of Byte := password.GetBytes(keySize / 8);

  var symmetricKey: RijndaelManaged := new RijndaelManaged();

  symmetricKey.Mode := CipherMode.CBC;

  var decryptor: ICryptoTransform := symmetricKey.CreateDecryptor(keyBytes, initVectorBytes);

  var memoryStream: MemoryStream := new MemoryStream(cipherTextBytes);

  var cryptoStream: CryptoStream := new CryptoStream(memoryStream, decryptor, CryptoStreamMode.&Read);

  var plainTextBytes: array of Byte := new Byte[cipherTextBytes.Length];

  var decryptedByteCount: Integer := cryptoStream.&Read(plainTextBytes, 0, plainTextBytes.Length);

  memoryStream.Close();

  cryptoStream.Close();

  var plainText: String := Encoding.UTF8.GetString(plainTextBytes, 0, decryptedByteCount);

  exit plainText

end;



class method Encryption.Encrypt(plainText: String; passPhrase: String): String;

begin

  var saltValue: String := 's@1tYADDNS';

  var hashAlgorithm: String := 'SHA1';

  var passwordIterations: Integer := 2;

  var initVector: String := '@1Y2A3D4D5N6S7F8';

  var keySize: Integer := 256;

  exit Encrypt(plainText, passPhrase, saltValue, hashAlgorithm, passwordIterations, initVector, keySize)

end;



class method Encryption.Decrypt(cipherText: String; passPhrase: String): String;

begin

  var saltValue: String := 's@1tYADDNS';

  var hashAlgorithm: String := 'SHA1';

  var passwordIterations: Integer := 2;

  var initVector: String := '@1Y2A3D4D5N6S7F8';

  var keySize: Integer := 256;

  exit Decrypt(cipherText, passPhrase, saltValue, hashAlgorithm, passwordIterations, initVector, keySize)

end;





end.
nbwzw 2010-03-29
  • 打赏
  • 举报
 回复
因为之前有人已经有一部分程序做好了，我也要用他的数据库做接下来的开发，所以这个算法只能用他的，他是用C#写的，哪位高手帮下忙
SQLDebug_Fan 2010-03-26
  • 打赏
  • 举报
 回复
网上到处都是，为什么非要用C#的呢？
liangpei2008 2010-03-26
  • 打赏
  • 举报
 回复
去网上找一个Delphi版的AES算法,按参数添进去就可以了！
不过记不清AES里面有没有先加密后Base64了
bdmh 2010-03-26
  • 打赏
  • 举报
 回复
不就是个加解密的函数吗，delphi的到网上找到处都是
风之谷 2010-03-26
  • 打赏
  • 举报
 回复
好麻烦 看的头疼
风之谷 2010-03-26
  • 打赏
  • 举报
 回复
好长~
C#调用Delphi dll库文件
C#调用Delphi dll库文件,分别用函数和存储过程写的两种方法 在c#2013调试成本DELPHI7写的DLL文件
神龙卡的API C#和Delphi的
神龙卡的API C#和Delphi的 已封闭了神龙卡的所有函数C#和delphi语言两个版本的
从新手小白进入C#编程(VS2019)
C#是微软公司发布的一种由C和C++衍生出来的，极其类似Java的纯面向对象的高级编程语言、是运行于.NET Framework和.NET Core(完全开源，跨平台)之上的主流的开发语言 ！ C#广泛运用于桌面程序开发、服务端程序、Web...
Delphi开发OCX详细步骤总结（含源码）
Delphi开发OCX详细步骤讲解，每个步骤均有截图。内容包括：创建ocx，增加接口函数，ocx的注册和卸载，编写html调用ocx ，调试OCX，调试OCX没有进入断点的解决方法。释放源码内容包括：获取ocx所在路径，ocx执行存储...
Delphi Message 消息处理演示程序（源代码）
1. 演示System.Messaging....3. 演示Delphi自带的对象Dispatch消息机制 4. 实现了传递记录体的消息机制 5. 演示了System.Messaging.TMessageManager的广播机制 6. 包含全部源代码，彻底理解Delphi的消息机制
语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章