Here we implement the various cryptographic primitives needed for KEVM.
module KRYPTO
imports STRING-SYNTAX
imports INT-SYNTAX
imports LISTKeccak256takes a string and returns a 64-character hex-encoded string of the 32-byte keccak256 hash of the string.Sha256takes a String and returns a 64-character hex-encoded string of the 32-byte SHA2-256 hash of the string.RipEmd160takes a String and returns a 40-character hex-encoded string of the 20-byte RIPEMD160 hash of the string.ECDSARecovertakes a 32-character byte string of a message, v, r, s of the signed message and returns the 64-character public key used to sign the message. See this StackOverflow post for some information about v, r, and s.
syntax String ::= Keccak256 ( String ) [function, hook(KRYPTO.keccak256)]
| ECDSARecover ( String , Int , String , String ) [function, hook(KRYPTO.ecdsaRecover)]
| Sha256 ( String ) [function, hook(KRYPTO.sha256)]
| RipEmd160 ( String ) [function, hook(KRYPTO.ripemd160)]
// ----------------------------------------------------------------------------------------------------The BN128 elliptic curve is defined over 2-dimensional points over the fields of zero- and first-degree polynomials modulo a large prime. (x, y) is a point on G1, whereas (x1 x x2, y1 x y2) is a point on G2, in which x1 and y1 are zero-degree coefficients and x2 and y2 are first-degree coefficients. In each case, (0, 0) is used to represent the point at infinity.
BN128Addadds two points in G1 together,BN128Mulmultiplies a point in G1 by a scalar.BN128AtePairingaccepts a list of points in G1 and a list of points in G2 and returns whether the sum of the product of the discrete logarithm of the G1 points multiplied by the discrete logarithm of the G2 points is equal to zero.isValidPointtakes a point in either G1 or G2 and validates that it actually falls on the respective elliptic curve.
syntax G1Point ::= "(" Int "," Int ")"
syntax G2Point ::= "(" Int "x" Int "," Int "x" Int ")"
syntax G1Point ::= BN128Add(G1Point, G1Point) [function, hook(KRYPTO.bn128add)]
| BN128Mul(G1Point, Int) [function, hook(KRYPTO.bn128mul)]
// -------------------------------------------------------------------------------
syntax Bool ::= BN128AtePairing(List, List) [function, hook(KRYPTO.bn128ate)]
// -----------------------------------------------------------------------------
syntax Bool ::= isValidPoint(G1Point) [function, hook(KRYPTO.bn128valid)]
| isValidPoint(G2Point) [function, klabel(isValidG2Point), hook(KRYPTO.bn128g2valid)]
// ---------------------------------------------------------------------------------------------------
endmodule