プログラマ専用SNS ミクプラ

データをDESで暗号化するプログラムを書こうと思い、
http://free.pjc.co.jp/3DES/index.html
のfips46-3j.pdfを参考にプログラムを書いています。
しかし、うまく処理できていないようです。
暗号化したものを復号化しても同じにならず、
YCrypt（http://www.vector.co.jp/soft/win95/util/se415520.html）の出力とも一致しません。
どこがおかしいか教えていただければ幸いです。
お願いします。
転置系の関数のコードはtentiフォルダ内のmaketenti.exeで作っています。
maketenti.exeの入力はfips46-3j.pdfの中の表をテキストファイルにコピペしたものです。

初期転置の段階で間違ってませんか？
どういう数え方で５８ビット目を(in[7] & 0x2)としたのでしょうか？
＃私には、これは６３ビット目に思えるのですが。

上位のビットほど番号が若いということですか？
自分なりに変えてみたのですが、うまく動きません。
どうすればいいかわかりやすく教えていただければ幸いです。
よろしくお願いします。

printfデバッグや、うまく動いているActiveBasicのソースと見比べることにより自己解決できました。