普通三进制逻辑数学世界先驱者——伍耀晖先生面向全球公布普通三进制逻辑数学全部真值表科研成果（伍氏定律）
准备组建“国际三进制科技联盟” 着手制造三进制 CPU
三进制一个字节用6个位表示 最高位为左 最低位为右表示 5 4 3 2 1 0 值范围从0到727 包含二进制字节全值范围
三进制负数采用同二进制一样的原理——补码表示 但是与二进制不同 很特别 1是不变的 只能0和2互变
TrinaryNot 0 1 2
2 1 0
TrinaryAnd 0 1 2 TrinaryNotAnd 0 1 2
0 0 0 0 0 2 2 2
1 0 1 1 1 2 1 1
2 0 1 2 2 2 1 0
TrinaryOr 0 1 2 TrinaryNotOr 0 1 2
0 0 1 2 0 2 1 0
1 1 1 2 1 1 1 0
2 2 2 2 2 0 0 0
（相当于Xor异或 用于加密）TrinaryXor 0 1 2 等价 0 1 2 等价 0 1 2 等价 0 1 2
0 0 0 2 0 0 2 2 0 0 1 2 0 0 1 2
1 1 1 1 1 1 1 1 1 0 1 2 1 2 1 0
2 2 2 0 2 2 0 0 2 2 1 0 2 2 1 0
（相当于Xand同或 用于加密）TrinaryXand 0 1 2 等价 0 1 2 等价 0 1 2 等价 0 1 2
0 2 0 0 0 2 2 0 0 2 1 0 0 2 1 0
1 1 1 1 1 1 1 1 1 0 1 2 1 2 1 0
2 0 2 2 2 0 0 2 2 0 1 2 2 0 1 2
普通三进制逻辑数学特有
（用于哈希码）TrinaryAdd 0 1 2 TrinaryNotAdd 0 1 2
0 0 1 2 0 2 1 0
1 1 2 0 1 1 0 2
2 2 0 1 2 0 2 1
（用于哈希码）TrinarySubtraction 0 1 2 或 0 1 2 TrinaryNotSubtraction 0 1 2 或 0 1 2
0 0 2 1 0 0 1 2 0 2 0 1 0 2 1 0
1 1 0 2 1 2 0 1 1 1 2 0 1 0 2 1
2 2 1 0 2 1 2 0 2 0 1 2 2 1 0 2
（用于哈希码）TrinaryMultiplication 0 1 2 TrinaryNotMultiplication 0 1 2
0 0 0 0 0 2 2 2
1 0 1 2 1 2 1 0
2 0 2 1 2 2 0 1
（用于哈希码）TrinaryDivision 0 1 2 或 0 1 2 TrinaryNotDivision 0 1 2 或 0 1 2
0 0 0 0 0 0 0 0 0 2 2 2 0 2 2 2
1 0 1 0 1 0 1 2 1 2 1 2 1 2 1 0
2 0 2 1 2 0 0 1 2 2 0 1 2 2 2 1
以下是演示代码
C 源码
#include#include #include #include #include void Usage() { printf("UsagentEncryption: TrinaryCipher -e/-E Plaintext.file Ciphertext.file PasswordntDecryption: TrinaryCipher -d/-D Ciphertext.file Plaintext.file Passwordn"); } void Ternary(long long lNumeric, unsigned char *ucpTrinary) { if(lNumeric < 1) { ucpTrinary[0] = ucpTrinary[1] = ucpTrinary[2] = ucpTrinary[3] = ucpTrinary[4] = ucpTrinary[5] = 0; } else { for(long long i = 5; i >= 0; --i) { ucpTrinary[i] = lNumeric % 3; lNumeric /= 3; } } } // 0 ? 2 0 1 2 // 1 1 1 or ? 1 ? // 2 ? 0 2 1 0 void TernaryXor(unsigned char *ucpCiphertextOrPlaintext, unsigned char *ucpPassword) { for(long long j = 0; j < 6; ++j) { if(ucpCiphertextOrPlaintext[j] == 0 && ucpPassword[j] == 0) { ucpCiphertextOrPlaintext[j] = 0; } else if(ucpCiphertextOrPlaintext[j] == 0 && ucpPassword[j] == 1) { ucpCiphertextOrPlaintext[j] = 2; } else if(ucpCiphertextOrPlaintext[j] == 0 && ucpPassword[j] == 2) { ucpCiphertextOrPlaintext[j] = 2; } else if(ucpCiphertextOrPlaintext[j] == 1 && ucpPassword[j] == 0) { ucpCiphertextOrPlaintext[j] = 1; } else if(ucpCiphertextOrPlaintext[j] == 1 && ucpPassword[j] == 1) { ucpCiphertextOrPlaintext[j] = 1; } else if(ucpCiphertextOrPlaintext[j] == 1 && ucpPassword[j] == 2) { ucpCiphertextOrPlaintext[j] = 1; } else if(ucpCiphertextOrPlaintext[j] == 2 && ucpPassword[j] == 0) { ucpCiphertextOrPlaintext[j] = 2; } else if(ucpCiphertextOrPlaintext[j] == 2 && ucpPassword[j] == 1) { ucpCiphertextOrPlaintext[j] = 0; } else if(ucpCiphertextOrPlaintext[j] == 2 && ucpPassword[j] == 2) { ucpCiphertextOrPlaintext[j] = 0; } } } // 2 ? 0 2 1 0 // 1 1 1 or ? 1 ? // 0 ? 2 0 1 2 void TernaryXand(unsigned char *ucpCiphertextOrPlaintext, unsigned char *ucpPassword) { for(long long j = 0; j < 6; ++j) { if(ucpCiphertextOrPlaintext[j] == 0 && ucpPassword[j] == 0) { ucpCiphertextOrPlaintext[j] = 2; } else if(ucpCiphertextOrPlaintext[j] == 0 && ucpPassword[j] == 1) { ucpCiphertextOrPlaintext[j] = 0; } else if(ucpCiphertextOrPlaintext[j] == 0 && ucpPassword[j] == 2) { ucpCiphertextOrPlaintext[j] = 0; } else if(ucpCiphertextOrPlaintext[j] == 1 && ucpPassword[j] == 0) { ucpCiphertextOrPlaintext[j] = 1; } else if(ucpCiphertextOrPlaintext[j] == 1 && ucpPassword[j] == 1) { ucpCiphertextOrPlaintext[j] = 1; } else if(ucpCiphertextOrPlaintext[j] == 1 && ucpPassword[j] == 2) { ucpCiphertextOrPlaintext[j] = 1; } else if(ucpCiphertextOrPlaintext[j] == 2 && ucpPassword[j] == 0) { ucpCiphertextOrPlaintext[j] = 0; } else if(ucpCiphertextOrPlaintext[j] == 2 && ucpPassword[j] == 1) { ucpCiphertextOrPlaintext[j] = 2; } else if(ucpCiphertextOrPlaintext[j] == 2 && ucpPassword[j] == 2) { ucpCiphertextOrPlaintext[j] = 2; } } } long long main(long long argc, char *argv[]) { if(argc < 5) { Usage(); } else if(*(short*)argv[1] == 0x452D || *(short*)argv[1] == 0x652D) { unsigned char ucPasswordLength = -1; while(argv[4][++ucPasswordLength]); unsigned char *ucpPassword = malloc(6 * ucPasswordLength); for(unsigned char i = 0; i < ucPasswordLength; ++i) { Ternary(argv[4][i], ucpPassword + 6 * i); } struct stat tStatFileSize; stat(argv[2], &tStatFileSize); long long lFileSize = tStatFileSize.st_size; int fdPlaintextOrCiphertext = open(argv[2], O_BINARY | O_RDONLY, S_IREAD | S_IWRITE); unsigned char *ucpPlaintext = malloc(lFileSize), ucaPlaintextOrCiphertext[6]; read(fdPlaintextOrCiphertext, ucpPlaintext, lFileSize); close(fdPlaintextOrCiphertext); unsigned short *uspCiphertext = malloc(2 * lFileSize); for(long long j = 0, k = 0; j < lFileSize; ++j) { Ternary(ucpPlaintext[j], ucaPlaintextOrCiphertext); TernaryXor(ucaPlaintextOrCiphertext, ucpPassword + 6 * k); //TernaryXand(ucaPlaintextOrCiphertext, ucpPassword + 6 * k); uspCiphertext[j] = 243 * ucaPlaintextOrCiphertext[0] + 81 * ucaPlaintextOrCiphertext[1] + 27 * ucaPlaintextOrCiphertext[2] + 9 * ucaPlaintextOrCiphertext[3] + 3 * ucaPlaintextOrCiphertext[4] + ucaPlaintextOrCiphertext[5]; k = ++k % ucPasswordLength; } fdPlaintextOrCiphertext = open(argv[3], O_BINARY | O_CREAT | O_WRONLY, S_IRUSR | S_IWUSR); write(fdPlaintextOrCiphertext, uspCiphertext, 2 * lFileSize); close(fdPlaintextOrCiphertext); free(uspCiphertext); free(ucpPlaintext); } else if(*(short*)argv[1] == 0x442D || *(short*)argv[1] == 0x642D) { unsigned char ucPasswordLength = -1; while(argv[4][++ucPasswordLength]); unsigned char *ucpPassword = malloc(6 * ucPasswordLength); for(long long i = 0; i < ucPasswordLength; ++i) { Ternary(argv[4][i], ucpPassword + 6 * i); } struct stat tStatFileSize; stat(argv[2], &tStatFileSize); long long lFileSize = tStatFileSize.st_size; int fdCiphertextOrPlaintext = open(argv[2], O_BINARY | O_RDONLY, S_IREAD | S_IWRITE); unsigned short *uspCiphertext = malloc(lFileSize); read(fdCiphertextOrPlaintext, uspCiphertext, lFileSize); close(fdCiphertextOrPlaintext); lFileSize /= 2; unsigned char *ucpPlaintext = malloc(lFileSize), ucaCiphertextOrPlaintext[6]; for(long long j = 0, k = 0; j < lFileSize; ++j) { Ternary(uspCiphertext[j], ucaCiphertextOrPlaintext); TernaryXor(ucaCiphertextOrPlaintext, ucpPassword + 6 * k); //TernaryXand(ucaCiphertextOrPlaintext, ucpPassword + 6 * k); ucpPlaintext[j] = 243 * ucaCiphertextOrPlaintext[0] + 81 * ucaCiphertextOrPlaintext[1] + 27 * ucaCiphertextOrPlaintext[2] + 9 * ucaCiphertextOrPlaintext[3] + 3 * ucaCiphertextOrPlaintext[4] + ucaCiphertextOrPlaintext[5]; k = ++k % ucPasswordLength; } fdCiphertextOrPlaintext = open(argv[3], O_BINARY | O_CREAT | O_WRONLY, S_IRUSR | S_IWUSR); write(fdCiphertextOrPlaintext, ucpPlaintext, lFileSize); close(fdCiphertextOrPlaintext); free(ucpPlaintext); free(uspCiphertext); } else { Usage(); } return 0; }
Python 源码
#!/usr/bin/env python3
# -*- coding: utf-8 -*-
#*******************************************************
# 作者：伍耀晖 Author: YaoHui.Wu *
# 开源日期：2022年6月7日 Open Source Date: 2022-6-7 *
# 国家：中国 Country: China *
#*******************************************************
import sys
def Usage():
print("UsagentEncryption: python TrinaryCipher.py -e/-E Plaintext.file Ciphertext.file PasswordntDecryption: python TrinaryCipher.py -d/-D Ciphertext.file Plaintext.file Password")
def Ternary(iNumeric):
i, lTrinary = 0, [0, 0, 0, 0, 0, 0]
if iNumeric and i < 6:
while iNumeric:
iNumeric, iRemainder = divmod(iNumeric, 3)
lTrinary[i] = iRemainder
i += 1
return lTrinary
# 0 ? 2 0 1 2
# 1 1 1 or ? 1 ?
# 2 ? 0 2 1 0
def TernaryXor(lTrinary, lPassword):
for l in range(6):
if lTrinary[l] == lPassword[l] == 0: lTrinary[l] = "0"
elif lTrinary[l] == 0 and lPassword[l] == 1: lTrinary[l] = "2"
elif lTrinary[l] == 0 and lPassword[l] == 2: lTrinary[l] = "2"
elif lTrinary[l] == 1 and lPassword[l] == 0: lTrinary[l] = "1"
elif lTrinary[l] == lPassword[l] == 1: lTrinary[l] = "1"
elif lTrinary[l] == 1 and lPassword[l] == 2: lTrinary[l] = "1"
elif lTrinary[l] == 2 and lPassword[l] == 0: lTrinary[l] = "2"
elif lTrinary[l] == 2 and lPassword[l] == 1: lTrinary[l] = "0"
elif lTrinary[l] == lPassword[l] == 2: lTrinary[l] = "0"
return int("".join(lTrinary[::-1]), 3)
# 2 ? 0 2 1 0
# 1 1 1 or ? 1 ?
# 0 ? 2 0 1 2
def TernaryXand(lTrinary, lPassword):
for l in range(6):
if lTrinary[l] == lPassword[l] == 0: lTrinary[l] = "2"
elif lTrinary[l] == 0 and lPassword[l] == 1: lTrinary[l] = "0"
elif lTrinary[l] == 0 and lPassword[l] == 2: lTrinary[l] = "0"
elif lTrinary[l] == 1 and lPassword[l] == 0: lTrinary[l] = "1"
elif lTrinary[l] == lPassword[l] == 1: lTrinary[l] = "1"
elif lTrinary[l] == 1 and lPassword[l] == 2: lTrinary[l] = "1"
elif lTrinary[l] == 2 and lPassword[l] == 0: lTrinary[l] = "0"
elif lTrinary[l] == 2 and lPassword[l] == 1: lTrinary[l] = "2"
elif lTrinary[l] == lPassword[l] == 2: lTrinary[l] = "2"
return int("".join(lTrinary[::-1]), 3)
if __name__ == "__main__":
if len(sys.argv) < 5: Usage()
elif sys.argv[1] == "-e" or sys.argv[1] == "-E":
strPassword, lPassword, lCiphertext = sys.argv[4], [], []
iPasswordLength, i = len(strPassword), 0
for j in range(iPasswordLength):
lPassword.append(Ternary(ord(strPassword[j])))
with open(sys.argv[2], "br") as fdPlaintext:
bPlaintext = fdPlaintext.read()
iFileSize = fdPlaintext.tell()
for k in range(iFileSize):
lCiphertext.append(TernaryXor(Ternary(bPlaintext[k]), lPassword[i]))
#lCiphertext.append(TernaryXand(Ternary(bPlaintext[k]), lPassword[i]))
i = (i + 1) % iPasswordLength
with open(sys.argv[3], "bw") as fdCiphertext:
for iCiphertext in lCiphertext:
fdCiphertext.write(iCiphertext.to_bytes(2, "little"))
elif sys.argv[1] == "-d" or sys.argv[1] == "-D":
strPassword, lPassword, lPlaintext = sys.argv[4], [], []
iPasswordLength, i = len(strPassword), 0
for j in range(iPasswordLength):
lPassword.append(Ternary(ord(strPassword[j])))
with open(sys.argv[2], "br") as fdCiphertext:
bCiphertext = fdCiphertext.read(2)
while bCiphertext:
lPlaintext.append(TernaryXor(Ternary(int.from_bytes(bCiphertext, "little")), lPassword[i]))
#lPlaintext.append(TernaryXand(Ternary(int.from_bytes(bCiphertext, "little")), lPassword[i]))
i = (i + 1) % iPasswordLength
bCiphertext = fdCiphertext.read(2)
with open(sys.argv[3], "bw") as fdPlaintext:
for iPlaintext in lPlaintext:
fdPlaintext.write(iPlaintext.to_bytes(1, "little"))
else: Usage()
Java 源码
import java.io.*;
public class TrinaryCipher
{
private static void Usage()
{
System.out.println("UsagentEncryption: java TrinaryCipher -e/-E Plaintext.file Ciphertext.file PasswordntDecryption: java TrinaryCipher -d/-D Ciphertext.file Plaintext.file Passwordn");
}
private static void Ternary(int iNumeric,
byte[] baTrinary)
{
if(iNumeric < 1)
{
baTrinary[0] = baTrinary[1] = baTrinary[2] = baTrinary[3] = baTrinary[4] = baTrinary[5] = 0;
}
else
{
for(int i = 5; i >= 0; --i)
{
baTrinary[i] = (byte)(iNumeric % 3);
iNumeric /= 3;
}
}
}
// 0 ? 2 0 1 2
// 1 1 1 or ? 1 ?
// 2 ? 0 2 1 0
private static void TernaryXor(byte[] baCiphertextOrPlaintext,
byte[] baPassword)
{
for(int j = 0; j < 6; ++j)
{
if(baCiphertextOrPlaintext[j] == 0 && baPassword[j] == 0)
{
baCiphertextOrPlaintext[j] = 0;
}
else if(baCiphertextOrPlaintext[j] == 0 && baPassword[j] == 1)
{
baCiphertextOrPlaintext[j] = 2;
}
else if(baCiphertextOrPlaintext[j] == 0 && baPassword[j] == 2)
{
baCiphertextOrPlaintext[j] = 2;
}
else if(baCiphertextOrPlaintext[j] == 1 && baPassword[j] == 0)
{
baCiphertextOrPlaintext[j] = 1;
}
else if(baCiphertextOrPlaintext[j] == 1 && baPassword[j] == 1)
{
baCiphertextOrPlaintext[j] = 1;
}
else if(baCiphertextOrPlaintext[j] == 1 && baPassword[j] == 2)
{
baCiphertextOrPlaintext[j] = 1;
}
else if(baCiphertextOrPlaintext[j] == 2 && baPassword[j] == 0)
{
baCiphertextOrPlaintext[j] = 2;
}
else if(baCiphertextOrPlaintext[j] == 2 && baPassword[j] == 1)
{
baCiphertextOrPlaintext[j] = 0;
}
else if(baCiphertextOrPlaintext[j] == 2 && baPassword[j] == 2)
{
baCiphertextOrPlaintext[j] = 0;
}
}
}
// 2 ? 0 2 1 0
// 1 1 1 or ? 1 ?
// 0 ? 2 0 1 2
private static void TernaryXand(byte[] baCiphertextOrPlaintext,
byte[] baPassword)
{
for(int j = 0; j < 6; ++j)
{
if(baCiphertextOrPlaintext[j] == 0 && baPassword[j] == 0)
{
baCiphertextOrPlaintext[j] = 2;
}
else if(baCiphertextOrPlaintext[j] == 0 && baPassword[j] == 1)
{
baCiphertextOrPlaintext[j] = 0;
}
else if(baCiphertextOrPlaintext[j] == 0 && baPassword[j] == 2)
{
baCiphertextOrPlaintext[j] = 0;
}
else if(baCiphertextOrPlaintext[j] == 1 && baPassword[j] == 0)
{
baCiphertextOrPlaintext[j] = 1;
}
else if(baCiphertextOrPlaintext[j] == 1 && baPassword[j] == 1)
{
baCiphertextOrPlaintext[j] = 1;
}
else if(baCiphertextOrPlaintext[j] == 1 && baPassword[j] == 2)
{
baCiphertextOrPlaintext[j] = 1;
}
else if(baCiphertextOrPlaintext[j] == 2 && baPassword[j] == 0)
{
baCiphertextOrPlaintext[j] = 0;
}
else if(baCiphertextOrPlaintext[j] == 2 && baPassword[j] == 1)
{
baCiphertextOrPlaintext[j] = 2;
}
else if(baCiphertextOrPlaintext[j] == 2 && baPassword[j] == 2)
{
baCiphertextOrPlaintext[j] = 2;
}
}
}
public static void main(String[] args)
{
if(args.length < 4)
{
Usage();
}
else if(args[0].equals("-e") || args[0].equals("-E"))
{
int iPasswordLength = args[3].length();
byte[][] baPassword = new byte[iPasswordLength][6];
for(int i = 0; i < iPasswordLength; ++i)
{
Ternary(args[3].getBytes()[i], baPassword[i]);
}
RandomAccessFile rafPlaintext = null, rafCiphertext = null;
try
{
rafPlaintext = new RandomAccessFile(args[1], "r");
rafCiphertext = new RandomAccessFile(args[2], "rw");
long lFileSize = rafPlaintext.length();
rafCiphertext.setLength(2 * lFileSize);
byte[] baPlaintextOrCiphertext = new byte[6];
int k = 0;
for(long j = 0; j < lFileSize; ++j)
{
Ternary(rafPlaintext.readUnsignedByte(), baPlaintextOrCiphertext);
TernaryXor(baPlaintextOrCiphertext, baPassword[k]);
//TernaryXand(baPlaintextOrCiphertext, baPassword[k]);
rafCiphertext.writeShort(243 * baPlaintextOrCiphertext[0] + 81 * baPlaintextOrCiphertext[1] + 27 * baPlaintextOrCiphertext[2] + 9 * baPlaintextOrCiphertext[3] + 3 * baPlaintextOrCiphertext[4] + baPlaintextOrCiphertext[5]);
k = ++k % iPasswordLength;
}
}
catch(Exception e)
{
e.printStackTrace();
}
finally
{
try
{
if(rafCiphertext != null)
{
rafCiphertext.close();
}
if(rafPlaintext != null)
{
rafPlaintext.close();
}
}
catch(Exception e)
{
e.printStackTrace();
}
}
}
else if(args[0].equals("-d") || args[0].equals("-D"))
{
int iPasswordLength = args[3].length();
byte[][] baPassword = new byte[iPasswordLength][6];
for(int i = 0; i < iPasswordLength; ++i)
{
Ternary(args[3].getBytes()[i], baPassword[i]);
}
RandomAccessFile rafCiphertext = null, rafPlaintext = null;
try
{
rafCiphertext = new RandomAccessFile(args[1], "r");
rafPlaintext = new RandomAccessFile(args[2], "rw");
long lFileSize = rafCiphertext.length() / 2;
rafPlaintext.setLength(lFileSize);
byte[] baCiphertextOrPlaintext = new byte[6];
int k = 0;
for(long j = 0; j < lFileSize; ++j)
{
Ternary(rafCiphertext.readUnsignedShort(), baCiphertextOrPlaintext);
TernaryXor(baCiphertextOrPlaintext, baPassword[k]);
//TernaryXand(baCiphertextOrPlaintext, baPassword[k]);
rafPlaintext.writeByte(243 * baCiphertextOrPlaintext[0] + 81 * baCiphertextOrPlaintext[1] + 27 * baCiphertextOrPlaintext[2] + 9 * baCiphertextOrPlaintext[3] + 3 * baCiphertextOrPlaintext[4] + baCiphertextOrPlaintext[5]);
k = ++k % iPasswordLength;
}
}
catch(Exception e)
{
e.printStackTrace();
}
finally
{
try
{
if(rafPlaintext != null)
{
rafPlaintext.close();
}
if(rafCiphertext != null)
{
rafCiphertext.close();
}
}
catch(Exception e)
{
e.printStackTrace();
}
}
}
else
{
Usage();
}
}
}
Pascal 源码
(*******************************************************
* 作者：伍耀晖 Author: YaoHui.Wu *
* 开源日期：2022年6月7日 Open Source Date: 2022-6-7 *
* 国家：中国 Country: China *
*******************************************************)
(* Compiled by free pascal. free pascal website: www.freepascal.org *)
Program TrinaryCipher;
Type
TrinaryArray = Array[0..5] Of Byte;
Procedure Usage();
Begin
writeln('Usage'#10#9'Encryption: TrinaryCipher -e/-E Plaintext.file Ciphertext.file Password'#10#9'Decryption: TrinaryCipher -d/-D Ciphertext.file Plaintext.file Password');
End;
Procedure Ternary(wNumeric : Word;
Var baTrinary : TrinaryArray);
Var
i : Byte;
Begin
If wNumeric < 1 Then
Begin
baTrinary[0] := 0;
baTrinary[1] := 0;
baTrinary[2] := 0;
baTrinary[3] := 0;
baTrinary[4] := 0;
baTrinary[5] := 0;
End
Else
Begin
For i := 5 DownTo 0 Do
Begin
baTrinary[i] := wNumeric Mod 3;
wNumeric := wNumeric Div 3;
End;
End;
End;
(*
0 ? 2 0 1 2
1 1 1 or ? 1 ?
2 ? 0 2 1 0
*)
Procedure TernaryXor(Var baCiphertextOrPlaintext : TrinaryArray;
Var baPassword : TrinaryArray);
Var
j : Byte;
Begin
For j := 0 To 5 Do
Begin
If (baCiphertextOrPlaintext[j] = 0) And (baPassword[j] = 0) Then
Begin
baCiphertextOrPlaintext[j] := 0;
End
Else If (baCiphertextOrPlaintext[j] = 0) And (baPassword[j] = 1) Then
Begin
baCiphertextOrPlaintext[j] := 2;
End
Else If (baCiphertextOrPlaintext[j] = 0) And (baPassword[j] = 2) Then
Begin
baCiphertextOrPlaintext[j] := 2;
End
Else If (baCiphertextOrPlaintext[j] = 1) And (baPassword[j] = 0) Then
Begin
baCiphertextOrPlaintext[j] := 1;
End
Else If (baCiphertextOrPlaintext[j] = 1) And (baPassword[j] = 1) Then
Begin
baCiphertextOrPlaintext[j] := 1;
End
Else If (baCiphertextOrPlaintext[j] = 1) And (baPassword[j] = 2) Then
Begin
baCiphertextOrPlaintext[j] := 1;
End
Else If (baCiphertextOrPlaintext[j] = 2) And (baPassword[j] = 0) Then
Begin
baCiphertextOrPlaintext[j] := 2;
End
Else If (baCiphertextOrPlaintext[j] = 2) And (baPassword[j] = 1) Then
Begin
baCiphertextOrPlaintext[j] := 0;
End
Else If (baCiphertextOrPlaintext[j] = 2) And (baPassword[j] = 2) Then
Begin
baCiphertextOrPlaintext[j] := 0;
End
End;
End;
(*
2 ? 0 2 1 0
1 1 1 or ? 1 ?
0 ? 2 0 1 2
*)
Procedure TernaryXand(Var baCiphertextOrPlaintext : TrinaryArray;
Var baPassword : TrinaryArray);
Var
j : Byte;
Begin
For j := 0 To 5 Do
Begin
If (baCiphertextOrPlaintext[j] = 0) And (baPassword[j] = 0) Then
Begin
baCiphertextOrPlaintext[j] := 2;
End
Else If (baCiphertextOrPlaintext[j] = 0) And (baPassword[j] = 1) Then
Begin
baCiphertextOrPlaintext[j] := 0;
End
Else If (baCiphertextOrPlaintext[j] = 0) And (baPassword[j] = 2) Then
Begin
baCiphertextOrPlaintext[j] := 0;
End
Else If (baCiphertextOrPlaintext[j] = 1) And (baPassword[j] = 0) Then
Begin
baCiphertextOrPlaintext[j] := 1;
End
Else If (baCiphertextOrPlaintext[j] = 1) And (baPassword[j] = 1) Then
Begin
baCiphertextOrPlaintext[j] := 1;
End
Else If (baCiphertextOrPlaintext[j] = 1) And (baPassword[j] = 2) Then
Begin
baCiphertextOrPlaintext[j] := 1;
End
Else If (baCiphertextOrPlaintext[j] = 2) And (baPassword[j] = 0) Then
Begin
baCiphertextOrPlaintext[j] := 0;
End
Else If (baCiphertextOrPlaintext[j] = 2) And (baPassword[j] = 1) Then
Begin
baCiphertextOrPlaintext[j] := 2;
End
Else If (baCiphertextOrPlaintext[j] = 2) And (baPassword[j] = 2) Then
Begin
baCiphertextOrPlaintext[j] := 2;
End
End;
End;
Var
i, k, bPasswordLength : Byte;
j, uiFileSize : LongWord;
baPassword : Array Of TrinaryArray;
baPlaintextOrCiphertext : TrinaryArray;
fdPlaintextOrCiphertext : File;
bpPlaintext : PByte;
wpCiphertext : PWord;
Begin
If(ParamCount < 4) Then
Begin
Usage();
End
Else If (ParamStr(1) = '-e') Or (ParamStr(1) = '-E') Then
Begin
bPasswordLength := Length(ParamStr(4));
SetLength(baPassword, bPasswordLength);
For i := 1 To bPasswordLength Do
Begin
Ternary(Ord(ParamStr(4)[i]), baPassword[i - 1]);
End;
Assign(fdPlaintextOrCiphertext, ParamStr(2));
Reset(fdPlaintextOrCiphertext, 1);
uiFileSize := FileSize(fdPlaintextOrCiphertext);
bpPlaintext := GetMem(uiFileSize);
BlockRead(fdPlaintextOrCiphertext, bpPlaintext^, uiFileSize);
Close(fdPlaintextOrCiphertext);
wpCiphertext := GetMem(2 * uiFileSize);
k := 0;
For j := 0 To uiFileSize - 1 Do
Begin
Ternary(bpPlaintext[j], baPlaintextOrCiphertext);
TernaryXor(baPlaintextOrCiphertext, baPassword[k]);
(*TernaryXand(baPlaintextOrCiphertext, baPassword[k]);*)
wpCiphertext[j] := 243 * baPlaintextOrCiphertext[0] + 81 * baPlaintextOrCiphertext[1] + 27 * baPlaintextOrCiphertext[2] + 9 * baPlaintextOrCiphertext[3] + 3 * baPlaintextOrCiphertext[4] + baPlaintextOrCiphertext[5];
k := (k + 1) Mod bPasswordLength;
End;
Assign(fdPlaintextOrCiphertext, Paramstr(3));
Rewrite(fdPlaintextOrCiphertext, 1);
BlockWrite(fdPlaintextOrCiphertext, wpCiphertext^, 2 * uiFileSize);
Close(fdPlaintextOrCiphertext);
FreeMem(wpCiphertext);
FreeMem(bpPlaintext);
End
Else If (paramstr(1) = '-d') Or (paramstr(1) = '-D') Then
Begin
bPasswordLength := Length(ParamStr(4));
SetLength(baPassword, bPasswordLength);
For i := 1 To bPasswordLength Do
Begin
Ternary(Ord(ParamStr(4)[i]), baPassword[i - 1]);
End;
Assign(fdPlaintextOrCiphertext, ParamStr(2));
Reset(fdPlaintextOrCiphertext, 1);
uiFileSize := FileSize(fdPlaintextOrCiphertext);
wpCiphertext := GetMem(uiFileSize);
BlockRead(fdPlaintextOrCiphertext, wpCiphertext^, uiFileSize);
Close(fdPlaintextOrCiphertext);
uiFileSize := uiFileSize Div 2;
bpPlaintext := GetMem(uiFileSize);
k := 0;
For j := 0 To uiFileSize - 1 Do
Begin
Ternary(wpCiphertext[j], baPlaintextOrCiphertext);
TernaryXor(baPlaintextOrCiphertext, baPassword[k]);
(*TernaryXand(baPlaintextOrCiphertext, baPassword[k]);*)
bpPlaintext[j] := 243 * baPlaintextOrCiphertext[0] + 81 * baPlaintextOrCiphertext[1] + 27 * baPlaintextOrCiphertext[2] + 9 * baPlaintextOrCiphertext[3] + 3 * baPlaintextOrCiphertext[4] + baPlaintextOrCiphertext[5];
k := (k + 1) Mod bPasswordLength;
End;
Assign(fdPlaintextOrCiphertext, Paramstr(3));
Rewrite(fdPlaintextOrCiphertext, 1);
BlockWrite(fdPlaintextOrCiphertext, bpPlaintext^, uiFileSize);
Close(fdPlaintextOrCiphertext);
FreeMem(bpPlaintext);
FreeMem(wpCiphertext);
End
Else
Begin
Usage();
End
End.
Basic 源码
/'******************************************************
* 作者：伍耀晖 Author: YaoHui.Wu *
* 开源日期：2022年6月7日 Open Source Date: 2022-6-7 *
* 国家：中国 Country: China *
******************************************************'/
' Compiled by free basic. free basic website: www.freebasic.net
#include "file.bi"
Sub Usage()
print "Usage" & Chr(10) & Chr(9) & "Encryption: TrinaryCipher -e/-E Plaintext.file Ciphertext.file Password" & Chr(10) & Chr(9) & "Decryption: TrinaryCipher -d/-D Ciphertext.file Plaintext.file Password"
End Sub
Sub Ternary(ByVal usNumeric As UShort, ubpTrinary As UByte Pointer)
If usNumeric < 1 Then
ubpTrinary[0] = 0
ubpTrinary[1] = 0
ubpTrinary[2] = 0
ubpTrinary[3] = 0
ubpTrinary[4] = 0
ubpTrinary[5] = 0
Else
For i As Byte = 5 To 0 Step -1
ubpTrinary[i] = usNumeric Mod 3
usNumeric = 3
Next i
End If
End Sub
/' 0 ? 2 0 1 2
1 1 1 or ? 1 ?
2 ? 0 2 1 0
'/
Sub TernaryXor(ubaPlaintextOrCiphertext() As UByte, ubpPassword As UByte Pointer)
For j As UByte = 0 To 5
If ubaPlaintextOrCiphertext(j) = 0 AndAlso ubpPassword[j] = 0 Then
ubaPlaintextOrCiphertext(j) = 2
Elseif ubaPlaintextOrCiphertext(j) = 0 AndAlso ubpPassword[j] = 1 Then
ubaPlaintextOrCiphertext(j) = 0
Elseif ubaPlaintextOrCiphertext(j) = 0 AndAlso ubpPassword[j] = 2 Then
ubaPlaintextOrCiphertext(j) = 0
Elseif ubaPlaintextOrCiphertext(j) = 1 AndAlso ubpPassword[j] = 0 Then
ubaPlaintextOrCiphertext(j) = 1
Elseif ubaPlaintextOrCiphertext(j) = 1 AndAlso ubpPassword[j] = 1 Then
ubaPlaintextOrCiphertext(j) = 1
Elseif ubaPlaintextOrCiphertext(j) = 1 AndAlso ubpPassword[j] = 2 Then
ubaPlaintextOrCiphertext(j) = 1
Elseif ubaPlaintextOrCiphertext(j) = 2 AndAlso ubpPassword[j] = 0 Then
ubaPlaintextOrCiphertext(j) = 0
Elseif ubaPlaintextOrCiphertext(j) = 2 AndAlso ubpPassword[j] = 1 Then
ubaPlaintextOrCiphertext(j) = 2
Elseif ubaPlaintextOrCiphertext(j) = 2 AndAlso ubpPassword[j] = 2 Then
ubaPlaintextOrCiphertext(j) = 2
End If
Next j
End Sub
/' 2 ? 0 2 1 0
1 1 1 or ? 1 ?
0 ? 2 0 1 2
'/
Sub TernaryXand(ubaPlaintextOrCiphertext() As UByte, ubpPassword As UByte Pointer)
For j As UByte = 0 To 5
If ubaPlaintextOrCiphertext(j) = 0 AndAlso ubpPassword[j] = 0 Then
ubaPlaintextOrCiphertext(j) = 2
Elseif ubaPlaintextOrCiphertext(j) = 0 AndAlso ubpPassword[j] = 1 Then
ubaPlaintextOrCiphertext(j) = 0
Elseif ubaPlaintextOrCiphertext(j) = 0 AndAlso ubpPassword[j] = 2 Then
ubaPlaintextOrCiphertext(j) = 0
Elseif ubaPlaintextOrCiphertext(j) = 1 AndAlso ubpPassword[j] = 0 Then
ubaPlaintextOrCiphertext(j) = 1
Elseif ubaPlaintextOrCiphertext(j) = 1 AndAlso ubpPassword[j] = 1 Then
ubaPlaintextOrCiphertext(j) = 1
Elseif ubaPlaintextOrCiphertext(j) = 1 AndAlso ubpPassword[j] = 2 Then
ubaPlaintextOrCiphertext(j) = 1
Elseif ubaPlaintextOrCiphertext(j) = 2 AndAlso ubpPassword[j] = 0 Then
ubaPlaintextOrCiphertext(j) = 0
Elseif ubaPlaintextOrCiphertext(j) = 2 AndAlso ubpPassword[j] = 1 Then
ubaPlaintextOrCiphertext(j) = 2
Elseif ubaPlaintextOrCiphertext(j) = 2 AndAlso ubpPassword[j] = 2 Then
ubaPlaintextOrCiphertext(j) = 2
End If
Next j
End Sub
Sub Main()
Dim As UByte k = 0, ubCLAA = 1, ubPasswordLength, ubaPassword(), ubaPlaintextOrCiphertext(5)
Dim As String strPassword
Dim As UInteger uiFileSize
Dim As UByte Pointer ubpPlaintext
Dim As UShort Pointer uspCiphertext
Do
Dim As String strCLA = Command(ubCLAA)
If Len(strCLA) = 0 Then
Exit Do
End If
ubCLAA += 1
Loop
If ubCLAA < 5 Then
Usage()
Elseif Command(1) = "-e" OrElse Command(1) = "-E" Then
strPassword = Command(4)
ubPasswordLength = Len(Command(4))
ReDim ubaPassword(ubPasswordLength - 1, 5)
For i As UByte = 0 To ubPasswordLength - 1
Ternary(strPassword[i], @ubaPassword(i, 0))
Next i
uiFileSize = FileLen(Command(2))
ubpPlaintext = New UByte[uiFileSize]
Open Command(2) For Binary Access Read As #3
Get #3, , *ubpPlaintext, uiFileSize
Close #3
uspCiphertext = New UShort[uiFileSize]
For j As ULong = 0 To uiFileSize - 1
Ternary(ubpPlaintext[j], @ubaPlaintextOrCiphertext(0))
TernaryXor(ubaPlaintextOrCiphertext(), @ubaPassword(k, 0))
'TernaryXand(ubaPlaintextOrCiphertext(), @ubaPassword(k, 0))
uspCiphertext[j] = 243 * ubaPlaintextOrCiphertext(0) + 81 * ubaPlaintextOrCiphertext(1) + 27 * ubaPlaintextOrCiphertext(2) + 9 * ubaPlaintextOrCiphertext(3) + 3 * ubaPlaintextOrCiphertext(4) + ubaPlaintextOrCiphertext(5)
k = (k + 1) Mod ubPasswordLength
Next j
Delete ubpPlaintext
Open Command(3) For Binary Access Write As #4
Put #4, , *uspCiphertext, uiFileSize
Close #4
Delete uspCiphertext
Elseif Command(1) = "-d" OrElse Command(1) = "-D" Then
strPassword = Command(4)
ubPasswordLength = Len(Command(4))
ReDim ubaPassword(ubPasswordLength - 1, 5)
For i As UByte = 0 To ubPasswordLength - 1
Ternary(strPassword[i], @ubaPassword(i, 0))
Next i
uiFileSize = FileLen(Command(2)) 2
uspCiphertext = New UShort[uiFileSize]
Open Command(2) For Binary Access Read As #3
Get #3, , *uspCiphertext, uiFileSize
Close #3
ubpPlaintext = New UByte[uiFileSize]
For j As UInteger = 0 To uiFileSize - 1
Ternary(uspCiphertext[j], @ubaPlaintextOrCiphertext(0))
TernaryXor(ubaPlaintextOrCiphertext(), @ubaPassword(k, 0))
'TernaryXand(ubaPlaintextOrCiphertext(), @ubaPassword(k, 0))
ubpPlaintext[j] = 243 * ubaPlaintextOrCiphertext(0) + 81 * ubaPlaintextOrCiphertext(1) + 27 * ubaPlaintextOrCiphertext(2) + 9 * ubaPlaintextOrCiphertext(3) + 3 * ubaPlaintextOrCiphertext(4) + ubaPlaintextOrCiphertext(5)
k = (k + 1) Mod ubPasswordLength
Next j
Delete uspCiphertext
Open Command(3) For Binary Access Write As #4
Put #4, , *ubpPlaintext, uiFileSize
Close #4
Delete ubpPlaintext
Else
Usage()
End If
End Sub
Main()
