cz>//примерно так. byte - тип данных занимающий 1 байт:)
//byte - предполагаю это unsigned short


cz>byte *someData=pasword;
cz>byte *hashaddr=&hashplace;//место пишется хеш
cz>int Sum;
cz>byte cl=0;
cz>while(*somedata!='\0'){
cz>    byte al=(byte)(*someData);
cz>    al+=cl;
cz>    al^=cl;                     //
cz>    al=(byte)(al/0x1a>>8+0x41);//

Здесь очень глупая ошибка... Стыдно...
Правильный вариант
    al=(byte)(al%0x1a+0x41);//


cz>    *hash=al;
cz>    hash++;cl++;someData++;
cz>}
cz>