|
Home > Archive > Anonymous Servers > September 2004 > ATTN Panta Admin
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
|
|
| Max Mustermann 2004-09-23, 10:01 am |
| 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.
| |
| panta-admin 2004-09-23, 10:01 am |
| -----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hi !
>Your mods to jbn2 are great.
Thanks, just doing my share.
>there is something you've forgotten tho... 'newnym2' capstring recognition!
Done.
Please test it and let me know it it does what you want, so I can remove
the -BETA
Cheers,
panta-admin
-----BEGIN PGP SIGNATURE-----
Version: N/A
iQA/ AwUBQVIJ+R2e88Id2BOOEQI9HgCg+Ro+lQW7h1sL
gRXXbREQTH/tjCoAniCA
TBw2JCOkG6D2Lyqog49W+LcY
=RTL/
-----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.
| |
| BiKiKii Admin 2004-09-28, 5:45 pm |
| -----BEGIN PGP SIGNED MESSAGE-----
On 22 Sep 2004, panta-admin wrote:
>-----BEGIN PGP SIGNED MESSAGE-----
>Hash: SHA1
>
>Hi !
>
>
>Thanks, just doing my share.
>
>
>Done.
>
I hope you cleaned up that code.
I have not yet but it is "FULL OF BLOAT".
The correct fix should be simply changing " newnym " to " newnym"
(note lack of trailing space after newnym).
I believe Frog gave that subtle hint.
BiKiKii
-----BEGIN PGP SIGNATURE-----
Version: N/A
iQEVAwUBQVnGz/Rwi/ QFFzi5AQGnGwf+KFaOFDc7L8nPvlwJlgk2zXM8dG
QBmdXs
1jgIq8OWkaYVF5F0DQxKoUdZpxM5D3kQu6Nz9ck0
vWtm8vrSf2PeQiPoIUAbXRTf
QUZz02hM7f4M0sEhl5e1WoyFu2MbZSGk1itExKPw
NEU05AueFM2vPDnIYeIzhc9V
QEgfZEshR0NK3Qh8j8414kE8Ua4YJw+dZkmvSGXO
LZuN4i9RqPe/L+Rb1RD+TOni
AA9T37ZUIGagkiI350TYxAhTjdXQ3Kw9ihLykMmp
oMPAX9CnPLRXQ7siTebQ9spv
G3lBRl0Yq4/+vm/pFe+6OeaGDI+z/ogTWdUG8YPLHPMs3rtFQ9ce9Q==
=2lvy
-----END PGP SIGNATURE-----
|
|
|
|
|