Search results for 'GetBytes'. 1 post(s) found.
- 2007/10/04 How to encrypt a string
If you need to encrypt a string in Delphi for .NET you can use the System.Security.Cryptography namespace. Here's a sample function:
Note: the example below uses MD5 algorithm implementation, for a list of possible implementations read MSDN help for System.Security.Cryptography namespace.
uses System.Security.Cryptography, System.Text;
function Encrypt(const cleanString: string): string;
var
ue : UnicodeEncoding;
clearBytes, hashedBytes : array of Byte;
begin
ue := UnicodeEncoding.Create;
clearBytes := ue.GetBytes(cleanString) ;
hashedBytes := (CryptoConfig.CreateFromName('MD5') AS HashAlgorithm).ComputeHash(clearBytes) ;
Result := BitConverter.ToString(hashedBytes) ;
//Remove "-"'s
Result := Result.Replace('-',System.String.Empty) ;
end; (* Encrypt *)
function Encrypt(const cleanString: string): string;
var
ue : UnicodeEncoding;
clearBytes, hashedBytes : array of Byte;
begin
ue := UnicodeEncoding.Create;
clearBytes := ue.GetBytes(cleanString) ;
hashedBytes := (CryptoConfig.CreateFromName('MD5') AS HashAlgorithm).ComputeHash(clearBytes) ;
Result := BitConverter.ToString(hashedBytes) ;
//Remove "-"'s
Result := Result.Replace('-',System.String.Empty) ;
end; (* Encrypt *)
Usage sample:
HashedString := Encrypt('http://delphi.about.com') ;
// HashedString = DC31A33D559C4B6609EEA9A6DA137486
// HashedString = DC31A33D559C4B6609EEA9A6DA137486
Another posts included in "Delphi"
| Delphi for .Net Code Folding keyboard shortcuts (0) | 2007/10/04 |
| Implementing C#'s foreach loop in Delphi 8 (0) | 2007/10/04 |
| Sending email messages in .Net (0) | 2007/10/04 |
| Creating thumbnail images (0) | 2007/10/04 |
| Technology sharing related with software development. Specially content... (0) | 2007/10/02 |
| Window flashing (0) | 2007/09/25 |
| How to use TTF Font Without Installing (0) | 2007/09/25 |
| How to show window contents while dragging (0) | 2007/09/25 |
BitConverter,
CryptoConfig,
Cryptography,
Delphi for .NET,
GetBytes,
MD5,
Security,
Unicode Encoding
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 06:08
moneyideas
-
Subject different money making ideas
2010/01/29 14:38
moneyideas
-
Subject different money making ideas
2010/01/31 16:41
moneyideas
Prev
Rss Feed