Roligt telefontrick
Får ligga som programmering eftersom jag gjorde ett simpelt program till det. Jag har precis läst en distanskurs som hette datanät. Där fick jag lära mig massor om hur vårt telefonsystem fungerar och med de kunskaperna gjorde jag ett litet experiment som fungerade bra och som jag tyckte var rätt fräckt
När man slår in ett nummer på en vanlig telefon så omvandlas varje siffra till en ljudsignal som skickas iväg i telefonledningen (detta ljud hör man i luren ju). Jag genererade en ljudfil som pep i de frekvenser som motsvarade mitt telefonnummer och spelade upp det genom högtalarna och in i telefonen. Det fungerade skitbra; inom kort började det ringa i min mobil utan att jag nånsin slagit numret rent fysiskt
Detta är kanske inte så fräckt egentligen, men jag tyckte det var hur coolt som helst att min teori fungerade.
Tutorial :
Installera GoldWave, programmet jag använde för att generera ljudet med :http://www.goldwaving.com/downloads/gwave513.exe
ladda hem programmet som skapar en liten formel för hur ett visst telefonnummer ser ut matematiskt och kopiera utdatan
http://home.no/filipsprogram/DUMP/teletele.exe
Installera och starta GoldWave och klicka på New
Gå in på Expression Evalutator
Klistra in
Starta nytt samtal, tryck play och håll telefonen vid högtalaren
Det borde fungera. Det tog mig lite trixande med volym och telefonavstånd innan jag fick det att fungera bra.
Här är en mp3a med mitt mobilnummer: http://home.no/filipsprogram/DUMP/min%5Fmobil.mp3
Snygg Delphi-kod till programmet:
const t:array [0..9] of string = ('(sin(5912*t)+sin(8394*t))/2',
'(sin(4379*t)+sin(7596*t))/2',
'(sin(4379*t)+sin(8394*t))/2',
'(sin(4379*t)+sin(9280*t))/2',
'(sin(4838*t)+sin(7596*t))/2',
'(sin(4838*t)+sin(8394*t))/2',
'(sin(4838*t)+sin(9280*t))/2',
'(sin(5353*t)+sin(7596*t))/2',
'(sin(5353*t)+sin(8394*t))/2',
'(sin(5353*t)+sin(9280*t))/2');
var s:string;
i:integer;
begin
s:='';
for i := 1 to length(edit1.text) do
s:=s + t[(ord(edit1.text[i])-$30)] + '*(step(t-' + floattostr((i*2-1)/10)+ ')-step(t-' + floattostr(0.15+(i*2-1)/10) +')) +'+#13#10;
s:=copy(s,1,length(s)-3);
s:=StringReplace(s,',','.',[rfReplaceAll]);
memo1.Text := s;
www.filipsprogram.tk - lite freeware
"Delight, herregud. Talang är bara förnamnet."