{0,0,Bz} → {Stx,Sty,Stz}

Solve[{(x - Rx)/-Rx == (y - Ry)/-Ry == (z - Rz)/(Bz - Rz), Tx x + Ty y + Tz z == Tx Cx + Ty Cy + Tz Cz}, {x, y, z}]