ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2017年11月21日(火) 13:22

All times are 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 件の記事 ] 

All times are UTC+09:00


オンラインデータ

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


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

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