線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1099
推到 Plurk!
推到 Facebook!

請問有人有用過TurboBox 的LockBox的VCL套件嗎??

尚未結案
willchen
初階會員


發表:64
回覆:81
積分:29
註冊:2003-05-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-03 03:35:58 IP:211.74.xxx.xxx 未訂閱
現在使用EncryptString的method沒問題,但是把加密後的文字(AnsiString格式)寫入txt檔(使用TStringList->SaveToFile處理),然後再用LoadFromFile 讀取剛寫完的加密文字,發現使用DecryptString method就出現問題,說我的格式不對(執行的時候),請問這是什麼問題??
willchen
初階會員


發表:64
回覆:81
積分:29
註冊:2003-05-23

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-03 03:40:12 IP:211.74.xxx.xxx 未訂閱
//---------------------------------------------------------------------------    #include  #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "LbAsym" #pragma link "LbCipher" #pragma link "LbClass" #pragma link "LbRSA" #pragma resource "*.dfm" TForm1 *Form1; //------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Memo1->Text=RSA1->EncryptString(Edit1->Text); /*TMemoryStream *msBuf=new TMemoryStream; BYTE bBuf=0; msBuf->Size=256; for(int i=0; iSize; i ) { msBuf->Position=i; bBuf=i; msBuf->Write(&bBuf, 1); } msBuf->SaveToFile("c:\\msBuf.dat"); delete msBuf; */ TStringList *e_file=new TStringList(); e_file->Text=Memo1->Text; e_file->SaveToFile("E:\\程式篆寫區\\BCB\\Use LockBox\\encrypted.txt"); } //------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { TStringList *e_2=new TStringList(); AnsiString e_string; e_2-> e_string=e_2->Text; Memo2->Text=e_string; Memo2->Text=RSA1->DecryptString(e_string); } //------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { RSA1->GenerateKeyPair(); } //------------------------------------------------------------------- 以上為原始程式碼 EncryptString與DecryptString都是把一個AnsiString丟進然後丟出AnsiString 請各位高手指點一下問題的所在,感謝指教
系統時間:2024-05-06 21:01:02
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!