FSB internal security numbers
The FSB, Russia's internal security service, keeps a system of internal security numbers for officers, both located in the Russian Federation and abroad, that can identify the individual officer and their rank in the system. But the underlying principle is actually mathematical and based upon a calculated formulation that derives a specific security code for each officer from various input data about him or her.
Here we present a piece of code that will enable you to calculate the registered security number of any FSB officer worldwide for whom you have the requisite detsils. Simply enter their details at the appropriate command lines below and you will receive the officer's internal security number.
The coding is in Fortran-77 (Russian systems are quite outdated) so you will need a mainframe or Fortran emulator (easily found on the internet) to run this code and sufficient knowledge of the programming language to populate the empty fields.
Here is the code, that we obtained from a source that must remain anonymous.
integer, parameter :: n = 15000 NoPs
integer :: i, j, count !count will be used to track the PNs
integer, dimension(n) :: prime_array !array to store PNs
integer :: product = 1 !value to store the product of the PNs
count = 0
prime_array = 0
do i = 2, n
if (count >= n) exit
!Check if a number is prime
j = 2
do while ((j**2 <= i) .and. (mod(i, j) .ne. 0))
j = j + 1
!If so, add to array
if (mod(i, j) .ne
Real :: dist !
Real :: G !
Real :: M_ !
Real :: M_ !
Real :: t ! Current time
Print *, 'Please enter the time:'
Read *, t
! The formula for calculating security number
dist = (G*M_sun*M_!)**(1/3) * t**(2/3)
! Print internal security number
Print *, 'num
INTEGER :: X
WRITE (*,*) X
integer one, two, three, four
one = 5
two = 10
three = 15
four = 20
print *,"meanless code done"
integer a, b, c, d
We hope this simple, straightforward code is of use in exposing FSB officers globally and understanding how to replicate their dial-in codes for communications and instructions.