100分，有问题问？

Question

你要什么加密算法？我这有IDEA的你给我邮件

Answer 1

Find.
fengerfeifei(风儿飞飞) ：我也要要，谢谢：[email protected]

Answer 2

unit Cl_crypt32;
{
*************************************************************************
*嘿: Cl_crypt32.pas
*
*弧: Cl_crypt32.pasや絪秆絏家舱эMartin Djern鎠ネ┮э
*      crypt32.pas 32 bits encode/decode moduleτΘэ瞶パ叫冈
*      ǎ瓃
*
*ㄧ计: function cl_encrypt(s:string):string;
*          function cl_decrypt(s:string):string;
*
*ㄏノよ猭: 絪絏encrypted:=cl_encrypt('password');
*          秆絏decrypted:=cl_decrypt(encrypted);
*
*猔種: ㄏノ叫эcl_crypt32.pasずStartKey,MultKey,AddKeykey
*       (ㄤいstartkey程ぃ璶256
*
*э瞶パ: 度恨Martin Djern鎠ネcrypt32.pas 32 bits encode/decode module
*            竒ノ琌и龟悔莱ノ玱祇瞷拜肈
*             1.礚猭р絪絏﹃﹚倒editじン
*             2.礚猭р絪絏﹃.ini郎ず
*                瓃ㄢ翴羭ㄒㄢㄒ靡
*                 ㄒ
*                       edit1.text:=Encrypt('password',StartKey,MultKey,AddKey);
*                       edit2.text:=decrypt(edit1.text,StartKey,MultKey,AddKey);
*                   挡狦: edit2.textず甧ぃ单'password'
*                 ㄒ
*                       var
*                          IniFile: TIniFile;
*                       begin
*                          IniFile := TIniFile.Create('test.INI');
*                          IniFile.WriteString('demo', 'password', Encrypt('password',StartKey,MultKey,AddKey));
*                          IniFile.Free;
*
*                          IniFile := TIniFile.Create('test.INI');
*                          edit2.text:=decrypt(IniFile.readString('demo', 'password', ''),StartKey,MultKey,AddKey);
*                          IniFile.Free;
*                    挡狦: edit2.textず甧ぃ单'password'
*              瓃ㄢ贺薄猵祇ネ阀琌絪絏じ絏127
*              礚猭砆ㄣΤ矪瞶ゅ篈じンタ絋矪瞶
*          膀瓃瞶パирウэ╰参丁把计
*          ㄏㄤ絪絏Θedit.textの.ini filesず
*
*э: [email protected]
*
*************************************************************************
}
{
*************************************************************************
* Name: Crypt32.Pas    *
* Description: 32 bits encode/decode module    *
* 2^96 variants it is very high to try hack *
* Purpose: Good for encrypting passwors and text *
* Security: avoid use StartKey less than 256 *
* if it use only for internal use you may use default  *
* key, but MODIFY unit before compiling *
* Call: Encrypted := Encrypt(InString,StartKey,MultKey,AddKey) *
* Decrypted := Decrypt(InString,StartKey)    *
* Parameters: InString = long string (max 2 GB) that need to encrypt *
* decrypt    *
* MultKey = MultKey key                *
* AddKey = Second key                *
* StartKey = Third key                *
* (posible use defaults from interface)    *
* Return: OutString = result string    *
* Editor: Besr viewed with Tab stops = 2, Courier new *
* Started: 01.08.1996    *
* Revision: 22.05.1997 - ver.2.01 converted from Delphi 1 *
* and made all keys as parameters, before only start key *
* Platform: Delphi 2.0, 3.0     *
*  work in Delphi 1.0, 2^48 variants, 0..255 strings *
* Author: Anatoly Podgoretsky    *
*  Base alghoritm from Borland    *
* Address: Vahe 4-31, Johvi, Estonia, EE2045, tel. 61-142     *
* [email protected]    *
* Status: Freeware, but any sponsor help will be appreciated here *
* need to buy books, shareware products, tools etc *
*************************************************************************
* Modified:     Supports Delphi 1.0 & 2.0                          *
*               Overflow checking removed                          *
* By:           Martin Djern鎠                                     *
* e-mail:       [email protected]                            *
* web:          einstein.ot.dk/~djernaes                           *
*************************************************************************
}
interfaceuses
  SysUtils;const
  StartKey = 956;   {Start default key}
  MultKey   = 58645; {Mult default key}
  AddKey   = 28564; {Add default key}function cl_encrypt(s:string):string;
function cl_decrypt(s:string):string;//function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
//function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;implementation{$R-}
{$Q-}
{*******************************************************
 * Standard Encryption algorithm - Copied from Borland *
 *******************************************************}
function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
  I : Byte;
begin
  Result := '';
  for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
  end;
end;
{*******************************************************
 * Standard Decryption algorithm - Copied from Borland *
 *******************************************************}
function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
  I : Byte;
begin
  Result := '';
  for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
  end;
end;
{$R+}
{$Q+}{Coded by cloudy}
Function cl_intto0str(int1:integer; len:integer):string;
var
   i,j:integer;
begin
     if length(inttostr(int1))>=len then
        result:=inttostr(int1)
     else
        begin
             result:='';
             i:=len-length(inttostr(int1));
             for j:=1 to i do result:=result+'0';
             result:=result+inttostr(int1);
        end;
end;{Coded by cloudy}
function cl_chartobytestr(s:string):string;
var
   i:byte;
begin
     result:='';
     for i:=1 to length(s) do
         result:=result+cl_intto0str(byte(s[i]),3);
end;function cl_bytetocharstr(s:string):string;
var
   i:integer;
begin
     i:=1;
     result:='';
     if (length(s) mod 3)=0 then
        while i<length(s) do
        begin
            result:=result+char(strtoint(copy(s,i,3)));
            i:=i+3;
        end;
end;{Coded by cloudy}
function cl_encrypt(s:string):string;
var
   years, months, days, hours, mins, secs, msec:word;
   cl_StartKey, cl_MultKey, cl_AddKey: longint;begin
     decodedate(now, years, months, days);
     decodetime(now, hours, mins, secs, msec);
     cl_StartKey:=msec;
     if cl_StartKey<256 then cl_StartKey:=cl_StartKey+256;
     cl_Multkey:=((years-1900)*12+months)*30+days+cl_StartKey*10+cl_StartKey;
     cl_AddKey:=(23*hours+mins)*60+secs+cl_StartKey*10+cl_StartKey;
     result:=cl_chartobytestr(Encrypt(cl_intto0str(cl_StartKey,3),StartKey,MultKey,AddKey))+cl_chartobytestr(Encrypt(cl_intto0str(cl_Multkey,5),StartKey,MultKey,AddKey))+cl_chartobytestr(Encrypt(cl_intto0str(cl_Addkey,5),StartKey,MultKey,AddKey))+cl_chartobytestr(Encrypt(s,cl_StartKey,cl_MultKey,cl_AddKey));
end;{Coded by cloudy}
function cl_decrypt(s:string):string;
var
   cl_StartKey, cl_Multkey, cl_AddKey:longint;
begin
   cl_StartKey:=strtoint(decrypt(cl_bytetocharstr(copy(s, 1, 9)),StartKey,MultKey,AddKey));
   cl_MultKey:=strtoint(decrypt(cl_bytetocharstr(copy(s, 10, 15)),StartKey,MultKey,AddKey));
   cl_AddKey:=str

Answer 3

{Coded by cloudy}
function cl_decrypt(s:string):string;
var
   cl_StartKey, cl_Multkey, cl_AddKey:longint;
begin
   cl_StartKey:=strtoint(decrypt(cl_bytetocharstr(copy(s, 1, 9)),StartKey,MultKey,AddKey));
   cl_MultKey:=strtoint(decrypt(cl_bytetocharstr(copy(s, 10, 15)),StartKey,MultKey,AddKey));
   cl_AddKey:=strtoint(decrypt(cl_bytetocharstr(copy(s, 25, 15)),StartKey,MultKey,AddKey));
   result:=decrypt(cl_bytetocharstr(copy(s, 40, length(s)-39)),cl_StartKey,cl_MultKey,cl_AddKey);
end;
end.

Answer 4

我的邮箱：[email protected]
怎么 kxy(手举穿肠毒药，怀抱刮骨钢刀)给的的帖子都是乱码呀！？

Answer 5

我的邮箱：[email protected]
怎么 kxy(手举穿肠毒药，怀抱刮骨钢刀)给的的帖子都是乱码呀！？

Answer 6

不好意思，我打错了，是[email protected]

Answer 7

给我发一份 [email protected]