ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 00:58

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 1 件の記事 ] 
作成者 メッセージ
 記事の件名: 暗号化
投稿記事Posted: 2010年2月04日(木) 07:10 
コード:
#N88BASIC

'データを暗号化
Function EnC(in As *Byte, out As *Byte, l As Long) As Long
  Dim Cind As Long
  out[0] = in[0]
  For Cind = 1 To l-1
    out[Cind] = in[Cind]-in[Cind-1]
  Next  

End Function

'データを複合化
Function DeC(in As *Byte, out As *Byte, l As Long) As Long
  Dim Cind As Long
  out[0] = in[0]
  For Cind = 1 To l-1
    out[Cind] = in[Cind]+out[Cind-1]
  Next  
End Function


Function Show(in As *Byte, l As Long) As Long
  Dim Cind As Long
  Dim ele[45] As Byte

  For Cind = 0 To l-1
    wsprintf(ele, "%02x ", in[Cind])
    Print  MakeStr(ele);
  Next
  Print ""
End Function

'testo
Dim in[10] As Byte'元
Dim out[10] As Byte'暗号
Dim out2[10] As Byte'複合

wsprintf(in, "阿部高和")
Show(in, 10)

EnC(in, out, 10)
Show(out, 10)

DeC(out, out2, 10)
Show(out2, 10)


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 1 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[11人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean