ab.com コミュニティ

ActiveBasicを通したコミュニケーション
前回の訪問日時: 2019年2月21日(木) 16:17 現在時刻 - 2019年2月21日(木) 16:17

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


オンラインデータ

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


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

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