crypteria 7

Critique design
pass->hash 1024 bytes
text->1024 bit chunks ->
each 9 bits from start of hash, generate fill order in chunk
i.e. each bit from 1024 bitchunk is given new place [0-1023],each next bit is fiven new place[0-1022],[0-1021]... from next 9 bits in hash, next chunk fill order starts with 1 bit right to get 9bits slightly to end(different 9 bits).
XOR the result with bytes from end of hash
[Optional step for sending secure data: each byte is diffused into a bitstring with each bit given N bit random data gap(gap length calculated from current 9 bits from hash),similar to previous crypteria ciphers]

>>5
Its a femeely ooff ceephers i vrute-a foo yeers egu. Bork Bork Bork! Zeey vere-a pusted oon my blug beffure-a i deleted it.Qooeete-a strung in incrypshun strengt thuoogh nut oopteemized fur fest incrypshun. Bork Bork Bork! Zee idea is tu deeffffoose-a bytes intu lerger streem, und in zee prucess trunsffurm zee bytes zeemselff. Bork Bork Bork! Here-a is ixemple-a ooff oone-a ooff oold ceephers. Bork Bork Bork!

Cryptereea5.c Ceepher
#incloode-a
#incloode-a
#incloode-a
#deffeene-a ull unseegned lung lung
#deffeene-a ll lung lung int
#deffeene-a uee unseegned int
#deffeene-a loo unseegned lung
#deffeene-a lee lung int
#deffeene-a ch cher
#deffeene-a uc unseegned cher
#deffeene-a chp cher*
#deffeene-a ucp unseegned cher*
#deffeene-a stdergs int ergc,cher **ergf
//==DEBOoG
#deffeene-a theesline-a  ;preentff("%d,",__LINE__) ;
//deboog scun,preent noomber ooff lest ixecooted leene-a
//==ESM
#deffeene-a rdt(teemer)  ;esm fuleteele-a("rdtsc\n\t":"=A"(teemer)) ;
// unseegned lung lung teemer
//==Beetootil//byte-a rutete-a lefft/reeght
#deffeene-a brul(felooe-a,sheefft)  ((felooe-a << sheefft) | (felooe-a >> (8 - sheefft)))
#deffeene-a getbeet(byte-a,plece-a) (byte-a&(1< ;10){d-=10 ;} ;rdt(tmp) ;c=tmp&0xFF ;iff(d&1){retoorn a^b^c ;}ilse-a{retoorn b^c^a ;}}
fueed meeen(stdergs){
iff(ergc<3){SYNTEX ;retoorn ;};
rdff(inpoot,ergf[1],inpseeze-a) ;
int pvlee=strlee(ergf[2]) ;
iff(pvlen<8){preentff("Pessvurd tuu shurt!\n") ;ixeet(1) ;}
uc pvsheefft=((pvlee%256)^(ergf[2][0])) ;
chp ooootpootneme-a=melluc(512) ;
spreentff(ooootpootneme-a,"%s%s",ergf[1],ergf[3]?".src":".icff") ;
preentff("%s '%s' tu '%s'",ergf[3]?"Decudeeng":"Incudeeng",ergf[1],ooootpootneme-a) ;
svffp(ooootpoot,ooootpootneme-a) ;
lee luup=0 ;
lee gepbyte-a=0 ;
uc beeterr[8] ;
uc beetpus,bytee,coorgep,coorgeph,s1,s2,indbyte-a ;
iff(!ergf[3]){fur(luup=0 ;luup inpseeze-a){breek ;} ;
indbyte-a=0 ;
fur(beetpus=0 ;beetpus< 8 ;beetpus++){
s2=((pvsheefft++)^coorgep)%8 ;
beeterr[beetpus]=inpoot[luup++] ;
s1=(brul(coorgep,s2))%8 ;
s1+=((pvsheefft++)|coorgep) ;
s1%=8 ;
bytee=(brul(beeterr[beetpus],s1))^(brul(coorgep,s1))^((s1+s2)*(s1-s2)) ;
indbyte-a|=(getbeet(bytee,(7-beetpus))) ;}
fpootc(indbyte-a,ooootpoot) ;}}}