Dator > hur du krypterar en fil med VB

  • hur du krypterar en fil med VB


  • Visual Basic-programmering språk , publiceras av Microsoft, kommer med en inbyggd bibliotek för att hantera kryptering och kryptografi . Även om kryptering biblioteket tar hand om de svåraste delarna av kryptera en fil , är det inte självklart hur man använder de verktyg som erbjuds för att kryptera en fil . Den viktigaste början är att för att kryptera en fil , måste du först läsa den som en array av byte , inte text eller andra datatyper
    1 .
    Skapa ett nytt projekt i Visual Basic genom att klicka på " File " och " Nytt projekt . " Välj " Console Application " alternativet . Senare kan du använda samma kod som används i denna handledning för att någon grafiskt användargränssnitt ( GUI ) program du väljer att bygga .
    2 .
    Import den kryptografiska biblioteket genom att klistra in följande kodrad högst upp på din ansökan .



    Import System. Security. Cryptography
    3

    läsa data från den fil du vill kryptera som en array av bytes med följande kommando :



    Dim byte ()=My. Computer . FileSystem. ReadAllBytes ( "C: \ file. dat " )



    Ersätt "C : \ file. dat " med sökvägen och namnet på den fil du vill kryptera .
    4 .
    Klistra in följande kommando för att förklara de viktigaste och Initieringsvektorn för kryptering funktionen . Du kommer att behöva denna information för att kunna dekryptera filen :



    Dim knappen ( ) As Byte={ 24,23,22,21,20,19,18 , 17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1 }

    Dim init_vector ( ) As Byte={ 8,7,6,5,4,3,2,1 }



    Självklart bör du byta ut alla tal i både nyckeln och Initieringsvektorn med andra nummer . Alla som känner till dessa siffror kan dekryptera filen , så gör dem svåra att gissa . Siffrorna bör alla vara giltigt byte : mellan 0 och 255
    5
    Initiera krypteringföretaget, en kryptering bäck och ett minne ström för att hålla den krypterade data medan du bestämmer vad du ska göra med . det . Klistra in följande kod :



    dim tdescsp=Nya TripleDESCryptoServiceProvider ( )

    dim krypteringsföretaget=tdescsp. CreateEncryptor ( nyckel , init_vector )

    dim memStream=ny System. IO. MemoryStream

    dim encryptionStream=new CryptoStream ( memStream , krypteringföretaget, CryptoStreamMode . Skriv )
    6
    Kryptera bytearrayen ovanifrån genom att klistra in följande : .



    encryptionStream. Write ( byte , 0 ,
    bytes. Length )

    encryptionStream. FlushFinalBlock ( )
    memStream. Position=0
    7 .
    Läs krypterade data tillbaka i din memStream :



    Dim encrypted_bytes ( memStream. Length-1 ) As Byte

    memStream. Read ( encrypted_bytes , 0 , memStream. Length )

    memStream. Close ( )
    8
    Klistra in följande för att skriva ut den krypterade data till konsolen .



    för varje x i encrypted_bytes

    Console . Skriv (x )

    Console. Write ("" )

    nästa

    Console. ReadKey ( )
    9 .

    Tryck på den gröna pilen för att köra programmet .


Previous:nothing Next:hur man skriver Visual Basic array data till en textfil





Relaterade artiklar


  • data recovery hårdvara
  • hur man öppnar Excel Office 2007 c #
  • hur du skickar e-post med Excel 2007 VBA
  • hur man gör en webbläsare med Visual Basic 2005 Express
  • hur man installerar java script på en PC
  • hur man använder en switch fall
  • hur du lägger upp stora filer med PHP
  • hur du tar bort ett adressfält i html
  • python lambda tutorial
  • hur du lägger till vanliga frågor om en Java-applet