Public Function MetodeEncryptRSA() Dim KalimatSederhana As String Dim A As Long Dim B As Long Dim nByte As Long Dim C As Long Dim sPublicKey As String Dim sPrivateKey As String Dim JumlahPublicKey As String Dim JumlahPrivateKey As String Dim JumlahPassword As String Dim D() As Byte Dim F() As Byte Dim i As Integer Dim J As Integer Dim DigitalHasil() As Byte Dim CatHasil As String