Apple-2gs-SW/65816-crypto
1
0
Fork 0
mirror of https://github.com/sheumann/65816-crypto.git synced 2024-11-22 07:31:58 +00:00
Code Issues Projects Releases Wiki Activity
1d1d5251f6
65816-crypto/aesmodes.c

409 lines
8.9 KiB
C
Raw Normal View History

Add copyright notices and comments.
2017-07-02 23:41:21 +00:00
/*
* Copyright (c) 2017 Stephen Heumann
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
Add functions for AES CBC mode encryption and decryption.
2017-07-02 04:27:08 +00:00
#pragma noroot
#pragma lint -1
#pragma optimize -1
#include <string.h>
#include "aes.h"
extern void AES_ENCRYPT(void);
extern void AES_DECRYPT(void);
/*
* Encrypt data using AES-128, AES-192, or AES-256 in CBC mode.
* The key must have been specified via aes{128,192,256}_expandkey().
* The initialization vector (IV) must be in context->data.
* nblocks gives the number of 16-byte blocks to be processed.
*/
void aes_cbc_encrypt(struct aes_context *context,
const unsigned char *in,
unsigned char *out,
unsigned long nblocks)
{
while (nblocks-- > 0) {
asm {
Optimize AES CBC operations a bit.
2017-07-02 21:16:17 +00:00
lda [in]
eor [context]
sta [context]
ldy #2
Add functions for AES CBC mode encryption and decryption.
2017-07-02 04:27:08 +00:00
lda [in],y
eor [context],y
sta [context],y
iny
iny
lda [in],y
eor [context],y
sta [context],y
iny
iny
lda [in],y
eor [context],y
sta [context],y
iny
iny
lda [in],y
eor [context],y
sta [context],y
iny
iny
lda [in],y
eor [context],y
sta [context],y
iny
iny
lda [in],y
eor [context],y
sta [context],y
iny
iny
lda [in],y
eor [context],y
sta [context],y
phd
lda context
tcd
jsl AES_ENCRYPT
Optimize AES CBC operations a bit.
2017-07-02 21:16:17 +00:00
lda 0
Add functions for AES CBC mode encryption and decryption.
2017-07-02 04:27:08 +00:00
pld
Optimize AES CBC operations a bit.
2017-07-02 21:16:17 +00:00
sta [out]
ldy #2
lda [context],y
sta [out],y
iny
iny
lda [context],y
sta [out],y
iny
iny
lda [context],y
sta [out],y
iny
iny
lda [context],y
sta [out],y
iny
iny
lda [context],y
sta [out],y
iny
iny
lda [context],y
sta [out],y
iny
iny
lda [context],y
sta [out],y
Add functions for AES CBC mode encryption and decryption.
2017-07-02 04:27:08 +00:00
}
in += 16;
out += 16;
}
}
/*
* Decrypt data using AES-128, AES-192, or AES-256 in CBC mode.
* The key must have been specified via aes{128,192,256}_expandkey().
* nblocks gives the number of 16-byte blocks to be processed.
*/
void aes_cbc_decrypt(struct aes_context *context,
const unsigned char *in,
unsigned char *out,
unsigned long nblocks,
const unsigned char *iv)
{
if (nblocks-- == 0)
return;
asm {
Optimize AES CBC operations a bit.
2017-07-02 21:16:17 +00:00
lda [in]
sta [context]
ldy #2
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
Add functions for AES CBC mode encryption and decryption.
2017-07-02 04:27:08 +00:00
phd
lda context
tcd
jsl AES_DECRYPT
pld
ldy #0
lda [context],y
eor [iv],y
sta [out],y
iny
iny
lda [context],y
eor [iv],y
sta [out],y
iny
iny
lda [context],y
eor [iv],y
sta [out],y
iny
iny
lda [context],y
eor [iv],y
sta [out],y
iny
iny
lda [context],y
eor [iv],y
sta [out],y
iny
iny
lda [context],y
eor [iv],y
sta [out],y
iny
iny
lda [context],y
eor [iv],y
sta [out],y
iny
iny
lda [context],y
eor [iv],y
sta [out],y
}
Optimize AES CBC operations a bit.
2017-07-02 21:16:17 +00:00
in += 16;
Add functions for AES CBC mode encryption and decryption.
2017-07-02 04:27:08 +00:00
out += 16;
while (nblocks-- > 0) {
asm {
Optimize AES CBC operations a bit.
2017-07-02 21:16:17 +00:00
lda [in]
sta [context]
ldy #2
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
iny
iny
lda [in],y
sta [context],y
Add functions for AES CBC mode encryption and decryption.
2017-07-02 04:27:08 +00:00
phd
lda context
tcd
jsl AES_DECRYPT
pld
Optimize AES CBC operations a bit.
2017-07-02 21:16:17 +00:00
}
in -= 16;
asm {
Add functions for AES CBC mode encryption and decryption.
2017-07-02 04:27:08 +00:00
ldy #0
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
}
Optimize AES CBC operations a bit.
2017-07-02 21:16:17 +00:00
in += 32;
Add functions for AES CBC mode encryption and decryption.
2017-07-02 04:27:08 +00:00
out += 16;
}
}
Add implementation and test for AES CTR mode.
2017-07-02 23:25:43 +00:00
/*
* Process data using AES-128, AES-192, or AES-256 in CTR mode.
* This either encrypts or decrypts data, depending on whether
* in contains plaintext or ciphertext.
* The key must have been specified via aes{128,192,256}_expandkey().
* nblocks gives the number of 16-byte blocks to be processed.
* counter will be interpreted as a 128-bit big-endian integer,
* and incremented for each block processed.
*/
void aes_ctr_process(struct aes_context *context,
const unsigned char *in,
unsigned char *out,
unsigned long nblocks,
const unsigned char *counter)
{
while (nblocks-- > 0) {
asm {
lda [counter]
sta [context]
ldy #2
lda [counter],y
sta [context],y
iny
iny
lda [counter],y
sta [context],y
iny
iny
lda [counter],y
sta [context],y
iny
iny
lda [counter],y
sta [context],y
iny
iny
lda [counter],y
sta [context],y
iny
iny
lda [counter],y
sta [context],y
iny
iny
lda [counter],y
sta [context],y
phd
lda context
tcd
jsl AES_ENCRYPT
pld
lda [context]
eor [in]
sta [out]
ldy #2
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
iny
iny
lda [context],y
eor [in],y
sta [out],y
ldy #14
incloop: lda [counter],y
xba
inc a
xba
sta [counter],y
bne incdone
dey
dey
bpl incloop
incdone:
}
in += 16;
out += 16;
}
}
Reference in New Issue Copy Permalink