ASP Blowfish ECB Encryption Matching Published Test Vectors

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

ASP script for Blowfish ECB encryption.

<html>
<body>
<%
' The key and unencrypted data (clearBytes) are passed as hexidecimalized strings.
Function BlowfishECB(crypt, key, clearBytes, expectedAnswer)
    
    ' Set the secret key
    crypt.SetEncodedKey key, "hex"
    
    ' Get the unencrypted data as binary data.
    unencryptedData = crypt.Decode(clearBytes, "hex")
    
    encrypted = crypt.EncryptBytesENC(unencryptedData)
    
    ' Chilkat padded to a multiple of 16 bytes, so we discard the padding
    encrypted = Left(encrypted, Len(clearBytes))
    
    ' Return a string that will be added to our output for visual verification.
    BlowfishECB = encrypted + " should equal " + expectedAnswer + "<br>"
    
End Function

    ' Visual Basic Blowfish ECB Encryption to match published test vectors
    ' at http://www.schneier.com/code/vectors.txt
    
	set crypt = Server.CreateObject("Chilkat_9_5_0.Crypt2")
    crypt.UnlockComponent "anything for 30-day trial"
    
    ' Set the CryptAlgorithm to "blowfish2".  Chilkat's original implementation
    ' of Blowfish ("blowfish") returned encrypted data
    ' 4321 byte-swapped.  For backward compatibility, an additional CryptAlgorithm
    ' keyword ("blowfish2") was added to indicate the new Blowfish implementation.
    crypt.CryptAlgorithm = "blowfish2"
    crypt.CipherMode = "ecb"
    
    ' The test vectors use 64-bit encryption.  It is advised to use 128-bit encryption
    ' or higher for secure encryption.
    crypt.KeyLength = 64
    
    ' Padding Schemes:
    ' 0 = (RFC2630) Each padding byte is the pad count (16 extra added if size is already a multiple of 16)
    ' 1 = Random bytes except the last is the pad count (16 extra added if size is already multiple of 16)
    ' 2 = Pad with random data. (If already a multiple of 16, no padding is added).
    ' 3 = Pad with NULLs. (If already a multiple of 16, no padding is added).
    ' 4 = Pad with SPACE chars(0x20). (If already a multiple of 16, no padding is added).
    
    ' To match the test vector output, we need to pad with NULL bytes.
    crypt.PaddingScheme = 3
    
    crypt.EncodingMode = "hex"
    
    Response.Write BlowfishECB(crypt, "0000000000000000", "0000000000000000", "4EF997456198DD78")
    Response.Write BlowfishECB(crypt, "FFFFFFFFFFFFFFFF", "FFFFFFFFFFFFFFFF", "51866FD5B85ECB8A")
    Response.Write BlowfishECB(crypt, "3000000000000000", "1000000000000001", "7D856F9A613063F2")
    Response.Write BlowfishECB(crypt, "1111111111111111", "1111111111111111", "2466DD878B963C9D")
    Response.Write BlowfishECB(crypt, "0123456789ABCDEF", "1111111111111111", "61F9C3802281B096")
    Response.Write BlowfishECB(crypt, "1111111111111111", "0123456789ABCDEF", "7D0CC630AFDA1EC7")
    Response.Write BlowfishECB(crypt, "0000000000000000", "0000000000000000", "4EF997456198DD78")
    Response.Write BlowfishECB(crypt, "FEDCBA9876543210", "0123456789ABCDEF", "0ACEAB0FC6A0A28D")
    Response.Write BlowfishECB(crypt, "7CA110454A1A6E57", "01A1D6D039776742", "59C68245EB05282B")
    Response.Write BlowfishECB(crypt, "0131D9619DC1376E", "5CD54CA83DEF57DA", "B1B8CC0B250F09A0")
    Response.Write BlowfishECB(crypt, "07A1133E4A0B2686", "0248D43806F67172", "1730E5778BEA1DA4")
    Response.Write BlowfishECB(crypt, "3849674C2602319E", "51454B582DDF440A", "A25E7856CF2651EB")
    Response.Write BlowfishECB(crypt, "04B915BA43FEB5B6", "42FD443059577FA2", "353882B109CE8F1A")
    Response.Write BlowfishECB(crypt, "0113B970FD34F2CE", "059B5E0851CF143A", "48F4D0884C379918")
    Response.Write BlowfishECB(crypt, "0170F175468FB5E6", "0756D8E0774761D2", "432193B78951FC98")
    Response.Write BlowfishECB(crypt, "43297FAD38E373FE", "762514B829BF486A", "13F04154D69D1AE5")
    Response.Write BlowfishECB(crypt, "07A7137045DA2A16", "3BDD119049372802", "2EEDDA93FFD39C79")
    Response.Write BlowfishECB(crypt, "04689104C2FD3B2F", "26955F6835AF609A", "D887E0393C2DA6E3")
    Response.Write BlowfishECB(crypt, "37D06BB516CB7546", "164D5E404F275232", "5F99D04F5B163969")
    Response.Write BlowfishECB(crypt, "1F08260D1AC2465E", "6B056E18759F5CCA", "4A057A3B24D3977B")
    Response.Write BlowfishECB(crypt, "584023641ABA6176", "004BD6EF09176062", "452031C1E4FADA8E")
    Response.Write BlowfishECB(crypt, "025816164629B007", "480D39006EE762F2", "7555AE39F59B87BD")
    Response.Write BlowfishECB(crypt, "49793EBC79B3258F", "437540C8698F3CFA", "53C55F9CB49FC019")
    Response.Write BlowfishECB(crypt, "4FB05E1515AB73A7", "072D43A077075292", "7A8E7BFA937E89A3")
    Response.Write BlowfishECB(crypt, "49E95D6D4CA229BF", "02FE55778117F12A", "CF9C5D7A4986ADB5")
    Response.Write BlowfishECB(crypt, "018310DC409B26D6", "1D9D5C5018F728C2", "D1ABB290658BC778")
    Response.Write BlowfishECB(crypt, "1C587F1C13924FEF", "305532286D6F295A", "55CB3774D13EF201")
    Response.Write BlowfishECB(crypt, "0101010101010101", "0123456789ABCDEF", "FA34EC4847B268B2")
    Response.Write BlowfishECB(crypt, "1F1F1F1F0E0E0E0E", "0123456789ABCDEF", "A790795108EA3CAE")
    Response.Write BlowfishECB(crypt, "E0FEE0FEF1FEF1FE", "0123456789ABCDEF", "C39E072D9FAC631D")
    Response.Write BlowfishECB(crypt, "0000000000000000", "FFFFFFFFFFFFFFFF", "014933E0CDAFF6E4")
    Response.Write BlowfishECB(crypt, "FFFFFFFFFFFFFFFF", "0000000000000000", "F21E9A77B71C49BC")
    Response.Write BlowfishECB(crypt, "0123456789ABCDEF", "0000000000000000", "245946885754369A")
    Response.Write BlowfishECB(crypt, "FEDCBA9876543210", "FFFFFFFFFFFFFFFF", "6B5C5A9C5D9E0A5A")

%>
</body>
</html>