View previous topic :: View next topic
|
Author |
Message |
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
Frank Yaeger wrote: |
Quote: |
Dinosaurs dominated the Earth's ecosystem for one hundred million years. During this time, the largest mammal was the size of, and looked very much like, a rat. |
Rats ruled then and rats rule now! |
Dinosaurs rule, mammals drool! |
|
Back to top |
|
|
Craq Giegerich
Senior Member
Joined: 19 May 2007 Posts: 1512 Location: Virginia, USA
|
|
|
|
x'40' or b'01000000' It looks better in hex, binary looks rather depressing. |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Quote: |
x'40' or b'01000000' |
Shown that way, none of us could be older than 255.
Quote: |
Dinosaurs rule, mammals drool! |
Dinosaurs - gone. Mammals - still here. So who really rules? |
|
Back to top |
|
|
MBabu
Active User
Joined: 03 Aug 2008 Posts: 400 Location: Mumbai
|
|
|
|
X'32' - ah it's good to be in my thirties again. Too bad I can't remember that far back. |
|
Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Nato il millenovecentocinquantadue
Gerry |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
MBabu wrote: |
X'32' - ah it's good to be in my thirties again. Too bad I can't remember that far back. |
I'm stuck in that awkward age of X'3D'....
At least both eyes are still working....grin.... |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8697 Location: Dubuque, Iowa, USA
|
|
|
|
X'36' for me -- where has the time gone? |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
William Thompson wrote: |
At least both eyes are still working....grin.... |
Me too, what he said...grin.... |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
b'11011'. |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
77 (base 8) |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
21 (base 30)........ |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
People are getting younger, as the "base" is increasing..! |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
here is my age encrypted with a toy RSA key 9645
here are the rexx scripts used
rsagen.rx
Code: |
#!/opt/ooRexx/bin/rexx
/*
*/
numeric digits 32
primes =" 71 73 79 83 89 97 " || ,
"101 103 107 109 113 127 131 137 139 149 " || ,
"151 157 163 167 173 179 181 191 193 197 " || ,
"199 211 223 227 229 233 239 241 251 257 " || ,
"263 269 271 277 281 283 293 307 311 313 " || ,
"317 331 337 347 349 353 359 367 373 379 " || ,
"383 389 397 401 409 419 421 431 433 439 " || ,
"443 449 457 461 463 467 479 487 491 499 "
-- "503 509 521 523 541 547 557 563 569 571 " || ,
-- "577 587 593 599 601 607 613 617 619 631 " || ,
-- "641 643 647 653 659 661 673 677 683 691 " || ,
-- "701 709 719 727 733 739 743 751 757 761 " || ,
-- "769 773 787 797 809 811 821 823 827 829 " || ,
-- "839 853 857 859 863 877 881 883 887 907 " || ,
-- "911 919 929 937 941 947 953 967 971 977 " || ,
-- "983 991 997 "
pcount = words(primes)
-- zrand = random(1,pcount)
-- do zrand
-- z = random(1,pcount)
-- end
p1 = random(1,pcount)
p2 = random(1,pcount)
p = word(primes,p1)
-- p = 7
q = word(primes,p2)
-- q = 19
n = p*q
m = (p-1)*(q-1)
do e = 2 until GCD(m,e) = 1
end
say "public key " n e "(" p q ")"
do k = 0
d = ( 1 + k * m ) / e
if d = ( ( 1 + k * m ) % e ) then ,
leave
end
say "private key" n d
exit
-- useful number mangling routines
PRIMES_BYCOUNT: procedure expose P.
parse arg K
P.0 = 1
P.1 = 2
N = 3
do J = 2 to K
P.0 = J
P.J = N
do forever
N = N + 2
do L = 2 until R = 0
Q = N % P.L; R = N // P.L
if Q <= P.L & R <> 0 then ,
iterate J
end
end
end
return p.0
PRIMES_BYVALUE: procedure expose P.
parse arg K
P.0 = 1
P.1 = 2
N = 3
do J = 2 while ( N <= K )
P.0 = J
P.J = N
do forever
N = N + 2
do L = 2 until R = 0
Q = N % P.L; R = N // P.L
if Q <= P.L & R <> 0 then ,
iterate J
end
end
end
return P.0
ISPRIME:procedure
parse arg N
if N=1 then return 0
if N=2 | N=3 then return 1
if N//2=0 then return 0
if N<9 then return 1
if N//3=0 | N//5=0 then return 0
r = trunc(sqrt(N))
f = 5
do while F <= R
if N//F = 0 then return 0
if N//(F+2) = 0 then return 0
F +=6
end
return 1
SQRT:procedure
parse arg N
r = n / 2
p = n
do until p = r
p = r
r = ( p + ( n / p ) ) / 2
end
return r
GCD: procedure
parse arg A, B
A = abs(A)
B = abs(B)
parse value(max(A,B) min(A,B)) with A B
if B = 0 then return A
do while B > 0
parse value(B A//B) with A B
end
return A
exit -1
LCM: procedure
parse arg A, B
return A * B / GCD(A, B) |
rsacrypt.rx
Code: |
#!/opt/ooRexx/bin/rexx
numeric digits 99999
parse arg f .
if f = "c" then do
parse arg f p n e
c = ( p ** e ) // n
say "encrypting " p "with" n e
say "result is " c
exit
end
if f = "d" then do
parse arg f c n d
p = ( c ** d ) // n
say "decrypting " c "with" n d
say "result is " p
exit
end
say " invalid function"
exit |
just a toy, quick and dirty |
|
Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1249 Location: Richfield, MN, USA
|
|
|
|
Well, Vasanth; I suspect you weren't anticipating this kind of response, right? |
|
Back to top |
|
|
sushanth bobby
Senior Member
Joined: 29 Jul 2008 Posts: 1020 Location: India
|
|
|
|
Now, i know
Why there are so many different languages in the world ? |
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
|
|
|
|
I thought that asking a girl for her age is bad,
But asking a programmer is worse ever
Quote: |
just a toy, quick and dirty |
Quick maybe, but definitely dirty |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
In Gray Code '10101' |
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
|
|
|
|
tick tick tick tuk tuk takataka took
my age in morse code
P.S - pls don't specify ur age in Da Vinci Code |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
I was born kid, books made me experienced, freaky-codes make me old-monk, ah I leave in many ages !
...age is a very high price to pay for maturity. You should have asked, since how long you've been living because none would be old here. |
|
Back to top |
|
|
Kjeld
Active User
Joined: 15 Dec 2009 Posts: 365 Location: Denmark
|
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
|
|
|
|
Can we make this thread as a sticky, if it qualifies to be one?
or are there more stickies already? |
|
Back to top |
|
|
ElHachu
New User
Joined: 12 Mar 2010 Posts: 9 Location: Madrid
|
|
|
|
28, but soon I will be 29... I'm getting older hehehe |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8697 Location: Dubuque, Iowa, USA
|
|
|
|
Quote: |
28, but soon I will be 29... I'm getting older hehehe |
Better than the alternative! |
|
Back to top |
|
|
alexlloyd54
New User
Joined: 22 Apr 2010 Posts: 2 Location: Kuwait
|
|
|
|
I'm 48 y/o
does that makes me a (Dinosaur) ? |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello and welcome to the forum,
Quote: |
does that makes me a (Dinosaur) ? |
Probably not as we have several here who have been working in IT 45+ years. . .
Though, i don't know exactly where Dinosaur "begins". . .
Many little Win-box people hold the belief that if you use a mainframe at all you are a dinosaur. .
d |
|
Back to top |
|
|
|