RSA шифрование

[Slimbr]

Как правильно разбить на блоки шифруемые данные?

'Шифрование
For I = 1 To J
Alfavit(N, Mid(Str, I, 1), Nom, 0)
Nom = (Nom ^ E1) Mod (N)
ShifrText.Text = ShifrText.Text & Nom & ";"
Next

'Дешифрование
For I = 0 To R
Nom = (Shifr(I) ^ D) Mod (N)
Alfavit(N, Str, Nom, 1)
KonText.Text = KonText.Text & Str
Next

Private Sub Alfavit(ByVal N1 As Integer, ByRef Sim As String, ByRef Nom As Double, ByVal Flag As Integer)

If Flag = 0 Then
Nom = Sim
Else
Sim = Nom
End If

Как понял в строке Alfavit(N, Mid(Str, I, 1), Nom, 0), а именно Mid(Str, I, 1) вместо единицы должно быть какоето значение зависящее от N

Можно и в асю 59-59-824-59

Спасибо