愛國者安全網
www.3800hk.com
專業的紅客安全技術培訓基地
多抽出一分鐘時間學習.讓你的生命更加精彩.
動畫教程只是起到技術交流作用.請大家不用利用此方法對國內的網絡做破壞.
國人應該團結起來一致對外才是我們的責任.由此動畫造成的任何后果和本站無關.
-------------------------------------------------------------------------
大家好我是臟孩兒QQ297061006.今天教大家用VB簡單制作加密解密工具.


  首先聲明.加密就是把明文通過某種運算變成暗文.解密就是把暗文通過逆運算推出明文.
 
   下面讓我們來打開VB6.首先我們要做一個加密解密工具的外貌.這個看我操作.


    好了做好了.下面我們要為加解密編寫代碼.這個看我操作吧.
 
 
       制作簡單加密解密工具.用到的代碼為. 加密Dim a1 as integer定義一個變量
                                       
                                          a1=str(text1.text)讓a1在編輯框1中顯示
                                      
                                          a1=(a1 + 10)*90-30對a1進行加密運算.

                                          text2.text=val(a1)讓加密后的a1在編輯框2中顯示


                                       解密Dim a2 as integer定義一個變量
                                              
                                           a2=str(text2.text)讓a2在編輯框2中顯示
                                         
                                           a2=(a2+30)/90-10對a2進行解密運算.

                                           text3.text=val(a2)讓加密后的a2在編輯框3中顯示  
  

  















   大家看一下是不是很簡單?許多軟件的加密解密都是通過他們實現的.
   
    好了教程就到這里 88 . 黑鷹是個很不錯的站. 大家支持他吧.