conterm/libauthsrv/opasstokey.c
Russ Cox 934846f35c a
2005-08-08 12:50:13 +00:00

30 lines
448 B
C

#include <u.h>
#include <libc.h>
#include <authsrv.h>
int
opasstokey(char *key, char *p)
{
uchar t[10];
int c, n;
n = strlen(p);
memset(t, ' ', sizeof t);
if(n < 5)
return 0;
if(n > 10)
n = 10;
strncpy((char*)t, p, n);
if(n >= 9){
c = p[8] & 0xf;
if(n == 10)
c += p[9] << 4;
for(n = 0; n < 8; n++)
if(c & (1 << n))
t[n] -= ' ';
}
for(n = 0; n < 7; n++)
key[n] = (t[n] >> n) + (t[n+1] << (8 - (n+1)));
return 1;
}