Использование paq(архиватор) в качестве проверки "случайности"

Разбирал архивы, нашел модифицированный paq для проверки "случайности" файла (как приложить не знаю).
В качестве примера, "быстрая" версия проверки, может кому пригодится.

/* cc statistic-fast.c */ // чем ближе значение к 0.5 или даже ниже // значит файл прошел предварительную проверку. #include <stdio.h> typedef unsigned char byte; typedef unsigned long word32; typedef unsigned short word16; typedef unsigned __int64 word64; //кушаем память.. //8+8+3=19 бит контекста #define SZ 8*256*256 #define SZ_M (SZ-1) static word64 s0[SZ]; //статистика static word64 s1[SZ]; static word32 ctx; //контектс static word64 cp,ca; //счетчик удачных предсказаний и общий void main(int argc, char **argv) { FILE *fp; static byte buf[1024*1024]; int n,i,p,j,k,bit,bitp; double e; if (argc<2) return; for(n=1;n<argc;n++) { ca=0, ctx=0, cp=0; memset(s0,0,sizeof(s0)); memset(s1,0,sizeof(s1)); fp = fopen(argv[n],"rb"); if (!fp) return ; while(1) { p=fread(&buf,1,sizeof(buf),fp); if (p==0) break; for(i=0;i<p;i++) { for(j=0;j<8;j++) { bit = buf[i]&1; buf[i]>>=1; //реальный бит bitp = s0[ctx] < s1[ctx]; //и что предсказываем if (bit == bitp) cp++; //меняем общие счетчики статистики ca++; if (bit) s1[ctx]++; else s0[ctx]++; //меняем статистику контекста ctx = ((ctx<<1) | bit) & SZ_M; //поменяли сам контекст } } } fclose(fp); e = (double)cp/ca; printf("%s: predict=%0.08g cnt=%I64d cnt_all=%I64d\n", argv[n], e, cp, ca); } }