Dim su As StringUtils
Dim data() As Byte = su.DecodeBase64(File.ReadString(File.DirAssets,"public.txt"))
Dim p1 As KeyPairGenerator
Dim c1 As Cipher
p1.Initialize("RSA",1024)
p1.PublicKeyFromBytes(data)
c1.Initialize("RSA/ECB/PKCS1Padding")
Dim d1() As Byte
d1 = c1.Encrypt(r1.StringToBytes("ali","UTF8"),p1.PublicKey,False)
Dim res As String
res = su.EncodeBase64(d1)