(imported comment written by ryanlrussell)
So, sorry to come back to this months later, but it’s that time of year, and a man’s thoughts turn to reverse engineering. Plus, I’ve finally put some projects to bed, and I had a little time.
Turns out I just needed a break to let some things simmer, and then another 20 minutes or so. Total time spent was in the neighborhood of 12 hours to figure it out. I can do this again in about 10 minutes now.
I believe
this
is your card?
H:\Embedded Password.WBT’
var=arrdimension(100)
var[0]=“1234567”
var[1]=“admin”
var[2]=“localadmin”
var[3]=random (123456)
var[4]=“p4$$w0rD”
var[5]=“LclAdmn”
var[6]=“admi4nis2tra1tor”
var[7]="$1f0ry0urapp13"
var[8]=strcat(“A”,random (99),“b03h”)
var[9]=TimeDate()
var
10
=“B1gF1xR0cks”
var
11
=“fowrt&hen*hHuieFerh”
var
12
=“ownrh#wln)lwn0”
var
14
=“1234hjkl”
var
15
=“raharnnk3”
var
16
= strcat(random (99999999999),"")
var
17
=“could have used a bigger array”
var
19
=“DfsuBenjo”"
var
19
=strcat(random (99999),"")
var
20
="&hellhw*g"
var
21
=“Ben and Ryan, Thanks for the challenge. I understand that with other people’,27h,'s account information”
var
22
="any risk of exposure is too great. Any embedded account information is more vulnerable because there is nothing "
var
23
=“to preventrepeated attacks in the privacy of the attacker’,27h,'s own workspace. With time, any system can be broken.”
var
24
=“aqwsderf”
var
25
=“5”
var
26
=“4”
var
27
=“calc”
var
28
=“wordpad”
var
29
=“notepad”
#definefunction A(strC)
strDC=""
for x=1 to strLen(strC)
char=strSub(strC,x,1)
deChar=char2num(char)
if deChar < 64 || (deChar > 90 && deChar < 97) || deChar > 122 then strDC= strCat(strDC,char)
if (deChar > 64 && deChar < 78) || (deChar > 96 && deChar < 110) then strDC= strCat(strDC,num2char(deChar+13))
if (deChar > 77 && deChar < 91) || (deChar > 109 && deChar < 123) then strDC= strCat(strDC,num2char(deChar-13))
next
return strDC
#endfunction
errormode(@off)
for x=random (5) to random (20)+8
t=random(24)
u=random(5)
v=random(3)
runWithLogon(strCat(var
26+v
,".exe"),"","",@NORMAL,@NOWAIT,var[v],".",var[t],0 )
if x==7 then runWithLogon(strCat(var
27
,".exe"),"","",@NORMAL,@NOWAIT,var[0],".",a(var[x]),0 )
if x==6 then runWithLogon(strCat(var
29
,".exe"),"","",@NORMAL,@NOWAIT,var[2],".",a(var[x]),0 )
next
errormode(@on)