Проба пера

[allex]

Сразу не бить...
Имееем библиотеку
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">java-библиотека - crypt</div></div><div class="sp-body"><div class="sp-content">

import java.security.KeyPairGenerator;
import java.security.NoSuchAlgorithmException;
import java.security.KeyPair;
public class AsymmetricKeyMaker {
public static void run(String[] args) {
String algorithm = "";
if (args.length == 1) algorithm = args[0];

try {
KeyPair keyPair = KeyPairGenerator
.getInstance(algorithm)
.generateKeyPair();

System.out.println(keyPair.getPublic());
System.out.println(keyPair.getPrivate());

} catch (NoSuchAlgorithmException e) {
System.err.println("usage: java AsymmetricKeyMaker <RSA | DSA>");
}

}
}

<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Вызов процедур</div></div><div class="sp-body"><div class="sp-content">

Option Public
Option Declare
UseLSX "*javacon"
Use "crypt"
Sub t(algorithm As String)
dim jSession As JavaSession
dim jClass As JavaClass
dim jo As JavaObject
Dim myError As JavaError
On Error GoTo Catch

Set jSession = New JavaSession
Set jClass = jSession.GetClass("AsymmetricKeyMaker")
Set jo = jClass.CreateObject()

If Not jo Is Nothing Then
call jo.run("algorithm")	' сдесь вылетает в ошибку
End If

done:
Exit Sub
Catch:
Set myError = jSession.getLastJavaError()
MessageBox myError.errormsg & Chr(10) & algorithm ,, "Ошибка"
'jSession.ClearJavaError
Resume done
End Sub

Ошибка вылетает при выполнении - call jo.run("algorithm")
Подскажите что не так ?

 

[Akupaka]

а че не?

Set jo = new AsymmetricKeyMaker
call jo.run("algorithm")

 

[allex]

Ошибка: classnotfound - java.security

А что разъве в стандартной поставке этого всего нету ?

 

[Akupaka]

А что разъве в стандартной поставке этого всего нету ?

В стандартной Sun Java может и есть...