HPAVC

home *** CD-ROM | disk | FTP | other *** search

/ HPAVC / HPAVC CD-ROM.iso / pc / BF_SDK11.ZIP / BFENG386.ASM < prev next >

Wrap

Assembly Source File | 1996-06-05 | 29.1 KB | 910 lines

; BFENG386.ASM ; Implementation of the Blowfish-Engine V 2.2 ; (c)1996 Markus Hahn & Cedric Reinartz ; !!! All restrictions in BF-SDK.TXT apply !!! ; Flags ; ----- ; You can control the behaviour of this modul from outside. ; If you don`t do this, the default values are set here: ifndef noLOOP noLOOP equ 1 ; 1 = enrolled LOOPs ; 0 = gives shorter code but has a ; 20% speed penalty endif ifndef rnds rnds equ 3 ; 1 = 16 rounds (always) ; 2 = 32 rounds (always) ; 3 = 16 is default, but you can change ; to 32 at runtime by software endif ;useSmall equ 1 ; Large Model is used ; If defined Small model is used ;noPub equ 1 ; Functions are exported ; If defined you can INCLUDE this ; code to your main-programm and you ; do not need to export the functions. ; So you can hide them and give your ; *.OBJ away. if rnds eq 1 PSBox_size equ 18+4*256 ; Boxsize for 16 Rounds else PSBox_size equ 34+4*256 ; Boxsize for a max of 32 Rounds endif ifndef useSmall .MODEL LARGE sofs equ 0 else .model small sofs equ -2 endif .386 ifndef noPub ; exported Functions ... PUBLIC Blowfish_GetBoxPointer PUBLIC Blowfish_GetBoxes PUBLIC Blowfish_SetBoxes PUBLIC Blowfish_Init PUBLIC Blowfish_ECBEncrypt PUBLIC Blowfish_ECBDecrypt PUBLIC Blowfish_CBCEncrypt PUBLIC Blowfish_CBCDecrypt PUBLIC Blowfish_Done PUBLIC Blowfish_SetRounds PUBLIC Blowfish_WeakKey _end macro ; I think it is the only method to terminate END ; this code with an END instruction endm else _end macro ; or not. endm endif .DATA ; P- and S-Boxes are predefined. ; Boxsizes : - P-Boxen : 18 or 34 Longints/DWords ; - S-Boxen : 4*256 Longints/DWords ; Size and contents of SBoxes is always the same. ; For 32 Round (rnds= 2 or 3) size and contents of ; PBox extends ; Attention! Do not place anything between the boxes align 32 pbox dd 0243f6a88h, 085a308d3h, 013198a2eh, 003707344h, 0a4093822h, 0299f31d0h dd 0082efa98h, 0ec4e6c89h, 0452821e6h, 038d01377h, 0be5466cfh, 034e90c6ch dd 0c0ac29b7h, 0c97c50ddh, 03f84d5b5h, 0b5470917h, 09216d5d9h, 08979fb1bh ife rnds eq 1 dd 0B83ACB02h, 02002397Ah, 06EC6FB5Bh, 0FFCFD4DDh, 04CBF5ED1h, 0F43FE582h dd 03EF4E823h, 02D152AF0h, 0E718C970h, 059BD9820h, 01F4A9D62h, 0E7A529BAh dd 089E1248Dh, 03BF88656h, 0C5114D0Eh, 0BC4CEE16h endif sbox1 dd 0d1310ba6h, 098dfb5ach, 02ffd72dbh, 0d01adfb7h, 0b8e1afedh, 06a267e96h dd 0ba7c9045h, 0f12c7f99h, 024a19947h, 0b3916cf7h, 00801f2e2h, 0858efc16h dd 0636920d8h, 071574e69h, 0a458fea3h, 0f4933d7eh, 00d95748fh, 0728eb658h dd 0718bcd58h, 082154aeeh, 07b54a41dh, 0c25a59b5h, 09c30d539h, 02af26013h dd 0c5d1b023h, 0286085f0h, 0ca417918h, 0b8db38efh, 08e79dcb0h, 0603a180eh dd 06c9e0e8bh, 0b01e8a3eh, 0d71577c1h, 0bd314b27h, 078af2fdah, 055605c60h dd 0e65525f3h, 0aa55ab94h, 057489862h, 063e81440h, 055ca396ah, 02aab10b6h dd 0b4cc5c34h, 01141e8ceh, 0a15486afh, 07c72e993h, 0b3ee1411h, 0636fbc2ah dd 02ba9c55dh, 0741831f6h, 0ce5c3e16h, 09b87931eh, 0afd6ba33h, 06c24cf5ch dd 07a325381h, 028958677h, 03b8f4898h, 06b4bb9afh, 0c4bfe81bh, 066282193h dd 061d809cch, 0fb21a991h, 0487cac60h, 05dec8032h, 0ef845d5dh, 0e98575b1h dd 0dc262302h, 0eb651b88h, 023893e81h, 0d396acc5h, 00f6d6ff3h, 083f44239h dd 02e0b4482h, 0a4842004h, 069c8f04ah, 09e1f9b5eh, 021c66842h, 0f6e96c9ah dd 0670c9c61h, 0abd388f0h, 06a51a0d2h, 0d8542f68h, 0960fa728h, 0ab5133a3h dd 06eef0b6ch, 0137a3be4h, 0ba3bf050h, 07efb2a98h, 0a1f1651dh, 039af0176h dd 066ca593eh, 082430e88h, 08cee8619h, 0456f9fb4h, 07d84a5c3h, 03b8b5ebeh dd 0e06f75d8h, 085c12073h, 0401a449fh, 056c16aa6h, 04ed3aa62h, 0363f7706h dd 01bfedf72h, 0429b023dh, 037d0d724h, 0d00a1248h, 0db0fead3h, 049f1c09bh dd 0075372c9h, 080991b7bh, 025d479d8h, 0f6e8def7h, 0e3fe501ah, 0b6794c3bh dd 0976ce0bdh, 004c006bah, 0c1a94fb6h, 0409f60c4h, 05e5c9ec2h, 0196a2463h dd 068fb6fafh, 03e6c53b5h, 01339b2ebh, 03b52ec6fh, 06dfc511fh, 09b30952ch dd 0cc814544h, 0af5ebd09h, 0bee3d004h, 0de334afdh, 0660f2807h, 0192e4bb3h dd 0c0cba857h, 045c8740fh, 0d20b5f39h, 0b9d3fbdbh, 05579c0bdh, 01a60320ah dd 0d6a100c6h, 0402c7279h, 0679f25feh, 0fb1fa3cch, 08ea5e9f8h, 0db3222f8h dd 03c7516dfh, 0fd616b15h, 02f501ec8h, 0ad0552abh, 0323db5fah, 0fd238760h dd 053317b48h, 03e00df82h, 09e5c57bbh, 0ca6f8ca0h, 01a87562eh, 0df1769dbh dd 0d542a8f6h, 0287effc3h, 0ac6732c6h, 08c4f5573h, 0695b27b0h, 0bbca58c8h dd 0e1ffa35dh, 0b8f011a0h, 010fa3d98h, 0fd2183b8h, 04afcb56ch, 02dd1d35bh dd 09a53e479h, 0b6f84565h, 0d28e49bch, 04bfb9790h, 0e1ddf2dah, 0a4cb7e33h dd 062fb1341h, 0cee4c6e8h, 0ef20cadah, 036774c01h, 0d07e9efeh, 02bf11fb4h dd 095dbda4dh, 0ae909198h, 0eaad8e71h, 06b93d5a0h, 0d08ed1d0h, 0afc725e0h dd 08e3c5b2fh, 08e7594b7h, 08ff6e2fbh, 0f2122b64h, 08888b812h, 0900df01ch dd 04fad5ea0h, 0688fc31ch, 0d1cff191h, 0b3a8c1adh, 02f2f2218h, 0be0e1777h dd 0ea752dfeh, 08b021fa1h, 0e5a0cc0fh, 0b56f74e8h, 018acf3d6h, 0ce89e299h dd 0b4a84fe0h, 0fd13e0b7h, 07cc43b81h, 0d2ada8d9h, 0165fa266h, 080957705h dd 093cc7314h, 0211a1477h, 0e6ad2065h, 077b5fa86h, 0c75442f5h, 0fb9d35cfh dd 0ebcdaf0ch, 07b3e89a0h, 0d6411bd3h, 0ae1e7e49h, 000250e2dh, 02071b35eh dd 0226800bbh, 057b8e0afh, 02464369bh, 0f009b91eh, 05563911dh, 059dfa6aah dd 078c14389h, 0d95a537fh, 0207d5ba2h, 002e5b9c5h, 083260376h, 06295cfa9h dd 011c81968h, 04e734a41h, 0b3472dcah, 07b14a94ah, 01b510052h, 09a532915h dd 0d60f573fh, 0bc9bc6e4h, 02b60a476h, 081e67400h, 008ba6fb5h, 0571be91fh dd 0f296ec6bh, 02a0dd915h, 0b6636521h, 0e7b9f9b6h, 0ff34052eh, 0c5855664h dd 053b02d5dh, 0a99f8fa1h, 008ba4799h, 06e85076ah sbox2 dd 04b7a70e9h, 0b5b32944h dd 0db75092eh, 0c4192623h, 0ad6ea6b0h, 049a7df7dh, 09cee60b8h, 08fedb266h dd 0ecaa8c71h, 0699a17ffh, 05664526ch, 0c2b19ee1h, 0193602a5h, 075094c29h dd 0a0591340h, 0e4183a3eh, 03f54989ah, 05b429d65h, 06b8fe4d6h, 099f73fd6h dd 0a1d29c07h, 0efe830f5h, 04d2d38e6h, 0f0255dc1h, 04cdd2086h, 08470eb26h dd 06382e9c6h, 0021ecc5eh, 009686b3fh, 03ebaefc9h, 03c971814h, 06b6a70a1h dd 0687f3584h, 052a0e286h, 0b79c5305h, 0aa500737h, 03e07841ch, 07fdeae5ch dd 08e7d44ech, 05716f2b8h, 0b03ada37h, 0f0500c0dh, 0f01c1f04h, 00200b3ffh dd 0ae0cf51ah, 03cb574b2h, 025837a58h, 0dc0921bdh, 0d19113f9h, 07ca92ff6h dd 094324773h, 022f54701h, 03ae5e581h, 037c2dadch, 0c8b57634h, 09af3dda7h dd 0a9446146h, 00fd0030eh, 0ecc8c73eh, 0a4751e41h, 0e238cd99h, 03bea0e2fh dd 03280bba1h, 0183eb331h, 04e548b38h, 04f6db908h, 06f420d03h, 0f60a04bfh dd 02cb81290h, 024977c79h, 05679b072h, 0bcaf89afh, 0de9a771fh, 0d9930810h dd 0b38bae12h, 0dccf3f2eh, 05512721fh, 02e6b7124h, 0501adde6h, 09f84cd87h dd 07a584718h, 07408da17h, 0bc9f9abch, 0e94b7d8ch, 0ec7aec3ah, 0db851dfah dd 063094366h, 0c464c3d2h, 0ef1c1847h, 03215d908h, 0dd433b37h, 024c2ba16h dd 012a14d43h, 02a65c451h, 050940002h, 0133ae4ddh, 071dff89eh, 010314e55h dd 081ac77d6h, 05f11199bh, 0043556f1h, 0d7a3c76bh, 03c11183bh, 05924a509h dd 0f28fe6edh, 097f1fbfah, 09ebabf2ch, 01e153c6eh, 086e34570h, 0eae96fb1h dd 0860e5e0ah, 05a3e2ab3h, 0771fe71ch, 04e3d06fah, 02965dcb9h, 099e71d0fh dd 0803e89d6h, 05266c825h, 02e4cc978h, 09c10b36ah, 0c6150ebah, 094e2ea78h dd 0a5fc3c53h, 01e0a2df4h, 0f2f74ea7h, 0361d2b3dh, 01939260fh, 019c27960h dd 05223a708h, 0f71312b6h, 0ebadfe6eh, 0eac31f66h, 0e3bc4595h, 0a67bc883h dd 0b17f37d1h, 0018cff28h, 0c332ddefh, 0be6c5aa5h, 065582185h, 068ab9802h dd 0eecea50fh, 0db2f953bh, 02aef7dadh, 05b6e2f84h, 01521b628h, 029076170h dd 0ecdd4775h, 0619f1510h, 013cca830h, 0eb61bd96h, 00334fe1eh, 0aa0363cfh dd 0b5735c90h, 04c70a239h, 0d59e9e0bh, 0cbaade14h, 0eecc86bch, 060622ca7h dd 09cab5cabh, 0b2f3846eh, 0648b1eafh, 019bdf0cah, 0a02369b9h, 0655abb50h dd 040685a32h, 03c2ab4b3h, 0319ee9d5h, 0c021b8f7h, 09b540b19h, 0875fa099h dd 095f7997eh, 0623d7da8h, 0f837889ah, 097e32d77h, 011ed935fh, 016681281h dd 00e358829h, 0c7e61fd6h, 096dedfa1h, 07858ba99h, 057f584a5h, 01b227263h dd 09b83c3ffh, 01ac24696h, 0cdb30aebh, 0532e3054h, 08fd948e4h, 06dbc3128h dd 058ebf2efh, 034c6ffeah, 0fe28ed61h, 0ee7c3c73h, 05d4a14d9h, 0e864b7e3h dd 042105d14h, 0203e13e0h, 045eee2b6h, 0a3aaabeah, 0db6c4f15h, 0facb4fd0h dd 0c742f442h, 0ef6abbb5h, 0654f3b1dh, 041cd2105h, 0d81e799eh, 086854dc7h dd 0e44b476ah, 03d816250h, 0cf62a1f2h, 05b8d2646h, 0fc8883a0h, 0c1c7b6a3h dd 07f1524c3h, 069cb7492h, 047848a0bh, 05692b285h, 0095bbf00h, 0ad19489dh dd 01462b174h, 023820e00h, 058428d2ah, 00c55f5eah, 01dadf43eh, 0233f7061h dd 03372f092h, 08d937e41h, 0d65fecf1h, 06c223bdbh, 07cde3759h, 0cbee7460h dd 04085f2a7h, 0ce77326eh, 0a6078084h, 019f8509eh, 0e8efd855h, 061d99735h dd 0a969a7aah, 0c50c06c2h, 05a04abfch, 0800bcadch, 09e447a2eh, 0c3453484h dd 0fdd56705h, 00e1e9ec9h, 0db73dbd3h, 0105588cdh, 0675fda79h, 0e3674340h dd 0c5c43465h, 0713e38d8h, 03d28f89eh, 0f16dff20h, 0153e21e7h, 08fb03d4ah dd 0e6e39f2bh, 0db83adf7h sbox3 dd 0e93d5a68h, 0948140f7h, 0f64c261ch, 094692934h dd 0411520f7h, 07602d4f7h, 0bcf46b2eh, 0d4a20068h, 0d4082471h, 03320f46ah dd 043b7d4b7h, 0500061afh, 01e39f62eh, 097244546h, 014214f74h, 0bf8b8840h dd 04d95fc1dh, 096b591afh, 070f4ddd3h, 066a02f45h, 0bfbc09ech, 003bd9785h dd 07fac6dd0h, 031cb8504h, 096eb27b3h, 055fd3941h, 0da2547e6h, 0abca0a9ah dd 028507825h, 0530429f4h, 00a2c86dah, 0e9b66dfbh, 068dc1462h, 0d7486900h dd 0680ec0a4h, 027a18deeh, 04f3ffea2h, 0e887ad8ch, 0b58ce006h, 07af4d6b6h dd 0aace1e7ch, 0d3375fech, 0ce78a399h, 0406b2a42h, 020fe9e35h, 0d9f385b9h dd 0ee39d7abh, 03b124e8bh, 01dc9faf7h, 04b6d1856h, 026a36631h, 0eae397b2h dd 03a6efa74h, 0dd5b4332h, 06841e7f7h, 0ca7820fbh, 0fb0af54eh, 0d8feb397h dd 0454056ach, 0ba489527h, 055533a3ah, 020838d87h, 0fe6ba9b7h, 0d096954bh dd 055a867bch, 0a1159a58h, 0cca92963h, 099e1db33h, 0a62a4a56h, 03f3125f9h dd 05ef47e1ch, 09029317ch, 0fdf8e802h, 004272f70h, 080bb155ch, 005282ce3h dd 095c11548h, 0e4c66d22h, 048c1133fh, 0c70f86dch, 007f9c9eeh, 041041f0fh dd 0404779a4h, 05d886e17h, 0325f51ebh, 0d59bc0d1h, 0f2bcc18fh, 041113564h dd 0257b7834h, 0602a9c60h, 0dff8e8a3h, 01f636c1bh, 00e12b4c2h, 002e1329eh dd 0af664fd1h, 0cad18115h, 06b2395e0h, 0333e92e1h, 03b240b62h, 0eebeb922h dd 085b2a20eh, 0e6ba0d99h, 0de720c8ch, 02da2f728h, 0d0127845h, 095b794fdh dd 0647d0862h, 0e7ccf5f0h, 05449a36fh, 0877d48fah, 0c39dfd27h, 0f33e8d1eh dd 00a476341h, 0992eff74h, 03a6f6eabh, 0f4f8fd37h, 0a812dc60h, 0a1ebddf8h dd 0991be14ch, 0db6e6b0dh, 0c67b5510h, 06d672c37h, 02765d43bh, 0dcd0e804h dd 0f1290dc7h, 0cc00ffa3h, 0b5390f92h, 0690fed0bh, 0667b9ffbh, 0cedb7d9ch dd 0a091cf0bh, 0d9155ea3h, 0bb132f88h, 0515bad24h, 07b9479bfh, 0763bd6ebh dd 037392eb3h, 0cc115979h, 08026e297h, 0f42e312dh, 06842ada7h, 0c66a2b3bh dd 012754ccch, 0782ef11ch, 06a124237h, 0b79251e7h, 006a1bbe6h, 04bfb6350h dd 01a6b1018h, 011caedfah, 03d25bdd8h, 0e2e1c3c9h, 044421659h, 00a121386h dd 0d90cec6eh, 0d5abea2ah, 064af674eh, 0da86a85fh, 0bebfe988h, 064e4c3feh dd 09dbc8057h, 0f0f7c086h, 060787bf8h, 06003604dh, 0d1fd8346h, 0f6381fb0h dd 07745ae04h, 0d736fccch, 083426b33h, 0f01eab71h, 0b0804187h, 03c005e5fh dd 077a057beh, 0bde8ae24h, 055464299h, 0bf582e61h, 04e58f48fh, 0f2ddfda2h dd 0f474ef38h, 08789bdc2h, 05366f9c3h, 0c8b38e74h, 0b475f255h, 046fcd9b9h dd 07aeb2661h, 08b1ddf84h, 0846a0e79h, 0915f95e2h, 0466e598eh, 020b45770h dd 08cd55591h, 0c902de4ch, 0b90bace1h, 0bb8205d0h, 011a86248h, 07574a99eh dd 0b77f19b6h, 0e0a9dc09h, 0662d09a1h, 0c4324633h, 0e85a1f02h, 009f0be8ch dd 04a99a025h, 01d6efe10h, 01ab93d1dh, 00ba5a4dfh, 0a186f20fh, 02868f169h dd 0dcb7da83h, 0573906feh, 0a1e2ce9bh, 04fcd7f52h, 050115e01h, 0a70683fah dd 0a002b5c4h, 00de6d027h, 09af88c27h, 0773f8641h, 0c3604c06h, 061a806b5h dd 0f0177a28h, 0c0f586e0h, 0006058aah, 030dc7d62h, 011e69ed7h, 02338ea63h dd 053c2dd94h, 0c2c21634h, 0bbcbee56h, 090bcb6deh, 0ebfc7da1h, 0ce591d76h dd 06f05e409h, 04b7c0188h, 039720a3dh, 07c927c24h, 086e3725fh, 0724d9db9h dd 01ac15bb4h, 0d39eb8fch, 0ed545578h, 008fca5b5h, 0d83d7cd3h, 04dad0fc4h dd 01e50ef5eh, 0b161e6f8h, 0a28514d9h, 06c51133ch, 06fd5c7e7h, 056e14ec4h dd 0362abfceh, 0ddc6c837h, 0d79a3234h, 092638212h, 0670efa8eh, 0406000e0h sbox4 dd 03a39ce37h, 0d3faf5cfh, 0abc27737h, 05ac52d1bh, 05cb0679eh, 04fa33742h dd 0d3822740h, 099bc9bbeh, 0d5118e9dh, 0bf0f7315h, 0d62d1c7eh, 0c700c47bh dd 0b78c1b6bh, 021a19045h, 0b26eb1beh, 06a366eb4h, 05748ab2fh, 0bc946e79h dd 0c6a376d2h, 06549c2c8h, 0530ff8eeh, 0468dde7dh, 0d5730a1dh, 04cd04dc6h dd 02939bbdbh, 0a9ba4650h, 0ac9526e8h, 0be5ee304h, 0a1fad5f0h, 06a2d519ah dd 063ef8ce2h, 09a86ee22h, 0c089c2b8h, 043242ef6h, 0a51e03aah, 09cf2d0a4h dd 083c061bah, 09be96a4dh, 08fe51550h, 0ba645bd6h, 02826a2f9h, 0a73a3ae1h dd 04ba99586h, 0ef5562e9h, 0c72fefd3h, 0f752f7dah, 03f046f69h, 077fa0a59h dd 080e4a915h, 087b08601h, 09b09e6adh, 03b3ee593h, 0e990fd5ah, 09e34d797h dd 02cf0b7d9h, 0022b8b51h, 096d5ac3ah, 0017da67dh, 0d1cf3ed6h, 07c7d2d28h dd 01f9f25cfh, 0adf2b89bh, 05ad6b472h, 05a88f54ch, 0e029ac71h, 0e019a5e6h dd 047b0acfdh, 0ed93fa9bh, 0e8d3c48dh, 0283b57cch, 0f8d56629h, 079132e28h dd 0785f0191h, 0ed756055h, 0f7960e44h, 0e3d35e8ch, 015056dd4h, 088f46dbah dd 003a16125h, 00564f0bdh, 0c3eb9e15h, 03c9057a2h, 097271aech, 0a93a072ah dd 01b3f6d9bh, 01e6321f5h, 0f59c66fbh, 026dcf319h, 07533d928h, 0b155fdf5h dd 003563482h, 08aba3cbbh, 028517711h, 0c20ad9f8h, 0abcc5167h, 0ccad925fh dd 04de81751h, 03830dc8eh, 0379d5862h, 09320f991h, 0ea7a90c2h, 0fb3e7bceh dd 05121ce64h, 0774fbe32h, 0a8b6e37eh, 0c3293d46h, 048de5369h, 06413e680h dd 0a2ae0810h, 0dd6db224h, 069852dfdh, 009072166h, 0b39a460ah, 06445c0ddh dd 0586cdecfh, 01c20c8aeh, 05bbef7ddh, 01b588d40h, 0ccd2017fh, 06bb4e3bbh dd 0dda26a7eh, 03a59ff45h, 03e350a44h, 0bcb4cdd5h, 072eacea8h, 0fa6484bbh dd 08d6612aeh, 0bf3c6f47h, 0d29be463h, 0542f5d9eh, 0aec2771bh, 0f64e6370h dd 0740e0d8dh, 0e75b1357h, 0f8721671h, 0af537d5dh, 04040cb08h, 04eb4e2cch dd 034d2466ah, 00115af84h, 0e1b00428h, 095983a1dh, 006b89fb4h, 0ce6ea048h dd 06f3f3b82h, 03520ab82h, 0011a1d4bh, 0277227f8h, 0611560b1h, 0e7933fdch dd 0bb3a792bh, 0344525bdh, 0a08839e1h, 051ce794bh, 02f32c9b7h, 0a01fbac9h dd 0e01cc87eh, 0bcc7d1f6h, 0cf0111c3h, 0a1e8aac7h, 01a908749h, 0d44fbd9ah dd 0d0dadecbh, 0d50ada38h, 00339c32ah, 0c6913667h, 08df9317ch, 0e0b12b4fh dd 0f79e59b7h, 043f5bb3ah, 0f2d519ffh, 027d9459ch, 0bf97222ch, 015e6fc2ah dd 00f91fc71h, 09b941525h, 0fae59361h, 0ceb69cebh, 0c2a86459h, 012baa8d1h dd 0b6c1075eh, 0e3056a0ch, 010d25065h, 0cb03a442h, 0e0ec6e0eh, 01698db3bh dd 04c98a0beh, 03278e964h, 09f1f9532h, 0e0d392dfh, 0d3a0342bh, 08971f21eh dd 01b0a7441h, 04ba3348ch, 0c5be7120h, 0c37632d8h, 0df359f8dh, 09b992f2eh dd 0e60b6f47h, 00fe3f11dh, 0e54cda54h, 01edad891h, 0ce6279cfh, 0cd3e7e6fh dd 01618b166h, 0fd2c1d05h, 0848fd2c5h, 0f6fb2299h, 0f523f357h, 0a6327623h dd 093a83531h, 056cccd02h, 0acf08162h, 05a75ebb5h, 06e163697h, 088d273cch dd 0de966292h, 081b949d0h, 04c50901bh, 071c65614h, 0e6c6c7bdh, 0327a140ah dd 045e1d006h, 0c3f27b9ah, 0c9aa53fdh, 062a80f00h, 0bb25bfe2h, 035bdd2f6h dd 071126905h, 0b2040222h, 0b6cbcf7ch, 0cd769c2bh, 053113ec0h, 01640e3d3h dd 038abbd60h, 02547adf0h, 0ba38209ch, 0f746ce76h, 077afa1c5h, 020756060h dd 085cbfe4eh, 08ae88dd8h, 07aaaf9b0h, 04cf9aa7eh, 01948c25ch, 002fb8a8ch dd 001c36ae4h, 0d6ebe1f9h, 090d4f869h, 0a65cdea0h, 03f09252dh, 0c208e69fh dd 0b74e6132h, 0ce77e25bh, 0578fdfe3h, 03ac372e6h if rnds eq 2 rounds equ 32 PBox_size equ 32+2 else if rnds eq 1 rounds equ 16 PBox_size equ 16+2 else rounds dw 16 PBox_size dw 16+2 endif endif .CODE ; usefull macros enciph_dxax MACRO boxnr4 xor edx, [pbox+boxnr4] ; boxnr4 = PBox Nr * 4 ror edx,16 mov bl,dh mov ecx, [ebx*4+offset sbox1] ; ECX = S[1,a] mov bl, dl add ecx, [ebx*4+offset sbox2] ; ECX = ECX + S[2,b] rol edx,16 mov bl, dh ; das 3te Byte -> c xor ecx, [ebx*4+offset sbox3] ; ECX := ECX xor S[3,c] mov bl, dl ; das 4te Byte -> d add ecx, [ebx*4+offset sbox4] ; ECX := ECX + S[4,d] xor eax, ecx ENDM enciph_axdx MACRO boxnr4 xor eax, [pbox+boxnr4] ; boxnr4 = PBox Nr * 4 ror eax,16 mov bl,ah mov ecx, [ebx*4+offset sbox1] ; ECX = S[1,a] mov bl, al add ecx, [ebx*4+offset sbox2] ; ECX = ECX + S[2,b] rol eax,16 mov bl, ah ; das 3te Byte -> c xor ecx, [ebx*4+offset sbox3] ; ECX := ECX xor S[3,c] mov bl, al ; das 4te Byte -> d add ecx, [ebx*4+offset sbox4] ; ECX := ECX + S[4,d] xor edx, ecx ENDM ; BLOWFISH_GETBOXPOINTER - simply returns the address of the first ; pbox, _assumes_ that the boxes are linked ! ; <- Pointer Blowfish_GetBoxPointer proc mov dx, seg pbox ; when _DATA segments are combined same as DS mov ax, offset pbox ; (as in Pascal). In some cases not (!) ret Blowfish_GetBoxPointer endp ; BLOWFISH_GetBoxes - copies the contents of the boxes to pBuffer, with a ; minimum border of 8 bytes, saves no registers ; -> pBuffer : Pointer Blowfish_GetBoxes proc push bp mov bp, sp mov bx,es mov cx, PSBOX_SIZE ; Size of P+SBoxes in DWords les di, [BP+sofs+6] ; pBuffer is target mov si, offset pbox ; Boxes are source cld rep movsd mov es,bx pop bp ret 4 Blowfish_GetBoxes endp ; BLOWFISH_SetBoxes - copies the contents of pBuffer to the boxes, with a ; minimum border of 8 bytes, saves no registers ; -> pBuffer : Pointer Blowfish_SetBoxes proc push bp mov bp, sp mov bx,es mov dx,ds mov es,dx mov cx, PSBOX_SIZE ; Size of P+SBoxes in DWords lds si, [BP+sofs+6] ; Buffer is source mov di, offset pbox ; Boxes are target cld rep movsd mov ds,dx mov es,bx pop bp ret 4 Blowfish_SetBoxes endp ; the engine... ; BLOWFISH_ENCIPHER - this function encrypts a 64bit data elememt, ; saves no registers, so it can be adjusted to the ; maximum speed to every caller, ; registers EAX,EBX,ECX,EDX will be destroyed ; <-> EDX:EAX - the 64bit data element (left:right) blowfish_encipher proc near xor ebx,ebx ; needed later if noLOOP eq 1 ; very fast code without LOOP`s PBNr = 0 REPT 8 enciph_dxax PBNr PBNr = PBNr + 4 enciph_axdx PBNr PBNr = PBNr + 4 endm if rnds eq 3 cmp rounds,16 jne short be32 endif ife rnds eq 2 xchg eax, edx xor eax, pbox+PBNr xor edx, pbox+PBNr+4 ret endif ife rnds eq 1 be32: REPT 8 enciph_dxax PBNr PBNr = PBNr + 4 enciph_axdx PBNr PBNr = PBNr + 4 endm xchg eax, edx xor eax, pbox+PBNr xor edx, pbox+PBNr+4 ret endif else ; or with LOOP`s push si push di mov si,0 mov di,rounds ; 16 or 32 shl di,2 ; * 4 bel: enciph_dxax si xchg eax, edx add si,4 cmp si,di jne bel xchg eax, edx xor eax, [pbox+si] xor edx, [pbox+4+si] pop di pop si ret endif blowfish_encipher endp ; BLOWFISH_DECIPHER - this function decrypts a 64bit data elememt, ; saves no registers, so it can be adjusted to the ; maximum speed to every caller, ; registers EAX, EBX, ECX and EDX will be destroyed ; <-> EDX:EAX - the 64bit data element (left:right) ; for the most curious fact we can use the "enciph" macro for ; the decryption again... blowfish_decipher proc near xor ebx,ebx ; needed later if noLOOP eq 1 ; without LOOP`s if rnds eq 3 cmp rounds,16 je bd16 endif ife rnds eq 1 PBNr = 33*4 REPT 8 enciph_dxax PBNr PBNr = PBNr - 4 enciph_axdx PBNr PBNr = PBNr - 4 endm endif bd16: PBNr = 17*4 REPT 8 enciph_dxax PBNr PBNr = PBNr - 4 enciph_axdx PBNr PBNr = PBNr - 4 endm else ; or with LOOP`s push si mov si,rounds ; 16 or 32 inc si ; = 17 or 33 shl si,2 ; * 4 bdl: enciph_dxax si xchg eax, edx sub si,4 cmp si,1*4 jne bdl pop si endif xchg eax, edx xor eax, pbox+(1*4) xor edx, pbox+(0*4) ret blowfish_decipher endp ; BLOWFISH_ECBENCRYPT - encrypts wCount bytes, with a minimum border of ; 8 bytes, saves no registers ; -> pBuffer : Pointer, wCount : Word Blowfish_ECBEncrypt proc push bp mov bp, sp mov cx, [BP+sofs+6] ; Number of Bytes (wCount) to encrypt les di, [BP+sofs+8] ; pBuffer as target lfs si, [BP+sofs+8] ; pBuffer as source shr cx, 3 ; Change Byte- to DWord-counter cld @@EDlp: push cx mov edx, fs:[si] ; load 64bit Data EDX:EAX mov eax, fs:[si+4] ; (EDX is the lower DWord !) add si, 8 call blowfish_encipher ; encrypt mov es:[di], edx ; save the result add di, 4 stosd pop cx dec cx ; (faster than LOOP on 386) jnz @@EDlp pop bp ret 6 Blowfish_ECBEncrypt endp ; BLOWFISH_ECBDECRYPT - decrypts wCount bytes, with a minimum border of ; 8 bytes, saves no registers ; -> pBuffer : Pointer, wCount : Word Blowfish_ECBDecrypt proc push bp mov bp, sp mov cx, [BP+sofs+6] ; Number of Bytes les di, [BP+sofs+8] ; pBuffer is target lfs si, [BP+sofs+8] ; and source shr cx, 3 ; Byte to DWord counter cld @@DDlp: push cx mov edx, fs:[si] ; load 64bit Data EDX:EAX mov eax, fs:[si+4] add si, 8 call blowfish_decipher ; decrypt mov es:[di], edx ; save result add di, 4 stosd pop cx dec cx or cx, cx jnz @@DDlp pop bp ret 6 Blowfish_ECBDecrypt endp ; BLOWISH_CBCENCRYPT - encrypts wCount bytes, with a minimum border of 8 bytes, ; uses the CBC method, returns a 32bit crc, saves no ; registers, except of DS ; -> pBuffer : Pointer, wCount : Word, var lCBClo, lCBChi : Longint Blowfish_CBCEncrypt proc push bp mov bp, sp cld mov cx, ds ; read CBC-String ... lds si, [BP+sofs+10] lodsd push eax lds si, [BP+sofs+6] ; ... save it on the Stack lodsd push eax mov ds, cx mov cx, [BP+sofs+14] ; Number of Bytes les di, [BP+sofs+16] ; pBuffer is target lfs si, [BP+sofs+16] ; and source shr cx, 3 ; Byte to DWord counter @@CBCEDlp: mov edx, fs:[si] ; load 64bit Data in EDX:EAX mov eax, fs:[si+4] add si, 8 pop ebx ; get CBC-String from Stack and combine with xor edx, ebx ; Data pop ebx xor eax, ebx push cx call blowfish_encipher ; encrypt pop cx push eax ; Result is the new CBC-String, push edx ; put it on the stack again mov es:[di], edx ; save encrypted Data add di, 4 stosd dec cx jnz @@CBCEDlp pop ecx ; return CBC-String pop ebx lgs di, [BP+sofs+6] mov gs:[di], ecx lgs di, [BP+sofs+10] mov gs:[di], ebx pop bp ret 14 Blowfish_CBCEncrypt endp ; BLOWFISH_CBCDECRYPT - decrypts wCount bytes, with a minimum border of 8 bytes, ; uses the CBC method, saves no registers, except of DS ; -> pBuffer : Pointer, wCount : Word, var lCBClo, lCBChi : Longint Blowfish_CBCDecrypt proc push bp mov bp, sp cld mov cx, ds ; get CBC-String ... lds si, [BP+sofs+10] lodsd push eax lds si, [BP+sofs+6] ; ...and put it on the stack lodsd push eax mov ds, cx mov cx, [BP+sofs+14] ; Number of Bytes les di, [BP+sofs+16] ; pBuffer is target lfs si, [BP+sofs+16] ; and source shr cx, 3 ; Byte to DWord counter @@CBCDDlp: mov edx, fs:[si] ; load 64bit Data in EDX:EAX mov eax, fs:[si+4] add si, 8 shl edi, 16 ; now it get's tricky (Stack-Swapping)... mov di, cx pop ecx ; Get CBC-String from Stack pop ebx push eax ; The new CBC-String is the encryptet push edx ; Data, put it on the stack push ebx ; save the aktuel CBC-String push ecx ; on the Stack mov cx, di ; get CX back shr edi, 16 push cx call blowfish_decipher ; decrypt pop cx pop ebx ; reverse Data / CBC combination xor edx, ebx pop ebx xor eax, ebx mov es:[di], edx ; save decrypted Data add di, 4 stosd dec cx jnz @@CBCDDlp pop ecx ; return CBC pop ebx lgs di, [BP+sofs+6] mov gs:[di], ecx lgs di, [BP+sofs+10] mov gs:[di], ebx pop bp ret 14 Blowfish_CBCDecrypt endp ; BLOWFISH_INIT - initalises the boxes with a defined key ; -> key : Pointer, length : Word Blowfish_Init proc push bp mov bp, sp ; xor the pboxes with the key... mov dx, [BP+sofs+6] ; load the key's length or dx, dx jz short @@BIexit ; avoid zero cases mov ax, ds ; ES = DS mov es, ax mov cx, PBOX_SIZE ; set counter if rnds eq 3 push cx ; für 2te Runde merken endif lds si, [BP+sofs+8] ; load the key pointer mov bx, si ; (and save the offset for within the loop) mov bp, dx ; (we don't need BP any more } mov di, offset pbox cld @@BIlp0: push cx mov cx, 4 ; built a dword in EAX in MSB byte order @@BIlp1: shl eax, 8 lodsb dec dx ; cycle through the key jnz short @@BInocycle mov si, bx ; (reload the key start address and length) mov dx, bp @@BInocycle: dec cx jnz @@BIlp1 xor es:[di], eax ; xor with the actual pbox add di, 4 ; next pbox pop cx dec cx jnz @@BIlp0 mov ax, es ; restore DS mov ds, ax ; now encrypt all the boxes starting with ; a so called "all zero-string" xor eax, eax ; create the zero-string mov edx, eax if rnds eq 3 pop si ; PBOX_SIZE (CX in use, SI as counter) shr si, 1 ; / 2 else mov si,PBox_size / 2 endif mov di, offset pbox ; encrypt boxes... @@BIlp2: call blowfish_encipher ; (destroys ECX and EBX) mov [di], edx add di, 4 stosd ; (ES = DS) dec si jnz @@BIlp2 mov si, (4*256)/2 ; SBox_size / 2 mov di, offset sbox1 ; encrypt boxes... @@BIlp3: call blowfish_encipher ; (destroys ECX and EBX) mov [di], edx add di, 4 stosd ; (ES = DS) dec si jnz @@BIlp3 @@BIexit: pop bp ret 6 Blowfish_Init endp ; BLOWFISH_DONE - simply clears all the boxes to let no sensitive data ; left in memory after the applications is finished Blowfish_Done proc push es push ds pop es mov di, offset pbox ; fast 32 Bit clear mov cx, PSBOX_SIZE xor eax, eax cld rep stosd pop es ret Blowfish_Done endp ; BLOWFISH_SETROUNDS - sets the rounds Blowfish has to go: 16 or 32 Blowfish_SetRounds proc push bp mov bp, sp if rnds eq 3 mov ax, [BP+sofs+6] ; # of rounds if noLoop eq 1 cmp ax,16 ; if enrolled only 16 oder 32 Rounds allowed je br1 cmp ax,32 jne brexit else and ax,0fffeh cmp ax,0 ; else you can use all from 2 to 32 in je brexit ; steps of 2 cmp ax,32 ja brexit endif br1: mov rounds,ax add ax,2 mov PBox_size,ax endif brexit: mov ax, rounds ; Return the number of rounds actual used pop bp ret 2 Blowfish_SetRounds endp ; Blowfish_WeakKey detects "bad" passwords Blowfish_WeakKey proc push es push ds pop es cld mov dx,1 ; assume WeakKey mov bx,offset sbox1 mov si,offset sbox1 + 4*4*256 ; all SBoxes (4*4*256 Bytes) wkl: mov eax,[bx] ; get DWord add bx,4 ; position to next mov di,bx ; start compare here mov cx,si ; Number of compares = End sub cx,bx ; minus next Position je bfwok ; Same?, Then ready shr cx,2 ; count in in DWords repne scasd ; search je bfwke ; found? yes -> key is weak jmp short wkl bfwok: dec dx ; Key is not weak bfwke: mov ax,dx pop es ret Blowfish_WeakKey endp _end