cat crackscript
a = 8480320057465
b = 11567267856144
define g(x,y) {
auto z
z = x
while(z > 1) {
z = y % x
y = x
x = z
}
return(x)
}
define i(x,y) {
auto a,  z, w
w = y
z = 1
while( x < w) {
                a = ( y / x ) + 1
                w = x
                x = a * x % y
                z = z * a % y
}
return(z)
}
define s(x) {
auto a
y = 11567267856144
a = y / x + 1
x = a * x % y
return(x)
}
define t(x)  {
auto a
y =  8480320057465
a = y / x + 1
x = a * x % y
return(x)
}
/* Used to generate the factors for inverting diophantine encryption example */