@Mathematica
chooseNotChar[char_]:={{"A","Z"},{"a","z"},{"0","9"}}//
Map[Apply[CharacterRange,#]&,#]&//
Apply[Join,#]&//
Select[#,#!=char&]&//
RandomChoice;
In[1] := chooseNotChar["c"]
Out[1] = "v"
QE1hdGhlbWF0aWNhCgpjaG9vc2VOb3RDaGFyW2NoYXJfXTo9e3siQSIsIloifSx7ImEiLCJ6In0seyIwIiwiOSJ9fS8vCglNYXBbQXBwbHlbQ2hhcmFjdGVyUmFuZ2UsI10mLCNdJi8vCglBcHBseVtKb2luLCNdJi8vCglTZWxlY3RbIywjIT1jaGFyJl0mLy8KCVJhbmRvbUNob2ljZTsKCkluWzFdIDo9IGNob29zZU5vdENoYXJbImMiXQpPdXRbMV0gPSAidiIK