Wolfram Research

PGP Network

The network of users of the Pretty-Good-Privacy algorithm

Examples

Basic Examples

Retrieve the graph:

In[1]:=
ResourceData["PGP Network"]
Out[1]=

Summary properties:

In[2]:=
ResourceData["PGP Network", All]["Summary"]
Out[2]=

Basic Applications

Show the neighborhood around the user with the greatest vertex degree:

In[3]:=
g = ResourceData["PGP Network"];
In[4]:=
NeighborhoodGraph[g,  
 MaximalBy[VertexList[g], VertexDegree[g, #] &], Sequence[
 EdgeStyle -> Opacity[0.3], VertexStyle -> {1144 -> Red}, 
  VertexSize -> {1144 -> 2}, PlotTheme -> "Monochrome"]]
Out[4]=

Wolfram Research, "PGP Network" from the Wolfram Data Repository (2019) 

Data Resource History

Source Metadata

Publisher Information