1// 2// gettsc.inl 3// 4// gives access to the Pentium's (secret) cycle counter 5// 6// This software was written by Leonard Janke (janke@unixg.ubc.ca) 7// in 1996-7 and is entered, by him, into the public domain. 8 9#if defined(__WATCOMC__) 10void GetTSC(unsigned long&); 11#pragma aux GetTSC = 0x0f 0x31 "mov [edi], eax" parm [edi] modify [edx eax]; 12#elif defined(__GNUC__) 13inline 14void GetTSC(unsigned long& tsc) 15{ 16 asm volatile(".byte 15, 49\n\t" 17 : "=eax" (tsc) 18 : 19 : "%edx", "%eax"); 20} 21#elif defined(_MSC_VER) 22inline 23void GetTSC(unsigned long& tsc) 24{ 25 unsigned long a; 26 __asm _emit 0fh 27 __asm _emit 31h 28 __asm mov a, eax; 29 tsc=a; 30} 31#endif 32 33#include <stdio.h> 34#include <stdlib.h> 35#include <openssl/cast.h> 36 37void main(int argc,char *argv[]) 38 { 39 CAST_KEY key; 40 unsigned long s1,s2,e1,e2; 41 unsigned long data[2]; 42 int i,j; 43 static unsigned char d[16]={0x01,0x23,0x45,0x67,0x89,0xAB,0xCD,0xEF}; 44 45 CAST_set_key(&key, 16,d); 46 47 for (j=0; j<6; j++) 48 { 49 for (i=0; i<1000; i++) /**/ 50 { 51 CAST_encrypt(&data[0],&key); 52 GetTSC(s1); 53 CAST_encrypt(&data[0],&key); 54 CAST_encrypt(&data[0],&key); 55 CAST_encrypt(&data[0],&key); 56 GetTSC(e1); 57 GetTSC(s2); 58 CAST_encrypt(&data[0],&key); 59 CAST_encrypt(&data[0],&key); 60 CAST_encrypt(&data[0],&key); 61 CAST_encrypt(&data[0],&key); 62 GetTSC(e2); 63 CAST_encrypt(&data[0],&key); 64 } 65 66 printf("cast %d %d (%d)\n", 67 e1-s1,e2-s2,((e2-s2)-(e1-s1))); 68 } 69 } 70 71