Dim security As JavaObject
Dim providers() As Object = security.InitializeStatic("java.security.Security").RunMethod("getProviders", Null)
For Each provider As JavaObject In providers
Dim services() As Object = provider.RunMethodJO("getServices", Null).RunMethod("toArray", Null)
For Each service As JavaObject In services
Log(service.RunMethod("getAlgorithm", Null))
Next
Next