09-23-04 03:01 PM
Your mods to jbn2 are great.
there is something you've forgotten tho... 'newnym2' capstring recognition!
begin quot:
-----BEGIN PGP SIGNED MESSAGE-----
Hash: RIPEMD160
NotDashEscaped: You need GnuPG to verify this message
Modifications to Jack B. Nymble
BA-001
November 03, 2003
What:
Add the ability for Jack B. Nymble to recognize the newnym2 capstring
indicator.
Where:
Prep.bas
Shared.bas
Book.frm
NBook.frm
________________________________________
___________________
ORIGINAL Prep.bas
_____________________________
'Every Remailer Key
If Msg = "" Then
x = 0: Y = 0: msg2 = "": msg3 = "": AllNames = vbCr
Do While RString(x) <> ""
RemailerString RString(x), rname, raddress, roptions
If rname = "" Or raddress = "" Then
'Bad string
msg3 = msg3 + LMsg(37) + ":" + vbCrLf + " " +
RString(x) + vbCrLf
Else
If InStr(AllNames, vbCr + rname + vbCr) <> 0 Then msg3 =
msg3 + LMsg(412) + " " + rname + vbCrLf Else AllNames = AllNames + rname +
vbCr
If ((InStr(roptions, " pgp ") <> 0 And InStr(roptions, "
cpunk ") <> 0) Or InStr(roptions, " newnym ") <> 0) And InStr(PData(43),
raddress + vbCrLf) = 0 Then
If FullPGPCheck Or Val(PData(12)) = 0 Then FullCheck =
"X" Else FullCheck = ""
If FindPGPKey(raddress, False, FullCheck) = "" Then
If Val(PData(12)) <> 0 Then
If LCase(Left(raddress, 2)) = "0x" And
Len(raddress) = 10 Then
sKeyID = raddress + Chr(0)
Else
sKeyID = "<" + Left(raddress, 1020) + ">" +
Chr(0)
End If
i = spgpKeyIsOnRing(sKeyID)
Else
i = 1
End If
If Y <> 2 And i <> 0 Then
'Inform user of Missing key
_______________________________________
MODIFIED Prep.bas
_____________________________
'Every Remailer Key
If Msg = "" Then
x = 0: y = 0: msg2 = "": msg3 = "": AllNames = vbCr
Do While RString(x) <> ""
RemailerString RString(x), rname, raddress, roptions
If rname = "" Or raddress = "" Then
'Bad string
msg3 = msg3 + LMsg(37) + ":" + vbCrLf + " " +
RString(x) + vbCrLf
Else
If InStr(AllNames, vbCr + rname + vbCr) <> 0 Then msg3 =
msg3 + LMsg(412) + " " + rname + vbCrLf Else AllNames = AllNames + rname +
vbCr
If (((InStr(roptions, " pgp ") <> 0 And InStr(roptions, "
cpunk ") <> 0) Or InStr(roptions, " newnym ") <> 0) Or _
((InStr(roptions, " pgp ") <> 0 And InStr(roptions, "
cpunk ") <> 0) Or InStr(roptions, " newnym2 ") <> 0)) And _
InStr(PData(43), raddress + vbCrLf) = 0 Then
If FullPGPCheck Or Val(PData(12)) = 0 Then FullCheck =
"X" Else FullCheck = ""
If FindPGPKey(raddress, False, FullCheck) = "" Then
If Val(PData(12)) <> 0 Then
If LCase(Left(raddress, 2)) = "0x" And
Len(raddress) = 10 Then
sKeyID = raddress + Chr(0)
Else
sKeyID = "<" + Left(raddress, 1020) + ">" +
Chr(0)
End If
i = spgpKeyIsOnRing(sKeyID)
Else
i = 1
End If
If y <> 2 And i <> 0 Then
'Inform user of Missing key
________________________________________
___________________
ORIGINAL Shared.bas
_____________________________
'SHARED BOOK FUNCTIONS
Public Sub GetRemailers(cbo1 As Object, BookRType As Byte)
Dim temp() As String
cbo1.Clear
cbo1.AddItem "AUTO"
'Add Stats Remailers
x = 1
Do While RemStats(BookRType, x) <> ""
r = Extract(RemStats(BookRType, x), " ")
If Remailer(r, BookRType, rname, raddress, roptions, lathist,
rlatent, uphist, rup) Then
If (BookRType = 0 And InStr(roptions, " cpunk ") <> 0 And
InStr(roptions, " pgp ") <> 0 And InStr(roptions, " newnym ") = 0) Or
BookRType = 1 Then
ro = GetRopts(roptions, BookRType)
a = Left(UCase(Left(rname, 1)) + Mid(rname, 2) + String(12,
" "), 12) + " "
If Trim(uphist) = "" Or Val(Cnf(2, 8)) = 0 Then a = a +
lathist + " "
a = a + rlatent + " "
If Trim(uphist) <> "" And Val(Cnf(2, 8)) <> 0 Then a = a +
uphist + " "
a = a + Left(rup, 3) + " " + ro
cbo1.AddItem a
allr = allr + rname + "%"
End If
End If
x = x + 1: If x > MaxRemailers Then Exit Do
Loop
'Add Non-Stats
_______________________________________
MODIFIED Shared.bas
_____________________________
'SHARED BOOK FUNCTIONS
Public Sub GetRemailers(cbo1 As Object, BookRType As Byte)
Dim temp() As String
cbo1.Clear
cbo1.AddItem "AUTO"
'Add Stats Remailers
x = 1
Do While RemStats(BookRType, x) <> ""
r = Extract(RemStats(BookRType, x), " ")
If Remailer(r, BookRType, rname, raddress, roptions, lathist,
rlatent, uphist, rup) Then
If ((BookRType = 0 And InStr(roptions, " cpunk ") <> 0 And
InStr(roptions, " pgp ") <> 0 And InStr(roptions, " newnym ") = 0) Or _
(BookRType = 0 And InStr(roptions, " cpunk ") <> 0 And
InStr(roptions, " pgp ") <> 0 And InStr(roptions, " newnym2 ") = 0)) Or
BookRType = 1 Then
ro = GetRopts(roptions, BookRType)
a = Left(UCase(Left(rname, 1)) + Mid(rname, 2) + String(12,
" "), 12) + " "
If Trim(uphist) = "" Or Val(Cnf(2, 8)) = 0 Then a = a +
lathist + " "
a = a + rlatent + " "
If Trim(uphist) <> "" And Val(Cnf(2, 8)) <> 0 Then a = a +
uphist + " "
a = a + Left(rup, 3) + " " + ro
cbo1.AddItem a
allr = allr + rname + "%"
End If
End If
x = x + 1: If x > MaxRemailers Then Exit Do
Loop
'Add Non-Stats
________________________________________
___________________
ORIGINAL Book.frm
_____________________________
'Save Replay
If BkData(12) = "True" And anbin <> "" And i =
0 And AttCount = 0 And Left(ToA, 7) = "config@" And Nym = "" Then
If Remailer(ToA, 2, "", raddress, roptions,
"", "", "", "") Then
If InStr(roptions, " newnym ") <> 0
Then
FileCopy anbin,
PlainName(MsgBookName(BookX), 0) + PlainName(MsgBookName(BookX), 2) +
"._@@"
ReDim ArchiveBook(1)
ArchiveBook(ArchiveBookX) =
PlainName(MsgBookName(BookX), 0) + PlainName(MsgBookName(BookX), 2) +
"._@@"
ArchiveBookX = ArchiveBookX + 1
End If
End If
End If
Else
'Encrypt Only
_______________________________________
MODIFIED Book.frm
_____________________________
'Save Replay
If BkData(12) = "True" And anbin <> "" And i =
0 And AttCount = 0 And Left(ToA, 7) = "config@" And Nym = "" Then
If Remailer(ToA, 2, "", raddress, roptions,
"", "", "", "") Then
If InStr(roptions, " newnym ") <> 0 Or
InStr(roptions, " newnym2 ") <> 0 Then
FileCopy anbin,
PlainName(MsgBookName(BookX), 0) + PlainName(MsgBookName(BookX), 2) +
"._@@"
ReDim ArchiveBook(1)
ArchiveBook(ArchiveBookX) =
PlainName(MsgBookName(BookX), 0) + PlainName(MsgBookName(BookX), 2) +
"._@@"
ArchiveBookX = ArchiveBookX + 1
End If
End If
End If
Else
'Encrypt Only
________________________________________
___________________
ORIGINAL NBook.frm
_____________________________
If Job = "Nyms" Or Job = "" Then
Tmp = cboNym.Text
cboNym.Clear
For i = 0 To MaxRemailers
If Nyms(i, 0) = "" Then Exit For
cboNym.AddItem Nyms(i, 0)
Next i
For i = 0 To MaxRemailers
If RString(i) = "" Then Exit For
RemailerString RString(i), "", raddress, roptions
If raddress <> "" And InStr(roptions, " newnym ") <> 0 Then
cboNym.AddItem "example@" + Mid(raddress, InStr(raddress,
"@") + 1)
End If
Next i
cboNym.Text = Tmp
End If
_______________________________________
MODIFIED NBook.frm
_____________________________
If Job = "Nyms" Or Job = "" Then
Tmp = cboNym.Text
cboNym.Clear
For i = 0 To MaxRemailers
If Nyms(i, 0) = "" Then Exit For
cboNym.AddItem Nyms(i, 0)
Next i
For i = 0 To MaxRemailers
If RString(i) = "" Then Exit For
RemailerString RString(i), "", raddress, roptions
If raddress <> "" And (InStr(roptions, " newnym ") <> 0 Or
InStr(roptions, " newnym2 ") <> 0) Then
cboNym.AddItem "example@" + Mid(raddress, InStr(raddress,
"@") + 1)
End If
Next i
cboNym.Text = Tmp
End If
________________________________________
___________________
-----BEGIN PGP SIGNATURE-----
Comment: n/a
iQEVAwUBP6f7zPBluLRpZm7PAQOcYggAgro//HewjFtX+tgZ4b4MeOG3LcE9y4OT
N9PKAY8wUiMHmddy9enzNfCOXiIlIQl8JpANmdFx
wjInzfaiA1/2vT7GKpvWmFTg
4fUl5XmdfzGEjm5gOYipeoquvbt1a1CLCL225b4H
8EVChWjnojzBEWqUD0USBmtI
N7VlNmF3USbBxl1JKg5CgNRmMd+Awki5UjZJtVwP
0e4MTUTsJESvpVwErzukQnZL
k/ 7MPIBtDpOjLO41Dcw6M161t0kBDSe5qZZCKWdphY
ojh0oKBFKmfO6ffhgFPGzl
z6iJ62Lf6glRx6iI+QfkG6Gr6pomdYi71rjpsqX1
Dp3jYQ6mOFflmQ==
=Lce/
-----END PGP SIGNATURE-----
~~~~~~~~~~~~~~~~~~~~~
This message was posted via one or more anonymous remailing services.
The original sender is unknown. Any address shown in the From header
is unverified. You need a valid hashcash token to post to groups other
than alt.test and alt.anonymous.messages. Visit www.panta-rhei.dyndns.org
for abuse and hashcash info.
[ Post a follow-up to this message ]
|
