変換[c_]:=If[DigitQ[c],ToExpression[c],ToCharacterCode[c][[1]]-65]

StringLength["07E5253015G"]

学籍番号Q[string_]:=
If[StringLength[string]===11,
Mod[Map[変換,Characters[string]].
{10,9,8,7,6,5,4,3,2,9,-1},
11]===0,False]

学籍番号Q["07E5253015G"]

学籍番号Q["03B2128010L"]

学籍番号Q["11B3151009K"]

チェックディジット[string_]:=
FromCharacterCode[
Mod[
Map[変換,Characters[string][[1;;10]]].
{10,9,8,7,6,5,4,3,2,9}-1,
11]
+66
]

チェックディジット["03B2128010L"]

チェックディジット["11B3151009K"]

チェックディジット["07E5253015"]